Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

A sample of exit program for exit XMNOUT.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 25
Location: Tajikestan

PostPosted: Mon Oct 03, 2016 5:07 pm    Post subject: A sample of exit program for exit XMNOUT.
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: 7913
Location: Bellevue, IA

PostPosted: Mon Oct 03, 2016 7:09 pm    Post subject:
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: 25
Location: Tajikestan

PostPosted: Mon Oct 03, 2016 7:38 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
No new posts SORT - E15 and E35 using same user ex... Abhi Nature DFSORT/ICETOOL 12 Mon Oct 03, 2016 4:33 pm
No new posts Need points to tune IMS Checkpoint Pr... satish.ms10 IMS DB/DC 2 Fri Sep 30, 2016 4:12 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us