Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/260)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=... output file (FB/50)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(T1) TO(OUT) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
BUILD=(1,7,C' 1',8,40,/,
1,7,C' 2',48,40,/,
1,7,C' 3',88,40,/,
1,7,C' 4',128,40,/,
1,7,C' 5',168,40,/,
1,7,C' 6',208,40,/,
1,7,C' 7',248,13)
/*
//CTL2CNTL DD *
OMIT COND=(11,40,CH,EQ,C' ')
/*
|
|
|
