使用DFSORT生成报告

Question

我有一个任务是编写一个调用ICETOOL / DFSORT来生成报告的JCL作业。该报告将VSAM KSDS作为输入并生成银行分支列表。

BRANCHES KSDS中的每条记录都是

形式

•4字节二进制无符号整数，表示6位十进制分支排序码（例如420101）

•1字节EBCDIC标志：◦EBCDIC'A'表示该分支机构归ZeusBank所有，其所有帐户都保存在ACCOUNTS 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)
/*