IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

A sample of exit program for exit XMNOUT.


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan

PostPosted: Mon Oct 03, 2016 5:07 pm
Reply with quote

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
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon Oct 03, 2016 7:09 pm
Reply with quote

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.
Back to top
View user's profile Send private message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan

PostPosted: Mon Oct 03, 2016 7:38 pm
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts Use of Perform Thru Exit COBOL Programming 6
Search our Forums:

Back to Top