使用 DFSORT 生成报告

Question

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

BRANCHES KSDS 中的每条记录的格式为

• 代表 6 位十进制分支排序码的 4 字节二进制无符号整数（例如 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)
/*