ParagChouguley
Active User
Joined: 03 Feb 2007 Posts: 175 Location: PUNE(INDIA)
|
|
|
|
Here is a syncsort job for your requirement.
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HH20080607
DUD01
DGS01
DUD01
DGS01
TT2008060700004
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OMIT COND=(1,3,CH,EQ,C'DGS')
INREC FIELDS=(1,80,SEQNUM,5,ZD)
OUTREC IFTHEN=(WHEN=(1,2,CH,EQ,C'TT'),
BUILD=(1,10,(81,5,ZD,SUB,+2),EDIT=(TTTTT),65X)),
IFTHEN=(WHEN=NONE,
BUILD=(1,80))
/*
|
Output :
Code: |
HH20080607
DUD01
DUD01
TT2008060700002
|
--Parag |
|