krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
You can use a DFSORT job like this:
Code: |
//CRESYMN EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=&&TEMP1,DISP=(,PASS),SPACE=(TRK,(1,1)),UNIT=SYSDA
//SYSIN DD *
OPTION COPY
OUTFIL NODETAIL,REMOVECC,
TRAILER1=(C'TCOUNT,+',COUNT=(EDIT=(TTTTTTTT)))
/*
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&TEMP1,DISP=(OLD,PASS)
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(81,8,ZD,EQ,2),
BUILD=(3:C'VISAC',3,52)),
IFTHEN=(WHEN=(81,8,ZD,EQ,TCOUNT),
BUILD=(8:3,51)),
IFTHEN=(WHEN=(81,8,ZD,GT,2),
BUILD=(8:3,52))
/*
|
|
|