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 *
101 N data1
205 Y data2
307 N data3
101 Y data4
309 N data5
205 Y data6
307 N data7
119 Y data8
101 N data9
/*
//**> OUT MUST BE A MOD DATA SET
//OUT DD DISP=MOD,DSN=... output file (FB/80)
//TOOLIN DD *
SORT FROM(IN) TO(OUT) USING(CTL1)
SORT FROM(IN) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
OPTION EQUALS
INREC IFTHEN=(WHEN=(6,1,CH,EQ,C'N'),
OVERLAY=(81:SEQNUM,8,ZD,89:C'1')),
IFTHEN=(WHEN=(6,1,CH,EQ,C'Y'),
OVERLAY=(81:SEQNUM,8,ZD,89:C'2'))
SORT FIELDS=(6,1,CH,A,81,8,ZD,A)
OUTFIL REMOVECC,
BUILD=(1,80),
SECTIONS=(6,1,HEADER3=(/,'Section ',89,1))
/*
//CTL2CNTL DD *
SORT FIELDS=(6,1,CH,A,1,3,CH,A)
OUTFIL REMOVECC,NODETAIL,
HEADER2=(/,'summary section',/,X,/,
'TRANSACTION TYPE NUMBER',/,
'----------------- ------- ----------'),
SECTIONS=(1,6,
TRAILER3=(1,3,20:6,1,28:COUNT=(M10,LENGTH=10)))
/*
|
|
|