On Thu, 27 Jul 2006 19:09:37 -0500 Paul Schuster <[EMAIL PROTECTED]> wrote:
:>I have a AMODE 31 RMODE ANY program that dynamically allocates an existing :>PDS with DISP=SHR and NDISP=KEEP. :>I create a DCB in 24bit storage, and issue OPEN like this: :>OPEN ((R3),INPUT),MODE=31 :>The OPEN completes RC=0. :>With very little intervening code (a WTO, but no READ of the data set) :>I issue this: :>CLOSE ((R3)),MODE=31 :>R3 does point to the DCB, but the CLOSE gets RC=4. :>I get messages like this: :>IEC223I 04,IFG0200V,INIT,,UNKNOWN :>IEC999I IFG0TC0A,IFG0TC0B,INIT , ,DEB ADDR = 7BDD94,DSN = :>thedsnthatwasopened Show the intervening code. -- 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. ---------------------------------------------------------------------- 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
