Does the following come close?
Use IEBGENER to unblock the data. Now each record has a BDW and
RDW.
FTP the unblocked data in binary to a unix or windows system
that will treat the data as a stream. Override the DCB so that it is
treated as RECFM=U (so that the BDW and RDW survive intact).
FTP the data back to z/OS in binary specifying RECFM=FB and
LRECL=274 (250 data bytes in each three record set plus 24 bytes for the
three BDW/RDW pairs).
Use DFSORT to split each FB record to four new LRECL=80 FB
records. First is bytes 5 through 48 and bytes 53 through 88. Second
is bytes 89 through 168. Third is bytes 169 through 248. Fourth is
bytes 249 through 256 and bytes 261 through 274 and 58 bytes of padding.
Frank will probably chime in with a way to do it all at once using only
DFSORT.
-----Original Message-----
From: Sproull, George CTR DISA GS4B14
Sent: Friday, September 26, 2008 8:23 AM
To: [email protected]
Subject: Squashing VB records into FB
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.
----------------------------------------------------------------------
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
