On Fri, 26 Sep 2008, Sproull, George CTR DISA GS4B14 wrote: > Hi, > Is there a native z/OS utility that would take in a file of the > following VB format (for example): > > First VB record = |rdw1|record1-40 bytes| > Next VB record = |rdw2|record2-200 bytes| > Last VB record = |rdw3|record3-10 bytes| > > and output a file in the following FB LRECL=80 format: > > First FB record = |rdw1|record1-40bytes|rdw2|record2-(1st 32bytes)| > Next FB record = |record2-(bytes 33-112)| > Next FB record = |record2- (bytes 113-192)| > Last FB record = |record2- (bytes 193-200)|rdw3|record3-10 > bytes|padding to 80 char| > > In other words, squash the VB records with their RDW fields into spanned > FB records of a given length. > > Thanks in advance, > George Sproull
I posted via the Web interface, but haven't seen it yet. So I'll try regular email. Though not what you'd likely want to do, this can be done using FTP. //STEP1 EXEC PGM=FTP,PARM='(EXIT' //SYSPRINT DD SYSOUT=* //OUTPUT DD SYSOUT=* //INPUT DD * 127.0.0.1 USERID PASSWORD SITE WRAP ; WRAP LONG RECORDS LOCSITE RDW ; SEND RDWS AS DATA SENDSITE ; TURN OFF GENERATED SITE COMMAND SITE LRECL=80 RECFM=FB PRI=? SEC=? CYLINDERS PUT 'variable.file' 'fixed.file' /* // Note: it is important to use LOCSITE RDW and __not__ SITE RDW. The first way works. The second does not work. -- Q: What do theoretical physicists drink beer from? A: Ein Stein. Maranatha! John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
