On Mon, 17 Dec 2007 21:59:21 -0800 Henry Willard <[EMAIL PROTECTED]> wrote:
:>"Logan, David" wrote: :>> Even with my AXSET, I still get a S052/319 ABEND at the "ETCRE" macro. I :>> have no idea why. My code looks right based on what I think I know. What :>> am I doing wrong? :>> MODESET MODE=SUP,KEY=ZERO :>> GETAX DS 0H :>> LA 6,1 :>> AXSET AX=(6) :>> MVC LXCOUNT,=F'1' :>> GETLX WTO 'BEFORE LXRES' :>> XETLX LXRES LXLIST=LXL,SYSTEM=YES :>> WTO 'AFTER LXRES' :>> L 5,PCRTNADR :>> 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 :>> WTO 'AFTER ETDEF' <-- Last WTO to be written :>> CET1 ETCRE ENTRIES=ETDESC :>> WTO 'AFTER ETCRE' :>> ST 0,TKVALUE :>> MODESET MODE=PROB,KEY=NZERO :>> EDCEPIL :>Get rid of the EAX altogether. Ditto. You will be running with AX=1 in the PC routine. Also, you will need an ETCON. -- 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
