Control Register 0 bit 44 contains the system setting for LXRES as defined
in the POM in the chapter of control. I'm a Z/Architecture guy and I usually
go to the architecture for settings instead of z/OS. I'm also pretty sure LX
Reuse did not exist in 1.4 though I may be wrong. It was added sometime in
the 1.4 to 1.6 time frame.
In your description, I don't see any reference to LXRES, ETCRE or ETCON.
ETDEF only creates the entry table needed to define PCs. LXRES reserves an
LX (you probably need a system one) and returns a token. I assume that the
D6 LX was acquired via an LXRES and it's a system LX. ETCRE creates a
working copy of your entry tables in the PCAUTH address space and also
returns a token. ETCON connects your entries via the LXRES and ETCON tokens
to the address spaces that are allowed access to your PC routines. For
system LXs, that's every address space. The PC numbers start at LX00 and go
to LX## where 00 is assigned to the first entry in your entry table and ##
is the last entry up to 255. If you define space switch P{C more setup is
required. The Extended Addressability manual goes into all this.
Kenneth
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of [email protected]
Sent: Monday, July 08, 2013 5:29 PM
To: [email protected]
Subject: Dynamic LPA Services
As the original Poster, I thank every one for there input.
The various information provided has been excellent Thank You I am still
getting the 0D6-022 Abend, and I am Not Understanding why.
So Let me level set every one.
I Am On a Z/oS 1.4 System
I do not have LX Reuse on this system, I don't think that has anything to do
with this issue.
I use te CVT to determine LX Reuse.
USING CVTMAP,R15 .INFORM ASSEMBLER
L R15,X'10' .ADDRESS OF CVT
TM CVTFLAG2,CVTALR .LX Reuse Available
01404522
BNO NO_LX_REUSE .NO EXISTANCE
01404622
I would like to understand the use of CR0 to determine this, if someone
would post the code.
.
I am aware of Obtaining Storage in Common and Loading a routine into key 0
SP 241 or similar, I'm trying to gain a new skill by using LPA Dynamic
Services.
In a separate job I Dynamically Add a module to LPA using CSVDYLPA.
Then I Start An Address Space and use CSVQUERY to obtain the entry Point
Address of the Module I Added To LPA.
The Entry Point Address returned from CSVQUERY is then used in an ETDEF SET
macro that describes a Non Space Switching PC Routine.
SET_ETD1 DS 0H
03340004
ETDEF TYPE=SET,ETEADR=ETD1,ROUTINE=(2),RAMODE=31,
X03350004
STATE=SUPERVISOR,PC=STACKING,SSWITCH=NO,
X03360004
SASN=OLD,ASCMODE=PRIMARY,
X03370004
EK=8,PKM=OR,
XX03380004
AKM=(8,9),EKM=(8)
03390004
*
03400004
ST R15,XMSRESP Save Response Code
03410004
BRAS R14,CHKRESP Go Check Response Code In Reg-15
The Address Space has Not terminated.
Now I want to submit a Job which invokes this Routine via a PC instruction.
the PC Number is 0000D601.
Where D6 is The LX
01 Is the Second Entry in the Entry Table.
However when I issue the PC instruction I get an 0D6 Abend...
Thank You Again for all Your comments.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
