Hilario G. at IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> wrote on 07/18/2011 11:57:52 AM: > The additional information for the problem are: > > 1) FILE1 MEMBER OF A PDS LRECL=80. FB > 2) FILE2 PS LRECL=210, FB > 3) OUTPUT=FILE1+FILE2 PS,LRECL=210, FB > > FILE1 contains the header data for SMTP protocol. > FILE2 is the attached file sentd via SMTP. > > I need to merge FILE1 (LRECL 80, FB) with data file FILE2 (LRECL > 210, FB) to obtain a PS (LRECL 210, RECFM=FB)- > > I hope that anybodoy can help me.
I thought I had already helped you. Anyway, you can use a DFSORT/ICETOOL job that like this: //S1 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=pds(member),... (FB/80) //IN2 DD DSN=... input file2 (FB/210) //OUT DD DISP=(MOD,CATLG,DELETE),DSN=... output file (FB/210) //TOOLIN DD * COPY FROM(IN1) TO(OUT) USING(CTL1) COPY FROM(IN2) TO(OUT) //CTL1CNTL DD * INREC OVERLAY=(210:X) /* Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort ---------------------------------------------------------------------- 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