Well, I found that I could not release 2 records into the Copy from INREC. So here is what I did to produce all the output. Kolusu, if you have an easier way, I would be happy to learn and adapt!
This is what I did to get what I needed:
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=260,IFTHEN=(WHEN=(1,1,CH,EQ,C'>'),
BUILD=(01,100,
55,32,SQZ=(SHIFT=LEFT),
88,06,
C',',
49,03,
04,04,UFF,EDIT=(TTTT),
SEQNUM,1,BI,START=193,RESTART=(55,32),
180:X,
C'>',
55,32,SQZ=(SHIFT=LEFT),
88,06,
260:X))
OUTFIL FNAMES=SORTOUT,BUILD=(01,100)
OUTFIL FNAMES=SORTCMD1,INCLUDE=(1,1,CH,EQ,C'>'),
BUILD=(101,79,SQZ=(SHIFT=LEFT,
LEAD=C'-UTL COPY,TABLE,'))
OUTFIL FNAMES=SORTCMD2,INCLUDE=(1,1,CH,EQ,C'>'),
BUILD=(181,79,SQZ=(SHIFT=LEFT,
LEAD=C'-RPT FIELD,TABLE,'))
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
