Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 27
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: 8189
Location: East Dubuque, Illinois, USA

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: 27
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 Calling IKJEFT01 program from Rexx upendrasri CLIST & REXX 4 Wed Nov 15, 2017 4:27 pm
No new posts COBOL - EXIT statement weird behavior anthony.pangestu COBOL Programming 0 Fri Oct 27, 2017 9:57 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts EXIT or RETURN cvnlynn CLIST & REXX 18 Wed Jul 19, 2017 2:50 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us