Создать отчет с помощью DFSORT

Question

У меня есть задача написать задание JCL, вызывающее ICETOOL/DFSORT для генерации отчета. Отчет принимает VSAM KSDS в качестве входных данных и генерирует список отделений банка.

Каждая запись в ФИЛИАЛАХ KSDS имеет вид

• 4-байтовое двоичное целое число без знака, представляющее 6-значный код сортировки десятичной ветви (например, 420101)

• 1-байтовый флаг EBCDIC: ◦ EBCDIC 'A' означает, что филиал принадлежит ZeusBank, и все его счета хранятся в СЧЕТАХ KSDS

◦ EBCDIC "B" означает, что филиал не принадлежит ZeusBank, поэтому мы не храним информацию о его счете в ACCOUNTS KSDS

• 32-байтовое имя ветви EBCDIC (например, "ZEUSBANK FOOFORD BAR STREET" или "OTHERBANK QUUXHAM BAZ ROAD"), с пробелом справа.

Отчет должен выглядеть так

Я довольно новичок в JCL, поэтому, пожалуйста, прости, если вопрос прост. Благодарю.

Answer 1

Вы можете попробовать это:

//STEPSORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=DATASETNAME
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(5,1,CH,A)
OUTFIL HEADER2=(1:C'LIST OF WHATEVER BANK',4/,
1:C'SORTCODE',10:C'FLAG',15:C'BRANCH',/,
1:C'--------',10:C'----',15:C'------'),
BUILD=(1:1,4,BI,TO=ZD,LENGTH=6,10:5,1,15:6,32)
/*