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
