On Thu, 8 Sep 2005 04:25:30 -0700 mary george <[EMAIL PROTECTED]> wrote:
:>All, :> :>I am trying to write a pc routine accessible to selected address spaces. :>As an initial step I had coded the following as per the ext addressability guide: :>MODESET KEY=ZERO,MODE=SUP :>LA 2,1 :>STH 2,AXCOUNT :>GETAX AXRES AXLIST=AXL,RELATED=FREEAX :> LTR 15,15 :> BNZ AXERR :> SETAX AXSET AX=AXVALUE,RELATED=(GETAX,SETAX) :> LA 2,1 :> ST 2,LXCOUNT :>GETLX LXRES LXLIST=LXL,RELATED=FREELX :>CET1 ETCRE ENTRIES=ETDESC,RELATED=(CONET,DISET1,DESET1) :> ST 0,TKVALUE :> B RET :>AXERR WTO 'ERROR' :>RET L 13,SAVE+4 :> RETURN (14,12),,RC=0 :>SAVE DS 18F :>ETDESC ETDEF TYPE=INITIAL,RELATED=(CET1) :> ETDEF TYPE=ENTRY,PROGRAM='MEEN',STATE=SUPERVISOR, :> AKM=(0:15) :> ETDEF TYPE=FINAL :>LXL DS 0F :>LXCOUNT DC F'1' NO OF LX REQUESTED :>LXVALUE DS F LX RETURNED BY LXRES :>AXL DS 0F AX LIST :>AXCOUNT DS H NUMBER OF AXS REQUESTED :>AXVALUE DS H AX RETURNED BY AXES :>TKL DS 0F TOKEN LIST :>TKCOUNT DS F NUMBER OF ETS CREATED :>TKVALUE DS F TOKEN RETURNED BY ETCRE :> END :>Still LXRES its through.I am getting an error S052 with reason code 312 after that. The 0312 is on the ETCRE Where is the 'MEEN' loadmodule? -- 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