One other thing ... The AX used in the AXSET macro must have been previously AXRES'd prior to being used in the AXSET macro....
"The caller can use the value returned by the system as an AX through the AXSET macro, or as an extended authorization index (EAX) through the ETDEF, ETCRE, and ETCON macros. The AX value associated with a program determines whether that program is permitted to issue the PT instruction with another address space as the target, and/or set another address space as its secondary address space through the SSAR instruction. The EAX value determines whether a program running with the EAX can access data in another address space through a private access list entry" Joe On Sun, Feb 10, 2019 at 8:36 AM esst...@juno.com <esst...@juno.com> wrote: > I can't provide the entire program due to some contractual agreements. > So here is what I can show.There is only one AXSET and one LXRES macro in > this module.ANd yes the Dump has AXSET using R0, I did subsequently change > it to use R1. > *-------------------------------------------------------------------* > * Switch To Supervisor State > *-------------------------------------------------------------------* > MODESET MODE=SUP > *-------------------------------------------------------------------* > * Set the Address Space AX to a value of 1 > *-------------------------------------------------------------------* > MVC XMSFUNC,=CL8'AXSET ' > LA R1,1 Request AX Value of 1 > AXSET AX=(R1) > ST R15,RETURNCODE Save Return Code From XMS Call > BRAS R14,COMPLETION_CODE_CHECK > *-------------------------------------------------------------------* > * Reserve a Extended System LX > *-------------------------------------------------------------------* > MVC XMSFUNC,=CL8'LXRES ' > MVC XMSZLIST,LXRES00 Reentrant LXRES Parameter List > LHI R0,1 Request 1 LX > ST R0,LXCOUNT Request 1 LX > LXRES ELXLIST=ELXL,SYSTEM=YES,REUSABLE=YES,LXSIZE=23, ** > MF=(E,XMSZLIST) > ST R15,RETURNCODE Save Return Code From XMS Call > BRAS R14,COMPLETION_CODE_CHECK > *-------------------------------------------------------------------* > * Create an Entry Table that defines the PC Service Routines > *-------------------------------------------------------------------* > MVC XMSFUNC,=CL8'ETCRE ' > L R0,ETDESC@ Entry Description Table Address > . > . > Here Are the Registers at Abend > . > SYSTEM COMPLETION CODE=052 REASON CODE=00000512 > > TIME=08.59.14 SEQ=04271 CPU=0000 ASID=001C > > PSW AT TIME OF ERROR 070C0000 8AD08E9A ILC 2 INTC 0D > > NO ACTIVE MODULE FOUND - PRIMARY NOT EQUAL TO HOME > > NAME=UNKNOWN > > DATA AT PSW 0AD08E94 - C02818F8 0A0DA788 000018FB > > AR/GR 0: 006FDD40/00000000_0AD099C0 1: 00000000/00000000_84052000 > > 2: 00000000/00000000_00000000 3: 00000000/00000000_0000FF03 > > 4: 00000000/00000000_00FDC400 5: 00000000/00000000_00000000 > > 6: 00000000/00000000_00FF4500 7: 00000000/00000000_00FB9100 > > 8: 00000000/00000000_00000512 9: 00000000/00000000_00000BE0 > > A: 00000000/00000000_00FBBD00 B: 00000000/00000000_00FB9100 > > C: 00000000/00000000_0AD099C0 D: 00000000/00000000_7FF97378 > > E: 01000003/00000000_8AD08E8A F: 01000002/00000002_00000512 > > END OF SYMPTOM DUMP > . > . > . > . > From the bottom of the Trace - I found the last SVCE > then I located the previous PC instruction > . > . > 0000 0009 006F8188 I/O 00258 00000000_0AD14996 00C04007 738DF028 > 0C000000 00 > 07045000 80000000 00F2AFC8 > 00400002 00 > 0000 001C 022BBD00 SRB 00000000_01084868 0000001C 0266EF00 > 0266EF2C > 07040000 80000000 006FDD40 80 > > 0000 001C 022BBD00 SSRV 78 80C4ADA8 0050E503 00001000 > 7F538000 > 001C0000 > > 0000 001C 022BBD00 SSRV 2 80FEE77C 006F8168 7F000000 > 00000000 > 00000000 > > 0000 001C 006FF1C0 DSP 00000000_0AD04F3E 00000000 00011000 > 0000C17D 00 > 07840000 80000000 > > 0000 001C 006FF1C0 PC ... 8 0AD04992 00004 > > 0000 001C 006FF1C0 DSP 00000000_0AD07650 00000000 00000001 > 0AD01440 00 > 07040000 80000000 > > 0000 001C 006FF1C0 SSRV 78 8AD076BE 0000FF02 00000888 > 7FF97378 > 00020000 > > 0000 001C 006FF1C0 SSRV 78 8AD08E72 0000FF03 00000888 > 7FF97378 > 00020000 > 0000 001C 006FF1C0 *SVCE D 00000000_0AD08E9A 00000512 0AD099C0 > 84052000 00 > 07040000 80000000 00000000 > 00 > 0000 001C 006FF1C0 SSRV 12D 815175A2 006FF1C0 000C8000 > FF3A0000 > 00000000 > > 0000 001C 006FF1C0 SSRV 12D 815175BE 006FF1C0 000B8000 > 00000000 > 00000000 > > 0000 001C 006FF1C0 DSP 00000000_014AB070 00000000 0AD099C0 > 84052000 00 > 07040000 80000000 > > 0000 001C 006FF1C0 *SVC D 00000000_014AB072 00000512 0AD099C0 > 84052000 > 07040000 80000000 > > 0000 001C 006FF1C0 SSRV 78 840E540C 0000FF50 000000C8 > 006FC4A8 > 001C0000 > > 0000 001C 006FF1C0 SSRV 78 840E5460 0000FF70 00001310 > 7F4DACF0 > 001C0000 > > 0000 001C 006FF1C0 SSRV 78 815A3A26 0000E540 00000150 > 7F538EB0 > 001C0000 > > 0000 001C 006FF1C0 PC ... 0 015A3C14 00506 > .. > The PC instruction prior to the Last SVCE has an address of > 0AD04992.0AD048A0 58F00010 58F0F304 58F0F024 B218F000 5820D010 B2250020 > 982CD01C 58E0 > 0AD048C0 50F0D170 A7E50328 D207B060 C450D27F D180C120 A7080001 5000A008 > 4110 > 0AD048E0 96D41001 94DF1001 41F0A008 50F01004 58F00010 58F0F304 58F0F000 > B218 > 0AD04900 50F0D170 A7E50308 D207B060 C4585800 B05C90EC D00C1800 1F11B227 > 0020 > 0AD04920 D01058F0 001058F0 F30458F0 F008B218 F0005820 D010B225 0020982C > D01C > 0AD04940 D00C5000 A02050F0 D170A7E5 02E5D207 B060C460 D27FD180 C1304100 > 0001 > JOB PAULD01R STEP MONSTER TIME 085914 DATE 19040 ID = > 000 > > 0AD04960 A01C90EC D00C4110 D18041F0 A01C50F0 100441F0 A00850F0 1008B227 > 0020 > 0AD04980 D01058F0 001058F0 F30458F0 F010B218 F0005820 D010B225 0020982C > D01C <-- > 0AD049A0 D00C5000 A02050F0 D170A7E5 02B50700 A7150004 00000004 58101000 > 0A6B > 0AD049C0 B060C468 5800A00C 5000A028 41000000 5000A02C 5000A030 5000A034 > 5000 > 0AD049E0 41000000 5000B050 C0100000 01BEA7E5 029058F0 B050A7F4 00025820 > D004 > 0AD04A00 C470181D A7F80003 58E00010 58EE0304 58EE00CC B218E000 18D298EC > D00C > 0AD04A20 000007FE 00000000 C1E7E2C5 E3404040 D3E7D9C5 E2404040 C5E3C3D9 > C540 > 0AD04A40 C5E3C3D6 D5404040 C3D6D4D7 D3C5E3C5 000004BF 40000072 070050E0 > D178 > 0AD04A60 A7F50006 00000000 00000000 41002000 5000F000 0A0658E0 D17807FE > 0000 > . > . > .Address 0AD04990 contains F0005820 D010B225 0020982C D01C58E0 > . > . > . > 653 AXSET AX=(R1) > > 655+* MACDATE = 82.076 > > 0002B0 656+ DC 0H'0' > .AX > 0002B0 90EC D00C 0000C 657+ STM 14,12,12(13) > .SA > 0002B4 1801 658+ LR 0,R1 > .SE > 0002B6 1F11 659+ SLR 1,1 > .PA > 0002B8 B227 0020 660+ ESAR 2 > .EX > 0002BC 5020 D010 00010 661+ ST 2,16(,13) > .SA > 0002C0 58F0 0010 00010 662+ L 15,16(0,0) > .GE > 0002C4 58F0 F304 00304 663+ L 15,772(,15) > .GE > 0002C8 58F0 F024 00024 664+ L 15,36(,15) > .GE > 0002CC B218 F000 00000 665+ PC 0(15) > .PC > 0002D0 5820 D010 00010 666+ L 2,16(,13) > .EX <--- > 0002D4 B225 0020 667+ SSAR 2 > .RE > 0002D8 982C D01C 0001C 668+ LM 2,12,28(13) > .RE > 0002DC 58E0 D00C 0000C 669+ L 14,12(,13) > .RE > 0002E0 50F0 D170 00170 670 ST R15,RETURNCODE > Save > . > . > > > ---------- Original Message ---------- > From: Binyamin Dissen <bdis...@dissensoftware.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Abend 052-512 > Date: Sun, 10 Feb 2019 01:06:24 +0200 > > As always, post the complete code and the abend details. > > What you consider implied might be quite wrong. > > On Sat, 9 Feb 2019 22:44:48 GMT "esst...@juno.com" <esst...@juno.com> > wrote: > > :>Hello.I was trying to use Peter Relsons SHARE Session 17096 to define > :>a Extended Reusable SYSTEM LX..Im on a z/OS 2.1 So I issue the following: > :>LA R1,1 > :>AXSET AX=(R1) > :>ST R15,RETURNCODE > :>.. > :>LHI R0,1 > :>ST R0,LXCOUNT > :>LXRES ELXLIST=ELXL,SYSTEM=YES,REUSABLE=YES,LXSIZE=23, > :> MF=(E,XMSZLIST) > :>ST R15,RETURNCODE > :>. > :>I abended with an 052-512 > :>. > :>Register 2 has all zeroes > :>. > :>I examined the System Trace and found the last SVCE entry > :>and then located the Previous PC trace entry. The address for the > :>PC Trace entry pointed me into My program on the AXSET macro. > :>. > :>So I confused as to why the AXSET abended. > :>I suspect I did not understand all of the Presentation on > :>"Make a Service Provider to ALL" . > :>. > :>Can anyone share some light on this issue ? > > -- > Binyamin Dissen <bdis...@dissensoftware.com> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
