> We have a vendor-generated file that comes in with > DCB=(RECFM=U,LRECL=200,BLKSIZE=27998) (don't ask why please, this > DCB setting is out of our hands).
Peter, Give this JCL a try and see if it works for you //*************************************************************** //* COPY RECFM=U TO MATCH THE LRECL AND BLKSIZE * //*************************************************************** //STEP0100 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INP DD DISP=SHR,DSN=Your input RECFM=U file, // RECFM=U,LRECL=200,BLKSIZE=27998 //OUT DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE), // RECFM=U,BLKSIZE=27800 //SYSIN DD * REPRO INFILE(INP) OUTFILE(OUT) //* //*************************************************************** //* OVERRIDE THE LRECL AND RECFM FOR THE COPIED JCL TO FORMAT * //* IT TO 200 BYTE output * //*************************************************************** //STEP0200 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INP DD DISP=(OLD,PASS),DSN=&&T1,LRECL=200,RECFM=FB,BLKSIZE=27800 //OUT DD SYSOUT=*,LRECL=200,RECFM=FB,BLKSIZE=27800 //SYSIN DD * REPRO INFILE(INP) OUTFILE(OUT) //* Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
