Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
dick scherrer,
If hard coding 24 headers is what OP wants then here is a job which puts a header at every 40th record.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=input 80 byte file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,START=25,INCR=25))
OUTFIL IFOUTLEN=80,
IFTHEN=(WHEN=(81,8,ZD,EQ,01000),BUILD=(C'* ABCDEF - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,02000),BUILD=(C'* GHIJKL - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,03000),BUILD=(C'* MNOPQR - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,04000),BUILD=(C'* STUVWX - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,05000),BUILD=(C'* YZABCD - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,06000),BUILD=(C'* EFGHIJ - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,07000),BUILD=(C'* KLMNOP - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,08000),BUILD=(C'* QRSTUV - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,09000),BUILD=(C'* WXYZAB - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,10000),BUILD=(C'* CDEFGH - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,11000),BUILD=(C'* IJKLMN - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,12000),BUILD=(C'* OPQRST - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,13000),BUILD=(C'* UVWXYZ - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,14000),BUILD=(C'* 123456 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,15000),BUILD=(C'* 789012 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,16000),BUILD=(C'* 345678 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,17000),BUILD=(C'* 901234 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,18000),BUILD=(C'* 567890 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,19000),BUILD=(C'* A1B1C1 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,20000),BUILD=(C'* D1E1F1 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,21000),BUILD=(C'* G1H1I1 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,22000),BUILD=(C'* J1K1L1 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,23000),BUILD=(C'* M1N1O1 - *',/,1,80)),
IFTHEN=(WHEN=(81,8,ZD,EQ,24000),BUILD=(C'* P1Q1R1 - *',/,1,80))
/* |
|
|