Well, 6 lines (DO WHILE RC = 0 ... END added for one-record-at-a-time processing, plus 2 EXECIO ... (FINIS at the end.
Overkill, I know, but that's just me. Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Wayne Bickerdike Sent: Wednesday, June 12, 2019 4:32 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Is there any way to convert RECFM=U to RECFM=V with a utility or script? 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 <skol...@us.ibm.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
