Thankx ... shavoah tov.... ( have a good week) -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Binyamin Dissen Sent: Monday, November 30, 2009 6:59 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ETCON abend
On Mon, 30 Nov 2009 06:35:30 -0500 Joe Reichman <joereich...@optonline.net> wrote: :>ETD_1 IS THE Header will do thankx True. Missed that. I always have a loop for changing the ETDEF's. :>-----Original Message----- :>From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf :>Of Binyamin Dissen :>Sent: Monday, November 30, 2009 5:28 AM :>To: IBM-MAIN@bama.ua.edu :>Subject: Re: ETCON abend :> :>Looks fine assuming the DSECTs are proper. I do notice that your ETDEF SET :>refers to ETD_2 while the ETCRE goes to ETD_1. I would suggest looking at R2 :>at the time of the abend and compare it with LXVALUE and TKVALUE. :> :>On Mon, 30 Nov 2009 04:23:04 -0500 Joe Reichman <joereich...@optonline.net> :>wrote: :> :>:>*----------------------------------------------------------------- :>:> LOAD EP=MYPROG, :>:> GLOBAL=YES :>:>* :>:> LR R2,R0 SAVE ADDRESS :>:>* :>:> XC ETD_1(ET_LEN),ETD_1 CLEAR TO X'00' :>:> MVC ETD_1(ET_LEN),ETDESC MOVE IN TABLE ENTRIES :>:>* :>:> ETDEF TYPE=SET,HEADER=ETD_1,NUMETE=1 :>:>* :>:> MVI ETD_2,0 ONE ENTRY :>:>* :>:> L R9,TOKEN POINT TO THE CALL TOKEN :>:>* :>:> ETDEF TYPE=SET,ETEADR=ETD_2,ROUTINE=(R2),SSWITCH=YES, :>:> STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING, :>:> SASN=OLD,ASCMODE=AR :>:>* :>:> :>:> MVC LX_COUNT,=F'1' :>:> :>:> LXRES LXLIST=LX_LIST,SYSTEM=YES,MF=(E,LX_DSECT) :>:> :>:> MVC HERCPC,LX_VALUE MOVE PC NUMBER :>:> :>:> LA R7,ETD_1 :>:> :>:> ETCRE ENTRIES=(R7) NO NEED TO "OR" :>:> :>:> ST R0,TKVALUE ONLY 1 PC ENTRY :>:> MVC TKCOUNT,=F'1' :>:> :>:> CONNECT IT :>:> :>:> ETCON LXLIST=LX_LIST,TKLIST=TKL,MF=(E,ETCON_DSCT) :>:> :>:> :>:>* :>:>* CONSTANTS :>:>* :>:> :>:>ETDESC ETDEF TYPE=INITIAL :>:>* :>:>ETD ETDEF TYPE=ENTRY,ROUTINE=*-*,SSWITCH=YES, X :>:> STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING :>:>* :>:> ETDEF TYPE=FINAL :>:>ET_LEN EQU *-ETDESC :>:> :>:>* :>:>* DSECTED VALUES :>:>* :>:>*----------------------------------------------------------* :>:>* LAYOUT OF ETDEF TABLES * :>:>*----------------------------------------------------------* :>:>ETD_1 ETDEF TYPE=INITIAL :>:>* :>:>ETD_2 ETDEF TYPE=ENTRY,ROUTINE=*-*,SSWITCH=YES, X :>:> STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING :>:>* :>:> ETDEF TYPE=FINAL :>:>* :>:>ETCON_DSCT ETCON LXLIST=LX_LIST,TKLIST=TKL,MF=L :>:> :>:>Thinking the only possible thing was the program I :>:> :>:>1) loaded into global :>:> :>:>2) Loaded into MLPA :>:> :>:> :>:> BUT STILL THE etcon ABENDS :>:> :>:> :>:>-----Original Message----- :>:>From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On :>Behalf :>:>Of Binyamin Dissen :>:>Sent: Monday, November 30, 2009 1:15 AM :>:>To: IBM-MAIN@bama.ua.edu :>:>Subject: Re: ETCON abend :>:> :>:>On Sun, 29 Nov 2009 20:25:14 -0500 Joe Reichman :><joereich...@optonline.net> :>:>wrote: :>:> :>:>:> Got the following abend :>:> :>:>:>IKJ56640I SYSTEM ABEND CODE 052 REASON CODE 00000516 :>:> :>:>:>DS: HOME = 0036 PRIMARY = 0002 SECONDARY = 0036 + :>:> :>:>:>The messages book tells me there is something wrong with my ETDEF macro :>:>:>though I got a return code 0 from ETCRE :>:> :>:>:> I played around with all the params on the ETDEF and nothing seems to :>fix :>:>:>it :>:> :>:>:> If anybody has run into this problem I would :>appreciate :>:>:>any insight :>:> :>:>Show your code. :>:> :>:>Look at R2 at the time of abend and see if the value is what you expect. -- 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html