мейнфрейм - создать отчет с суммой определенных полей

У меня есть VSAM, который

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

• 4-байтовое двоичное целое число без знака, представляющее 8-значный номер счета (например, 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 я могу это сделать? Спасибо.


mainframe jcl dfsort
person Tri Nguyen    schedule 18.11.2017    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Попробуй это:

//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)
/*

Подробнее о SECTIONS, HEADER3 и TRAILER3 можно узнать по этой ссылке: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.iceg200/ice2cg_Sections.htm

person user6542823    schedule 18.11.2017
comment
Нвм, разобрался. Большое спасибо. - person Tri Nguyen; 18.11.2017