使用 DFSORT 生成报告

Question

我有一个任务是编写 JCL 作业，调用 ICETOOL/DFSORT 生成报告。该报告将 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)
/*

使用 DFSORT 生成报告

Generate a report using DFSORT

mainframe

zos

jcl

dfsort