Finally got my mount issue straightened out and got to try your suggestion. IDCAMS REPRO gave errors trying to copy to the Unix output file, but IEBGENER worked just fine.
This did not work: //STEP0100 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INP DD DISP=SHR,DSN=weird.recfmu.file, // RECFM=U,LRECL=222,BLKSIZE=222 //OUT DD PATH='/tmp/TMPFILE', // FILEDATA=TEXT,PATHDISP=(KEEP,DELETE), // PATHOPTS=(OWRONLY,OCREAT) //SYSIN DD * REPRO INFILE(INP) OUTFILE(OUT) REUSE // Results in this message in JESMSGLG: IEC141I 013-34,IGG0199G,TSOUSER9,STEP0100,OUT And these messages in SYSPRINT: REPRO INFILE(INP) OUTFILE(OUT) REUSE IDC3300I ERROR OPENING ...PATH=.SPECIFIED... IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN IDC0005I NUMBER OF RECORDS PROCESSED WAS 0 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IEBGENER with similar JCL works though: //STEP0100 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN= weird.recfmu.file, // RECFM=U,LRECL=222,BLKSIZE=222 //SYSUT2 DD PATH='/tmp/TMPFILE', // FILEDATA=TEXT,PATHDISP=(KEEP,DELETE), // PATHOPTS=(OWRONLY,OCREAT) //SYSIN DD DUMMY //* //STEP0200 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD PATH='/tmp/TMPFILE', // FILEDATA=TEXT,PATHDISP=(DELETE,KEEP), // PATHOPTS=(ORDONLY), // RECFM=V,BLKSIZE=254 //SYSUT2 DD DISP=(NEW,CATLG,CATLG), // DSN=not.weird.vb.copy, // UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE), // DSORG=PS,RECFM=VB,LRECL=254,BLKSIZE=0 //SYSIN DD DUMMY //* The "not.weird.vb.copy" file comes out as a normal VB file with all the right BDW/RDW prefixes and no LF or NL or other line delimiters at the end. Thank you! Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Farley, Peter x23353 Sent: Wednesday, June 12, 2019 7:24 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? Tried that too, but apparently my HFS file is having some trouble being mounted and I have to get the storage guys involved to fix it. Bureaucratic nightmare. When that's fixed I will definitely try it, thanks for the suggestion. Peter -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of John McKown Sent: Wednesday, June 12, 2019 4:51 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 Copy it to a UNIX file with FILEDATA=TEXT using IENGENER or other. Then copy it back to a PS dataset with appreciate LRECL and RECFM. The first step will copy each physical record to UNIX, and put a LF at the end to be a regular UNIX text file. The second step will copy the UNIX file back to FB or VB. If FB, it will pad with space. If VB, it will put the right LLBB at the front. On Wed, Jun 12, 2019, 14:06 Farley, Peter x23353 < peter.far...@broadridge.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). > > The records are actually variable length data, up to 200 bytes of > actual data with no length prefix (no RDW/BDW). No binary data, only > text characters. I suspect a *ix text-format file as the vendor > source but have no proof of that. > > We have tried every utility we could think of (IEBGENER, IDCAMS REPRO, > SORT INREC BUILD=(1,200)) to copy this data to a more usable z/OS > record format but so far nothing we tried works. > > Am I correct that only a Rexx or awk script could do this conversion > (given the update to Rexx to support RECFM=U files and awk's native > capabilities) or an HLL program coded to handle U-format input can do > this conversion? > > Any other ideas you have to help us perform the conversion without > writing an HLL program would be much appreciated. > > Peter -- 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
