I have been working out to get an output like this but not getting it worked.
Code: Select all
02/03/2016 3
02/02/2016 2
Code: Select all
02/03/2016 123456791
02/03/2016 347898292
02/03/2016 666536724
02/02/2016 123489646
02/02/2016 141456878
Code: Select all
02/03/2016 3
02/02/2016 2
Code: Select all
02/03/2016 123456791
02/03/2016 347898292
02/03/2016 666536724
02/02/2016 123489646
02/02/2016 141456878
doing it in the right way ( with the appropriate sort control statements)How can I get it working? Please advise.
Code: Select all
//STEP010 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INPUT DD *
02/03/2016 123456791
02/03/2016 347898292
02/03/2016 666536724
02/02/2016 123489646
02/02/2016 141456878
/*
//TEMP1 DD DSN=&&T1,DISP=(,PASS)
//OUTPUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(INPUT) TO(TEMP1) ON(1,10,CH) FIRST
SORT FROM(TEMP1) TO(OUTPUT) USING(CTL1)
//CTL1CNTL DD *
INREC FIELDS=(1,10,2X,C'00000001')
SORT FIELDS=(1,10,CH,A)
SUM FIELDS=(13,8,ZD)
OUTREC FIELDS=(1,10,,2X,13,8)
/*
Code: Select all
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
02/03/2016 123456791
02/03/2016 347898292
02/03/2016 666536724
02/02/2016 123489646
02/02/2016 141456878
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,10,CH,A)
SUM FIELDS=NONE
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,10,
TRAILER3=(1,10,COUNT))
/*
Code: Select all
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,10,
TRAILER3=(1,10,COUNT))
/*
You need to be a member in order to post a reply
Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute