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

How to run and see the result of DFH$PCEX EXIT program?


IBM Mainframe Forums -> CICS
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
lind sh

New User


Joined: 04 Feb 2015
Posts: 32
Location: Tajikestan

PostPosted: Wed Jul 27, 2016 7:04 pm
Reply with quote

Dear friend
I'm confusing about how to run and see the result of DFH$PCEX exit program. This is an CICS exit program that invoked at XPCFTCH point. I was add a line like :
WTO 'A program linking was accured'
to this program to display a message on console, evey time a program linking accured in CICS. (EXEC CICS LINK issued for example PROGRAM A called or linked PROGRAM B)
This is my code:
Code:

****************************************
R0       EQU   0                   NOT USED                             
R1       EQU   1                   INITIAL USER EXIT PARAMETER LIST     
R2       EQU   2                   USER EXIT PARAMETER LIST             
R3       EQU   3                   XPCFTCH GLOBAL WORK AREA ADDRESS     
R4       EQU   4                   NOT USED                        @P2C 
R5       EQU   5                   NOT USED                             
R6       EQU   6                   NOT USED                             
R7       EQU   7                   NOT USED                             
R8       EQU   8                   NOT USED                             
R9       EQU   9                   NOT USED                             
R10      EQU   10                  NOT USED                             
R11      EQU   11                  NOT USED                             
R12      EQU   12                  PROGRAM BASE                         
R13      EQU   13                  SAVE AREA                             
R14      EQU   14                  RETURN ADDRESS                       
R15      EQU   15                  INITIAL PROGRAM BASE                 
         EJECT                                                           
         DFHUEXIT TYPE=EP,ID=(XPCFTCH)                                   
         EJECT                                                     @L1A 
         DFHAFCD TYPE=DSECT                                        @L1A 
         EJECT                                                           
         COPY  DFH$PCGA            XPCFTCH GWA DSECT                     
         EJECT                                                           
DFH$PCEX CSECT                                                         
DFH$PCEX AMODE 31                                                       
DFH$PCEX RMODE ANY                                                     
         SAVE  (14,12)             SAVE REGS                           
         LR    R12,R15             SET-UP BASE REGISTER                 
         USING MEXIT001,R12        ADDRESSABILITY                       
         LR    R2,R1               GET UEP PARAMETER LIST               
         USING DFHUEPAR,R2         ADDRESSABILITY                       
         SPACE                                                         
* Pick up the address of the Global Work Area (GWA) for this exit     *
         SPACE                                                         
         L     R3,UEPGAA           GET GWA ADDRESS                     
         USING DFH$PCGA,R3         ADDRESSABILITY                       
         SPACE                                                         
         DROP  R3         
********************************************
********************************************                                             
         WTO   'A program linking was accured'           
********************************************
********************************************             
         SPACE                                                         
RETURN   DS    0H                  RETURN TO THE CALLER                 
         L     R13,UEPEPSA         ADDRESS OF EXIT SAVE AREA           
         RETURN (14,12),RC=UERCNORM    RESTORE REGS AND RETURN         
         SPACE                                                         
         LTORG                                                         
         SPACE                                                         
         END   DFH$PCEX


I know that is must be first ENABLEd but! WHERE is it must be done?
I don't know how to exploit these capability.
My final goal is doing some processing on specific application program and sub-program execution time but without any change on PROGRAM A or PROGRAM B sources.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Jul 27, 2016 7:20 pm
Reply with quote

certainly the operation group will be happy to have the console flooded by Your wtos
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Aug 01, 2016 6:14 pm
Reply with quote

topic locked...
a duplicate has been posted to the beginners forum
www.ibmmainframeforum.com/assembler/topic11201.html
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. 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