Как объединить записи в Easytrieve внутренние SORT?

Question

У меня есть требование, где мне нужно извлечь 2 типа записей из одного входного файла и объединить их для обработки отчетов EZT. В настоящее время я написал шаг ICETOOL для выполнения извлечения с последующим соединением. Вывод шага ICETOOL подается на шаг отчета Easytrieve. Карта извлечения, как показано ниже -

SORT    FIELDS=(14,07,PD,A)
OUTFILE FNAMES=FILE010,INCLUDE=(25,03,CH,EQ,C'010')
OUTFILE FNAMES=FILE011,INCLUDE=(25,04,CH,EQ,C'011')
OPTION  DYNALLOC=(SYSDA,05)

Вот карта присоединения -

SORT     FIELDS=(14,07,PD,A)
JOINKEYS F1=FILE010,FIELDS=(14,07,A),SORTED,NOSEQCHK
JOINKEYS F2=FILE011,FIELDS=(14,07,A),SORTED,NOSEQCHK
REFORMAT FIELDS=(F1:14,07,
                 F2,25,10)
OUTREC   BUILD=(1,17,80:X),VTOF
OPTION   DYNALLOC=(SYSDA,05)

Мне интересно, можно ли было выполнить вышеуказанные операции SORT/ICETOOL в EasyTrive. Я использовал внутреннюю сортировку Easytrieve, но это было для простых извлечений. Можем ли мы выполнить операцию соединения в Easytrieve?

Примечание. Идея состоит в том, чтобы сделать один шаг EZT.

Answer 1

Вы можете использовать средство синхронизированной обработки файлов (SFP) в Easytrieve, чтобы выполнить задачу. Подробнее об этом читайте здесь.

FILE FILE010
KEY1 14 7 N
*
FILE FILE011
KEY2 14 7 N
FIELD1 25 10 A
*
FILE OUTFILE FB(80 0)
OKEY 1 7 N
OFIELD 8 10 A
*
WS-COUNT W 5 N VALUE 0
*
JOB INPUT FILE010 KEY KEY1 FILE011 KEY KEY2 FINISH(DIS)
*
IF EOF FILE010
STOP
END-IF
*
IF MATCHED
OKEY = KEY1
OFIELD = FIELD1
WS-COUNT = WS-COUNT + 1
PUT OUTFILE
END-IF
*
DIS. PROC
DISPLAY 'RECORDS WRITTEN: ' WS-COUNT
END-PROC

Пожалуйста, обратите внимание,

• Вышеупомянутый код не тестировался, это всего лишь черновик, демонстрирующий идею сопоставления файлов с использованием Easytrieve для достижения цели.
• Типы данных для элементов данных предполагаются. Возможно, вам придется изменить их соответствующим образом.
• Возможно, вам придется определить переменные входные наборы данных в FILEзаявление.
• Вы можете добавить больше заявлений в IF MATCHED условие для создания отчета.

Надеюсь это поможет!