Code: Select all
//SUR0008 JOB 'BYTELLER'
//TOOLRUN EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=A
//DFSMSG DD SYSOUT=A
//TOOLIN DD *
SORT FROM(TXNOFFLD) TO(SORTTEMP) USING(CTL1)
DISPLAY FROM(SORTTEMP) LIST(REPORT) -
TITLE('PAYMENTS BY TELLER') -
BTITLE('TRANSFER TYPE') BREAK(71,2,CH) -
HEADER('TELLER') ON(23,8,CH) -
HEADER('PAYMENTS') ON(60,11,ZD) -
BLANK -
BETWEEN(8) -
BTOTAL('SUBTOTAL:')
/*
//CTL1CNTL DD *
INCLUDE COND=(31,1,CH,EQ,C'P',
AND,71,2,CH,EQ,C'AA',
AND,71,2,CH,EQ,C'AB',
AND,71,2,CH,EQ,C'BA')
SORT FIELDS=(71,2,ZD,A,23,8,ZD,A)
RECORD TYPE=F
/*
//TXNOFFLD DD DSN=SURCICS.ZEUSBANK.TXNOFFLD,DISP=SHR
//SORTTEMP DD DSN=&&SORTTEMP,DCB=SURCICS.ZEUSBANK.TXNOFFLD
//REPORT DD SYSOUT=A
Output
PAYMENTS BY TELLER
TELLER PAYMENTS
SDFS
Select all
CE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 00
CE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
CE201I 1 RECORD TYPE IS F - DATA STARTS IN POSITION 1
CE751I 0 C5-BASE C6-BASE C7-BASE C8-I29500 E4-BASE C9-BASE E5-I29500
CE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
CE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
CE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R2 - 19:22 ON TUE AP
INCLUDE COND=(31,1,CH,EQ,C'P',
AND,71,2,CH,EQ,C'AA',
AND,71,2,CH,EQ,C'AB',
AND,71,2,CH,EQ,C'BA')