On Fri, 26 Sep 2008 11:22:45 -0400, Sproull, George CTR DISA GS4B14 <[EMAIL PROTECTED]> 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 >[EMAIL PROTECTED] The following will work, but I doubt that it is what you really want: //STEP1 EXEC PGM=FTP, // REGION=0M, // PARM='(EXIT' //SYSPRINT DD SYSOUT=* //OUTPUT DD SYSOUT=* //INPUT DD * 127.0.0.1 userid password bin sendsite ; turn off automatic sending of SITE command site wrap ; wrap the records locsite rdw ; send the RDW as data lcd pds.vba255 ; where the member exists cd pds.cntl ; where we are placing the reformatted member put $cpu /* Note that the "locsite" is needed for the "rdw" parameter. Putting the "rdw" in the "site" won't work correctly for some reason. -- John ---------------------------------------------------------------------- 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
