You should be aware that ETDEF does not set a return code. It does inline instructions to build a single entry. The ETCRE/ETCON are the ones that make something happen.
On Mon, 8 Jul 2013 22:28:59 GMT "[email protected]" <[email protected]> wrote: :>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 -- Binyamin Dissen <[email protected]> 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 [email protected] with the message: INFO IBM-MAIN
