*-----------------------------------------------------------------
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
