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
 

 

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

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

New User


Joined: 04 Feb 2015
Posts: 18
Location: Tajikestan

PostPosted: Wed Jul 27, 2016 7:04 pm    Post subject: How to run and see the result of DFH$PCEX EXIT program?
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Wed Jul 27, 2016 7:20 pm    Post subject: Reply to: How to run and see the result of DFH$PCEX EXIT program?
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Mon Aug 01, 2016 6:14 pm    Post subject: Reply to: How to run and see the result of DFH$PCEX EXIT program?
Reply with quote

topic locked...
a duplicate has been posted to the beginners forum
http://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.    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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 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 A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts SORT - E15 and E35 using same user ex... Abhi Nature DFSORT/ICETOOL 12 Mon Oct 03, 2016 4:33 pm


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