> DCB=(RECFM=U,LRECL=200,BLKSIZE=27998) Despite the LRECL, I take this to mean that the records can be up to 27998.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Farley, Peter x23353 <peter.far...@broadridge.com> Sent: Wednesday, June 12, 2019 7:08 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? Hi Sri, Tried that, the first step works without a problem but the second one fails with a SYNAD error, "WRNG.LN.RECORD". I found out that some of the records are actually up to 225 or so bytes, and changed the "200" values to 250 but still got the SYNAD error. The actual physical records are varying length but with no BDW/RDW prefix, the physical blocks are no more than about 225 bytes long, some as short as 50 bytes or so. A Rexx script did the job with no errors though. Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sri h Kolusu Sent: Wednesday, June 12, 2019 3:21 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? EXTERNAL EMAIL > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
