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 (VB/455)
//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) USING(CTL2)
/*
//CTL1CNTL DD *
OMIT COND=(5,1,CH,EQ,C'0')
OUTFIL FNAMES=T1,VTOF,BUILD=(5,451)
/*
//CTL2CNTL DD *
OUTFIL FNAMES=OUT,IFOUTLEN=50,
IFTHEN=(WHEN=(1,1,CH,EQ,C'1'),
BUILD=(2,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
BUILD=(2,50,/,52,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'3'),
BUILD=(2,50,/,52,50,/,102,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'4'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'5'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50,/,
202,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'6'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50,/,
202,50,/,252,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'7'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50,/,
202,50,/,252,50,/,302,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'8'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50,/,
202,50,/,252,50,/,302,50,/,352,50)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'9'),
BUILD=(2,50,/,52,50,/,102,50,/,152,50,/,
202,50,/,252,50,/,302,50,/,352,50,/402,50))
/*
|
|
|