Well, ............................... The physical read against the device will be getting a program check
Rather than issuing CHECK without a SYNAD, issue a WAIT on the ECB. You can then examine the post code and the bits in the DECB, If the error is incorrect length, ignore it. On Thu, 19 Oct 2017 19:16:47 +0200 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. :> :>Thanks a lot. :>Massimo -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies.
