Thanks John & all who responded,
This does exactly what I needed. The TSO XMIT was a good idea
too, but I think it put some extra control junk on the front of the
file. The freeware package would have been my next try, but I may not
have been permitted to use that. I agree that the best solution would be
to write something, but this is kind of a proof-of-concept thing so the
FTP to myself will at least give me the right format to start.
Just trying to drive from the back seat,
George Sproull
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of John McKown
Sent: Friday, September 26, 2008 14:24
To: [email protected]
Subject: Re: Squashing VB records into FB
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
