Hi folks, I solve the problem using next JCL:
//STEP1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=file80,DISP=SHR //IN2 DD DSN=file210,DISP=SHR //OUT DD DSN=file210.output, // DISP=(MOD,CATLG,DELETE),UNIT=SYSDA, // DCB=(LRECL=210,RECFM=FB) //TOOLIN DD * COPY FROM(IN1) TO(OUT) COPY FROM(IN2) TO(OUT) USING(CTL1) //CTL1CNTL DD * INREC FIELDS=(1,210) /* I thank all who have given me ideas. Thank you very much everyone. Regards Hilario Garcia ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html