gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
here is one way of getting the result
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAAA U V001_X_Y LLLLLLLLLLLLLL
A V1_Z OOOOO LLLLLLLLLLLLLLLLLLLL
VVVVVVVVVVV XXXX ZZ V2_CCC_PPP ZZZZZZZZ
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%00=(ENDBEFR=C' ',FIXLEN=20),
%01=(ENDBEFR=C' ',FIXLEN=20),
%02=(ENDBEFR=C' ',FIXLEN=20),
%03=(ENDBEFR=C' ',FIXLEN=20),
%04=(ENDBEFR=C' ',FIXLEN=20)),
BUILD=(%00,%01,%02,%03,%04)
OUTREC IFTHEN=(WHEN=(1,20,SS,EQ,C'_'),
BUILD=(1,20)),
IFTHEN=(WHEN=(21,20,SS,EQ,C'_'),
BUILD=(21,20)),
IFTHEN=(WHEN=(41,20,SS,EQ,C'_'),
BUILD=(41,20)),
IFTHEN=(WHEN=(61,20,SS,EQ,C'_'),
BUILD=(61,20)),
IFTHEN=(WHEN=(81,20,SS,EQ,C'_'),
BUILD=(81,20))
/*
|
Gerry |
|