Author: lind sh
Subject: A sample of exit program for exit XMNOUT.
Posted: Mon Oct 03, 2016 5:07 pm (GMT 5.5)
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.
Subject: A sample of exit program for exit XMNOUT.
Posted: Mon Oct 03, 2016 5:07 pm (GMT 5.5)
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 |