John, Hey, you missed your opportunity to mention Co:Z todsn and fromdsn :-)
// EXEC DTLSPAWN //IN DD DSN=HLQ.VB.DSN,DISP=SHR //OUT DD DSN=HLQ.FB.DSN,DISP=(NEW,CATLG), // DCB=(LRECL=80,RECFM=FB), ...... //STDIN DD * fromdsn //DD:IN -b -l ibmrdw | todsn //DD:OUT -b -l none -p 0x00 // Kirk Wolf Dovetailed Technologies On Fri, Sep 26, 2008 at 1:23 PM, John McKown <[EMAIL PROTECTED]> wrote: > 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 > > ---------------------------------------------------------------------- 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
