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/80)
//OUT DD DSN=... output file (FB/320)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(321,8,CH) KEEPNODUPS WITHEACH -
WITH(81,80) WITH(161,80) WITH(241,80) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,RECORDS=4,PUSH=(321:ID=8,SEQ=1)),
IFTHEN=(WHEN=(329,1,ZD,EQ,2),BUILD=(81:1,80,321:321,8)),
IFTHEN=(WHEN=(329,1,ZD,EQ,3),BUILD=(161:1,80,321:321,8)),
IFTHEN=(WHEN=(329,1,ZD,EQ,4),BUILD=(241:1,80,321:321,8))
OUTFIL FNAMES=OUT,BUILD=(1,320)
/*
|
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
With z/OS DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct,2010), you can now use the new RESIZE operator of DFSORT's ICETOOL do this more easily like this:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/80)
//OUT DD DSN=... output file (FB/320)
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(320)
/*
|
For complete details on the new functions for DFSORT and DFSORT's ICETOOL available with the Oct, 2010 PTF, see:
www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000242 |
|
