How to find CICS programs with Datacom activity

Document ID : KB000045446
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction: 

Datacom CICS Services has an internal trace that tracks all the requests that are issued to Datacom.

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.

Trace criteria can be set up using the DBOC TRACE,option transaction. Use DBOC TRACE without options to display the current criteria.

Background:  

For monitoring purpose, a Datacom customer would like to know which are the latest CICS transactions that issued Datacom requests or which Datacom tables a CICS transaction is reading/updating. This information can be extracted from the Datacom accounting tables, if they are active, but a quickest method is using the internal trace of Datacom CICS Services.

Environment:  

Datacom/DB with Datacom CICS Services

Instructions: 

If the internal trace is not active, it can be activated using the DBOC GENOPTS panel.

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
                                                                                
0965 085529    75 U009 DQIN VPEHJN67 QR  002 REDKY DQF DQFK1       0003 00003 01
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
0981 090749    79 U009 DBOC DCCO4PR  QR  001 CLOSE                 0020       01
0982 095123    87 U009 DBEC DCCO4PR  QR  001 OPEN                  0000       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
0988 104745    94 U009 DBEC DCCO4PR  QR  001 OPEN                  0000       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
0993 104745    94 U009 DBEC DCCO4PR  QR  001 OPEN                  0020       01
0994 033704   119 U005 DBEC DCCO4PR  QR  001 CLOSE                 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   ****    

 

Note that the internal RC is in hex, so a Datacom return code 36(192) is displayed as 36.C0

 

Additional Information:

For additional details about DBOC INQ=TRACE command, please check the documentation here

For DBOC GENOPTS details, click here

For DBOC TRACE details, click here