On Thu, Oct 19, 2017 at 12:16 PM, Massimo Biancucci <[email protected]> wrote:
> Hi everybody, > > I'm trying to read byte-by-byte (or groups) a RECFM=U dataset with a READ > macro. > > I read the post-answer by Steve Myers: > http://ibmmainframes.com/about63436.html > > and everything was ok up to a small change in order to read some bytes and > not the entire block. > > READ IDECB,SF,IDCB,(10),'S' everything is OK > > READ IDECB,SF,IDCB,(10),4 S001 > > What i obtain is a S001-1 > > IEC020I 001-1,J48017J,ST020,INPUT,A477,PRZZ9F, > IEC020I JZPT.SQBN0G.J48017.SMF30.U > IEC020I NO ERROR HANDLING, (SYNAD), EXIT SPECIFIED > > It seems that specifying the number of bytes is allowed for RECFM=U. > > Any hint ? > > To be clear, I've a file with a VBS format (BDW+RDW+data) in a undefined > format and need to go back to a VBS dataset. > Well, my first thought is to simply override the RECFM=U by using RECFM=VBS,LRECL=?,BLKSIZE=? in your DCB. This assumes that the file truly is VBS. If you insist on reading the data with RECFM=U, then read here: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/len99.htm There is some example code. > > Thanks a lot. > Massimo > -- I just child proofed my house. But the kids still manage to get in. Maranatha! <>< John McKown
