You did not tell about RECFM. One example with two input files of PO/FB/80 and PS/VB/210, result is written to PS/FB/210.
Cheers Michael //STEP0 EXEC PGM=IEFBR14 //SORTOUT DD DSN=HLQ.TEST.OUTPUT.FB210, // DISP=(NEW,CATLG,DELETE), // DCB=(DSORG=PS,RECFM=FB,LRECL=210), // SPACE=(CYL,(1,1)) //* //STEP1 EXEC PGM=ICETOOL //SYSOUT DD SYSOUT=* //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SYMNOUT DD SYSOUT=* //SORTOUT DD DSN=*.STEP0.SORTOUT,DISP=MOD //INFILE0 DD DSN=HLQ.TEST.FB80(MEMBER),DISP=SHR //INFILE1 DD DSN=HLQ.TEST.VB210,DISP=SHR //TOOLIN DD DATA,DLM=## COPY FROM(INFILE0) TO(SORTOUT) USING(CTL0) COPY FROM(INFILE1) TO(SORTOUT) USING(CTL1) ## //CTL0CNTL DD DATA,DLM=## * FB80 TO FB210 * NOTHING TO DO, BUT WE FILL X'40' INSTEAD OF X'00'. OUTFIL FNAMES=SORTOUT,BUILD=(1,80,130X'40') ## //CTL1CNTL DD DATA,DLM=## * VB210 TO FB210 * PREFIX WITH 'XXXX' INSTEAD OF RDW FROM RECFM=VB OUTFIL FNAMES=SORTOUT,BUILD=(C'XXXX',5,206),VTOF,VLFILL=X'40' ## // Von: "Hilario G." <[email protected]> An: [email protected] Datum: 2011-07-07 09:23 Betreff: How to obtain a file bigger than 80 chars from two inputs file Gesendet von: IBM Mainframe Discussion List <[email protected]> Hello folks, I need to obtain a file of 210 bytes that contain the content of two files: . First file is a PDS 80 bytes . Second file is a flat file 210 bytes I tryed to obtain via IEBGENER and ICETOOL but after some examples I never get the end file with the contents of both files. May anybody send me an example for it ? Kind Regards Hilario Garcia. ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
