Author: lind sh
Subject: How to use my exit program.
Posted: Tue Sep 13, 2016 1:54 pm (GMT 5.5)
Dear friends
I wrote GLUE program that must be called at XPCFTCH point. But there is not doing and thing. My code is :
So I must see the WTO message (that shows the time) every time a LINK or XCTL happens in CICS.
I'm doing
and
But still no any WTO on console every time a LINK take happen.
What I must to do?!!![/quote]
Subject: How to use my exit program.
Posted: Tue Sep 13, 2016 1:54 pm (GMT 5.5)
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]