On 29 Jan 2007 09:44:00 -0800, [EMAIL PROTECTED] (Frank Yaeger) wrote: Could you explain what you're doing here?
>//S1 EXEC PGM=ICETOOL >//TOOLMSG DD SYSOUT=* >//DFSMSG DD SYSOUT=* >//IN DD DSN=... input file (FB/80) >//CTL2CNTL DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS) >//OUT DD DSN=... output file (FB/80) >//TOOLIN DD * >COPY FROM(IN) TO(CTL2CNTL) USING(CTL1) >COPY FROM(IN) TO(OUT) USING(CTL2) >//CTL1CNTL DD * > INREC OVERLAY=(81:SEQNUM,8,ZD) > OUTFIL FNAMES=CTL2CNTL,INCLUDE=(1,2,BI,EQ,X'0000'), > BUILD=(C' OPTION COPY,STOPAFT=',81,8,80:X) >/* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
