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 use my exit program.

 
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: 20
Location: Tajikestan

PostPosted: Tue Sep 13, 2016 1:54 pm    Post subject: How to use my exit program.
Reply with quote

Dear friends
I wrote GLUE program that must be called at XPCFTCH point. But there is not doing and thing. My code is :
Code:
*---------------------------------------------------------------------*
         SPACE
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
ME01PCEX CSECT
ME01PCEX AMODE 31
ME01PCEX RMODE ANY
         SAVE  (14,12)             SAVE REGS
         LR    R12,R15             SET-UP BASE REGISTER
         USING ME01PCEX,R12        ADDRESSABILITY
         LR    R2,R1               GET UEP PARAMETER LIST

         USING DFHUEPAR,R2         ADDRESSABILITY
         SPACE

         SPACE
         L     R3,UEPGAA           GET GWA ADDRESS
*#-------------------------- MY CODE --------------------
         TIME DEC,TIMEDAT,ZONE=LT,LINKAGE=SYSTEM,DATETYPE=YYYYMMDD
         UNPK  HEXWORK(9),TIMEDAT+8(5)
         MVC   GREGDATE,HEXWORK
         UNPK  HEXWORK(15),TIMEDAT(7)
         MVC   CURRTIME,HEXWORK
         LA    7,HEXWORK
         WTO   TEXT=(7)
*#-------------------------------------------------------
         SPACE
         DROP  R3
         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
*#-------------------------- MY DATA --------------------
HEXWORK  DS CL16           UNPACK-WORKAREA
GREGDATE DS CL8            GREGORIAN-DATE AS C'CCYYMMDD'
CURRTIME DS CL12           CURRENT-TIME AS C'HHMMSSTHMIJU'
TIMEDAT  DS CL16
TIMEWORK DC 16C' '
*#-------------------------------------------------------
         LTORG
         SPACE
         END   ME01PCEX


So I must see the WTO message (that shows the time) every time a LINK or XCTL happens in CICS.
I'm doing
Code:
EXEC CICS ENABLE PROGRAM(ME01PCEX) POINT(XPCFTCH)

and
Code:

EXEC CICS ENABLE PROGRAM(ME01PCEX) START

But still no any WTO on console every time a LINK take happen.
What I must to do?!!![/quote]
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7908
Location: Bellevue, IA

PostPosted: Tue Sep 13, 2016 9:31 pm    Post subject:
Reply with quote

What version of CICS are you using? I've been looking at various versions, and your
Code:
EXEC CICS ENABLE PROGRAM(ME01PCEX) POINT(XPCFTCH)
syntax does not appear in any of them -- POINT, specifically, is not shown in the syntax diagrams I see. The 5.3 syntax diagram, for example:
Code:
ENABLE PROGRAM

>>-ENABLE PROGRAM(data-value)----------------------------------->

   .---------------------------------------------------.   
   V                                                   |   
>----+-----------------------------------------------+-+-------><
     +-ENTRY(ptr-ref)--------------------------------+     
     +-ENTRYNAME(data-value)-------------------------+     
     +-EXIT(data-value)------------------------------+     
     +-FORMATEDF-------------------------------------+     
     +-+-GALENGTH(data-value)-+------------------+-+-+     
     | |                      '-GALOCATION(cvda)-' | |     
     | '-GAENTRYNAME(data-value)-------------------' |     
     +-INDOUBTWAIT ----------------------------------+     
     +-LINKEDITMODE----------------------------------+     
     +-+-QUASIRENT---------------+-------------------+     
     | +-THREADSAFE--+---------+-+                   |     
     | |             '-OPENAPI-' |                   |     
     | +-REQUIRED--+---------+---+                   |     
     | |           '-OPENAPI-'   |                   |     
     | '-OPENAPI-----------------'                   |     
     +-PURGEABLE-------------------------------------+     
     +-SHUTDOWN -------------------------------------+     
     +-SPI-------------------------------------------+     
     +-START-----------------------------------------+     
     +-TALENGTH(data-value)--------------------------+     
     '-TASKSTART-------------------------------------'
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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 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
No new posts Need points to tune IMS Checkpoint Pr... satish.ms10 IMS DB/DC 2 Fri Sep 30, 2016 4:12 pm


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