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=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/500)
//SORTOUT DD DSN=... output file (FB/500)
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(501:7C'000')),
IFTHEN=(WHEN=(1,3,ZD,EQ,10),OVERLAY=(501:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,20),OVERLAY=(504:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,30),OVERLAY=(507:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,40),OVERLAY=(510:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,50),OVERLAY=(513:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,60),OVERLAY=(516:C'001')),
IFTHEN=(WHEN=(1,3,ZD,EQ,70),OVERLAY=(519:C'001'))
OUTFIL REMOVECC,
BUILD=(1,500),
TRAILER1=(87C'9',
88:TOT=(501,3,ZD,TO=ZD,LENGTH=3),
91:TOT=(504,3,ZD,TO=ZD,LENGTH=3),
94:TOT=(507,3,ZD,TO=ZD,LENGTH=3),
97:TOT=(510,3,ZD,TO=ZD,LENGTH=3),
100:TOT=(513,3,ZD,TO=ZD,LENGTH=3),
103:TOT=(516,3,ZD,TO=ZD,LENGTH=3),
106:TOT=(519,3,ZD,TO=ZD,LENGTH=3))
/*
|
|
|