Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
OUTFIL IFOUTLEN=80,
IFTHEN=(WHEN=(34,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3,/,
1,6,22,3,/,1,6,25,3,/,1,6,28,3,/,1,6,31,3,/,1,6,34,3)),
IFTHEN=(WHEN=(31,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3,/,
1,6,22,3,/,1,6,25,3,/,1,6,28,3,/,1,6,31,3)),
IFTHEN=(WHEN=(28,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3,/,
1,6,22,3,/,1,6,25,3,/,1,6,28,3)),
IFTHEN=(WHEN=(25,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3,/,
1,6,22,3,/,1,6,25,3)),
IFTHEN=(WHEN=(22,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3,/,
1,6,22,3)),
IFTHEN=(WHEN=(19,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3,/,1,6,19,3)),
IFTHEN=(WHEN=(16,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3,/,1,6,16,3)),
IFTHEN=(WHEN=(13,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3,/,1,6,13,3)),
IFTHEN=(WHEN=(10,3,CH,NE,C' '),
BUILD=(1,6,7,3,/,1,6,10,3)),
IFTHEN=(WHEN=(7,3,CH,NE,C' '),
BUILD=(1,6,7,3))
/*
|
|
|