Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
sameer
If DATASORT does work at your shop.. You can use below..
Assuming record length 80
Code: |
//STEP0100 EXEC PGM=SORT
//SORTIN DD *
H
370000000030
370000000004
370000000050
370000000001
370000000020
T
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(81,1,CH,A,20,13,CH,A)
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'2')),
IFTHEN=(WHEN=(1,1,CH,EQ,C'H'),OVERLAY=(81:C'1')),
IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),OVERLAY=(81:C'3'))
OUTFIL BUILD=(1,80)
/*
|
|
|