A D6-22 is a linkage exception meaning the LX is not connected to the address space issuing the PC. For a system LX, this means the LX has not been connected by an ETCON, the LX has been disconnected by an ETDIS or ETDES, or the address space that connected the LX has terminated. For a non-system LX, it could mean the address space issuing the PC has not issued the ETCON to connect the non-system LX.
If you do a SLIP COMP=0D6, you can use the IPCS Status display to list all the linkage tables in ascending LX order. Then you can visually whether the LX is connected or not. Kenneth -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Binyamin Dissen Sent: Tuesday, July 09, 2013 3:29 AM To: [email protected] Subject: Re: Dynamic LPA Services 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
