大型机 - 生成包含特定字段总和的报告

Question

我有一个 VSAM

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

• 表示 8 位帐号的 4 字节二进制无符号整数（例如 12345678）

• 保存账户当前余额的 4 字节有符号整数

• 32 字节 EBCDIC 字符帐户所有者名称（例如“PAT JONES”），右侧空白填充

我想生成如下报告

我正在尝试这样做

  INCLUDE COND=(1,7,CH,EQ,C'some sortcode')                              
  SORT FIELDS=(1,7,CH,A)                                            
  SUM FIELDS=(9,2,BI)

但是有很多排序代码。我正在考虑对所有输入进行排序，然后在这些排序代码行的正下方将具有相同排序代码的每条记录加在一起。 JCL 有什么办法可以做到这一点吗？谢谢

Answer 1

试试这个：

//SORTSTEP EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN   DD DSN=YourInputDataset,DISP=SHR
//SORTOUT  DD DSN=YourOutputDataset,
//          DISP=(NEW,CATLG,DELETE)
//SYSIN  DD *
  SORT FIELDS=(1,4,BI,A)
  INREC BUILD=(1,4,BI,TO=ZD,LENGTH=6,5,4,9,4,13,32)
  OUTFIL REMOVECC,
         SECTIONS=(1,6,
         HEADER3=(1:C'LIST OF BANK BY BRANCH',/,X,/,
                  1:C'SORTCODE:    ',1,6,/,X,/,
                  1:C'ACCOUNT',10:C'BALANCE',20:C'OWNER NAME',/,
                  1:C'-------',10:C'-------',20:C'----------'),
         TRAILER3=(X,/,
      1:C'BRANCH TOTAL: ',16:TOT=(11,4,BI,EDIT=(SIIIITTT),SIGNS=(,-)))),
         TRAILER1=(X,/,1:C'GRAND TOTAL: ',TOT=(11,4,BI,
                        EDIT=(SIIIITTT),SIGNS=(,-))),
        OUTREC=(1:7,4,BI,TO=ZD,LENGTH=8,10:11,4,BI,EDIT=(SIIIITTT),
                        SIGNS=(,-),20:15,32)
/*

您可以在此 link 找到有关 SECTIONS、HEADER3 和 TRAILER3 的更多信息：https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.iceg200/ice2cg_Sections.htm

大型机 - 生成包含特定字段总和的报告

mainframe - generate a report with sum of particular fields

mainframe

jcl

dfsort