Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Sai,
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/10)
//OUT DD DSN=... output file (FB/30)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(31,1,CH) -
WITHEACH WITH(11,10) WITH(21,10) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(31:C'A',32:SEQNUM,1,ZD)),
IFTHEN=(WHEN=(32,1,ZD,EQ,+2),OVERLAY=(11:1,10)),
IFTHEN=(WHEN=(32,1,ZD,EQ,+3),OVERLAY=(21:1,10))
OUTFIL FNAMES=OUT,BUILD=(1,30)
/*
|
|
|
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 to do this quite easily like this:
| Code: |
//NEW EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/10)
//OUT DD DSN=... output file (FB/30)
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(30)
/*
|
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 |
|
