Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Shouldn't the second output record have DESZ?
You can use a DFSORT/ICETOOL job like the following to do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
AAAA BGFW
BBBB ZSDE
CCCC ASDG
/*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=&&O1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SPLICE FROM(T1) TO(OUT) ON(1,4,CH) WITHEACH -
WITH(8,1) WITH(9,1) WITH(10,1) USING(CTL2)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
BUILD=(1,6,7,1,7,1,7,1,7,1,/,
1,6,8,1,8,1,8,1,8,1,/,
1,6,9,1,9,1,9,1,9,1,/,
1,6,10,1,10,1,10,1,10,1)
/*
//CTL2CNTL DD *
SORT FIELDS=(1,4,CH,A,7,1,CH,A)
/*
|
|
|
