Joined: 04 Feb 2015 Posts: 32 Location: Tajikestan
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]
