Hmmm, 2 ines of REXX in batch, a couple more if run interactively for the ALLOC statements...
On Thu, Jun 13, 2019 at 5:21 AM Sri h Kolusu <[email protected]> wrote: > > 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 [email protected] with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
