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



High Level Assembler(HLASM) for MVS & VM & VSE

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

Postby Mehdi shri » Mon Aug 01, 2016 4:53 pm

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:
****************************************
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.
Mehdi shri
 
Posts: 138
Joined: Sun Jan 16, 2011 6:30 pm
Has thanked: 57 times
Been thanked: 0 time

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

Postby BillyBoyo » Mon Aug 01, 2016 5:32 pm

You'd better talk to your Technical Support. I doubt they want a lot of WTO messages appearing from anywhere. If you explain what you are trying to do, they will probably tell you how they want it done, and may even assist you.

How your site operates will be key, so going with some advice from the internet will not be a good idea.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

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

Postby Mehdi shri » Mon Aug 01, 2016 8:20 pm

Dear BillyBoyo
Our Site Technical Support can't help me, also I'm one of they :)
My final goal is to take or capture the COMMAREA of an specific program to inspect of the content for any monitoring purpose.
Special thanks.
Mehdi shri
 
Posts: 138
Joined: Sun Jan 16, 2011 6:30 pm
Has thanked: 57 times
Been thanked: 0 time


Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post