Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007 Posts: 496 Location: USA
|
|
|
|
Hello Sudeep.
Assuming your file is FB/80, you can use the following SyncSort for z/OS 1.3.2 step:
Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE
//SORTOF01 DD DSN=DB2T.OUTPUT
//SORTOF02 DD DSN=DB2I.OUTPUT
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,4,CH,EQ,C'----'),PUSH=(81:63,4))
OUTFIL FILES=01,INCLUDE=(81,4,CH,EQ,C'DB2T'),BUILD=(1,80)
OUTFIL FILES=02,SAVE,BUILD=(1,80)
/* |
|
|