Joined: 04 Feb 2015 Posts: 32 Location: Tajikestan
Dear friend
Is there any simple examples for Monitoring domain exit program (point XMNOUT). Have any body this code?
Because when I use the following sample the an abend occurs.
+DFHAP0701 CICSAPP1 An abend (code 0C4/AKEA) has occurred in exit program ME01MNEX at exit point XMNOUT.
Code:
**********************************************************
* Register Equates *
**********************************************************
R0 EQU 0
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
*#EXIT_RC EQU R15
*
DFHUEXIT TYPE=EP,ID=(XMNOUT)
EJECT
DFHAFCD TYPE=DSECT
EJECT
ME01MNEX CSECT
ME01MNEX AMODE 31
ME01MNEX RMODE ANY
*#
SAVE (14,12)
LR R12,R15
USING ME01MNEX,R12
LR R2,R1
USING DFHUEPAR,R2
EJECT
DFHAFCD TYPE=DSECT
EJECT
ME01MNEX CSECT
ME01MNEX AMODE 31
ME01MNEX RMODE ANY
*#
SAVE (14,12)
LR R12,R15
USING ME01MNEX,R12
LR R2,R1
USING DFHUEPAR,R2
RETURN DS 0H
L R13,UEPEPSA
RETURN (14,12),RC=UERCNORM
SPACE
END ME01MNEX
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
Code:
L R13,UEPEPSA
RETURN (14,12),RC=UERCNORM
So you haven't changed the value of R13 since you started the program, but now you load it with some unknown value and use that to restore your registers as part of the RETURN? It's not surprising that you got the ABEND.
Joined: 04 Feb 2015 Posts: 32 Location: Tajikestan
Dear Robert sample
I was in wrong in typing the post.
The CORRECT sample code is :
Code:
DFHUEXIT TYPE=EP,ID=(XMNOUT)
EJECT
DFHAFCD TYPE=DSECT
EJECT
ME01MNEX CSECT
ME01MNEX AMODE 31
ME01MNEX RMODE ANY
*#
SAVE (14,12) SAVE REGISTERS
LR R12,R15
USING ME01MNEX,R12 SET UP PROGRAM BASE REGISTER
LR R2,R1
USING DFHUEPAR,R2 ADDRESS USER EXIT PARAMETER LIST
**********************************************************
* <<<<<< Section to be Modified by the Users. >>>>>> *
* START. *
**********************************************************
WTO 'Exit point of XMNOUT !!!'
*#
**********************************************************
* END. *
* <<<<<< Section to be Modified by the Users. >>>>>> *
**********************************************************
L R13,UEPEPSA
RETURN (14,12),RC=UERCNORM
SPACE
END ME01MNEX
But it is abend yet.
I comment the
* L R13,UEPEPSA
also and assembled it, but But it is abend yet.
Can you give a sample exit program for this exit point(XMNOUT) that only do a WTO.
Special thanks.