How to find CICS programs with Datacom activity
Article ID: 45446
Updated On:
Products
Issue/Introduction
Is there a quicker option to find out which CICS transaction are reading Datacom tables without setting up the Datacom Accounting Facility?
Resolution
The Datacom accounting table, if active, can be used to know which are the latest CICS transactions that issued Datacom requests or which Datacom tables a CICS transaction is reading/updating. A quicker method would be using the internal trace of Datacom CICS Services.
TRACE parameter of DBCVTPR macro is used to setup this facility. By default, this parameter is set to (ON,1000), which means that the trace is activated when the Datacom CICS Service starts and contains up to 1000 trace entries.
If the internal trace is not active, it can be activated using the DBOC GENOPTS panel. Trace criteria can be set up using the DBOC TRACE,option transaction. Use DBOC TRACE without options to display the current criteria.
When it is active, issue the DBOC INQ=TRACE transaction. It returns a screen like the following one, which can be scrolled up and down:
TRACE TABLE INQUIRE
SEQ TIME TASK TERM TRAN PROGRAM TCB TCB CMMD TBL KEY RTN URT DBID MUF
NR HHMMSS ID ID ID NAME NAM ID NAM NAME CODE ID ID
0966 090702 76 U009 DQIN VPEHJN67 QR 002 RDUKY DQU DQUKY 0003 00003 01
0967 090702 76 U009 DQIN VPEHJN67 QR 002 UPDAT DQU DQUKY 0003 00003 01
0968 090702 76 U009 DQIN VPEHJN67 QR 002 RDUKY DQU DQUKY 0003 00003 01
0969 090702 76 U009 DQIN VPEHJN67 QR 002 RDUKY DQF DQFK1 0003 00003 01
0970 090702 76 U009 DQIN VPEHJN67 QR 002 RDUKY DQF DQFK1 0003 00003 01
0971 090702 76 U009 DQIN VPEHJN67 QR 002 UPDAT DQF DQFK1 0003 00003 01
0972 090702 76 U009 DQIN VPEHJN67 QR 002 UPDAT DQF DQFK1 0003 00003 01
0973 090702 76 U009 DQIN VPEHJN67 QR 002 UPDAT DQU DQUKY 0003 00003 01
0974 090702 76 U009 DQIN VPEHJN67 QR 002 QDELP 0020 01
0975 090703 76 U009 DQIN VPEHJN67 QR 002 REDKY DQP DQPKY 0003 00003 01
0976 090703 76 U009 DQIN VPEHJN67 QR 002 REDKY DQP DQPKY 0003 00003 01
0977 090703 76 U009 DQIN VPEHJN67 QR 002 REDKY DQP DQPKY 0003 00003 01
0978 090703 76 U009 DQIN VPEHJN67 QR 002 REDKY DQP DQPKY 0003 00003 01
0979 090749 79 U009 DBOC DCCO4PR QR 001 CLOSE 0001 01
0980 090749 79 U009 DBOC DCCO4PR QR 001 CLOSE 0002 01
0983 095123 87 U009 DBEC DCCO4PR QR 002 INQIN 0000 01
0984 095123 87 U009 DBEC DCCO4PR QR 002 INQMU 0000 01
0985 095124 87 U009 DBEC DCCO4PR QR 002 LOGCI 0000 01
0986 095124 87 U009 DBEC DCCO4PR QR 001 OPEN 0003 01
0987 095124 87 U009 DBEC DCCO4PR QR 001 OPEN 0020 01
0989 104745 94 U009 DBEC DCCO4PR QR 002 INQIN 0000 01
0990 104745 94 U009 DBEC DCCO4PR QR 002 INQMU 0000 01
0991 104745 94 U009 DBEC DCCO4PR QR 002 LOGCI 0000 01
0992 104745 94 U009 DBEC DCCO4PR QR 001 OPEN 0003 01
0995 033704 119 U005 DBEC DCCO4PR QR 001 CLOSE 0020 01
0996 033704 119 U005 DBEC DCCO4PR QR 001 CLOSE 0000 01
0997 033724 123 U005 DQRY VPEHJN67 QR 000 INQIN 36.C0 0000 01
0998 033742 124 U005 DDOX VPEHJN67 QR 000 INQIN 36.C0 0000 01
0999 033828 127 U005 DBTS DCUTSPR QR 000 LOCKY PMF EMPNO 36.C0 0000 00001 01
1000 035135 132 U005 DBAC DCCACPR QR 000 LOCKY PMF STZIP 36.C0 0000 00001 01
PF7/PF19=UP **** AT END ****
Additional Information
Note that the internal RC is in hex, so a Datacom return code 36(192) is displayed as 36.C0
For additional details, check out the documentation on DBOC INQ=TRACE , DBOC GENOPTS, and DBOC TRACE commands
Feedback
