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

How to display value of an exit parameter on the console?


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: Sun Oct 09, 2016 12:28 pm
Reply with quote

Suppose I write the following code:
Code:
*                                                                     
         DFHUEXIT TYPE=EP,ID=(XXMATT)                                 
ME01XMAT CSECT                                                         
ME01XMAT AMODE 31                                                     
ME01XMAT RMODE ANY                                                 
*#                                                                     
         SAVE  (14,12)                                   
         LR    12,15                                                   
         USING ME01XMAT,12                 
         LR    2,1                                                     
         USING DFHUEPAR,2             

**********************************************************             
         LA    5,UEPTRANID                                             
         WTO   TEXT=(5)                                               
         WTO   'Exit point of XXMATT !!!'                     

**********************************************************
RETURN   DS    0H                         
         L     13,UEPEPSA             
         RETURN (14,12),RC=UERCNORM     
                               
         SPACE                                                 
SAVE     DS 18F                                               
         END   ME01XMAT                                       

I expect to see the transaction name on the console when any transaction attached. The last WTO display my message correctly but I can't see the value of point that UEPTRANID has it's address.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Sun Oct 09, 2016 5:44 pm
Reply with quote

When using the format WTO TEXT=(5) then the area must include the length in the 1st half word.
Here is an example:
Code:
         MVC   MYTRANS,UEPTRANID
         LA    5,WTOTRANS
         WTO   TEXT=(5)                                               

         ...

WTOTRANS EQU   *
         DC    AL2(L'MYTRANS)
MYTRANS  DS    CL4


(Code not validated)
Back to top
View user's profile Send private message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan

PostPosted: Sun Oct 16, 2016 11:56 am
Reply with quote

UEPTRANID contains the address of a location which it's content is the 4 byte transaction ID.
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 the Jobname parameter in a Qual... ABENDS & Debugging 1
No new posts Use of Perform Thru Exit COBOL Programming 6
No new posts user exit in IBM Infosphere Optim DB2 8
No new posts Demand with DEADLINE TIME parameter CA Products 4
No new posts Option DYNALLOC second parameter. DFSORT/ICETOOL 11
Search our Forums:

Back to Top