You are making very bad assumptions.
Looking at your mini-dump I can see that an ETCON is failing. Not the AXSET.
Why did you assume that the AXSET failed?
In the small section of code you provided I do not see initialization of the
LXRES list form. I presume you equally failed to initialize the list form of
any of your macros.
If you have difficulty providing the code, make a simple test case without any
proprietary information and see if it fails then.
On Sun, 10 Feb 2019 14:34:05 GMT "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
