On Mon, 17 Dec 2007 13:17:40 -0500 "Logan, David" <[EMAIL PROTECTED]> wrote:
:>Actually, my server and client code all work fine with a non-system LX, :>so I had not felt the need to post my client code. Not only that, but my :>client code is virtually non-existent. All I did was write the LX value :>into a name/token pair in the server, and client went and got it, and :>called the LX value in the PC routine, since I only provide one service :>with an entry number of zero. Seems like you commented out the AXSET. AX 1 does not need to be reserved. :>However, when I try to force AX=1, I get a S052/103, using this code: :> :> MVC AXCOUNT,=H'1' :> MVC AXVALUE,=H'1' :> MODESET MODE=SUP :>GETAX DS 0H :>* AXRES AXLIST=AXL,RELATED=FREEAX :>*ETAXV AXSET AX=AXVALUE,RELATED=(GETAX,SETAX) :>* MVC LXCOUNT,=F'1' :>GETLX LXRES LXLIST=LXL,RELATED=FREELX,SYSTEM=YES :> L 5,PCRTNADR :> LH 6,AXVALUE :> ETDEF TYPE=SET,ETEADR=ETD1,ROUTINE=(5),EAX=(6),AKM=(0:15), X :> SSWITCH=YES,STATE=SUPERVISOR,EKM=(0:15),PKM=OR, X :> ASCMODE=AR :>CET1 ETCRE ENTRIES=ETDESC :> ST 0,TKVALUE :> MODESET MODE=PROB :> EDCEPIL :>ETDESC ETDEF TYPE=INITIAL,RELATED=(CET1) :>ETD1 ETDEF TYPE=ENTRY,ROUTINE=0,SSWITCH=YES,STATE=SUPERVISOR, X :> EKM=(0:15),PKM=OR,AKM=(0:15),ASCMODE=AR :> ETDEF TYPE=FINAL :> LTORG :> :>My client code only does: :>CALLPCR CSECT :> CALLPCR AMODE 31 :> CALLPCR RMODE ANY :> EDCPRLG :> L 14,0(,1) :> L 14,0(,14) LXVALUE IN R1 (PC VALUE) :> LA 1,4(,1) POINT PARMLIST PAST LXVALUE :> PC 0(14) :> EDCEPIL :> LTORG -- 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
