Thanks to everybody for your support. Finally I succeded in reading the file, interpreting the BDW and writing back the original format.
Steve you were right, it seems we can only read blocks event though the macro made me "dream" about it. The S001 disappeared if, after the first block read with 'S' , I try to read some bytes, anyway it reads the whole block again. John, I tried to overlay the DCB and, as you surely planned, the file was not a good pure VBS so there's no chance to read it properly (but the first N blocks). Regards. Massimo 2017-10-19 19:16 GMT+02:00 Massimo Biancucci <[email protected]>: > 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. > > Thanks a lot. > Massimo >
