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
