vvmanyam
New User
Joined: 16 Apr 2008
Posts: 86
Location: Bangalore
|
|
|
|
Hi,
Please find this jcl with out icetool.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.BALU1,DISP=SHR
//SORTOUT DD DSN=OUTPUT.BALU1,DISP=(NEW,CATLG,DELETE),
// AVGREC=K,SPACE=(90,(40,40),RLSE),
// RECFM=FB,LRECL=80
//SYSIN DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(76:C'F')
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=OUTPUT.BALU1,DISP=SHR
// DD DSN=INPUT.BALU2,DISP=SHR
//SORTOUT DD DSN=OUTPUT.BALU2,DISP=(NEW,CATLG,DELETE),
// AVGREC=K,SPACE=(80,(40,40),RLSE),
// RECFM=FB,LRECL=80
//SYSIN DD *
INREC OVERLAY=(71:C'00001')
SORT FIELDS=(1,5,CH,A)
SUM FIELDS=(71,5,ZD)
OUTFILE FNAMES=SORTOUT,BUILD=(1,70,10X),INCLUDE=(71,6,CH,EQ,C'00001F')
//*
|
But with icetool we can do it in one step.... 
Thanks,
Balu |
|
Tharageshwari Marukkutti
New User
Joined: 10 Oct 2007
Posts: 12
Location: India
|
|
|
|
Hi Babu,
Thanks Very much for your Kind Response..It work fine and gives the expected Output.
Like to give a little enhancement over your JCL to give the Output ,if the Input File contains Duplicates.
In step1
//SYSIN DD *
SORT FIELDS=(1,5,CH,A)
SUM FIELDS=NONE
OUTREC OVERLAY=(10:C'W')
/* |
|
