How to find CICS programs with Datacom activity
search cancel

How to find CICS programs with Datacom activity

book

Article ID: 45446

calendar_today

Updated On:

Products

Datacom DATACOM - AD Datacom/DB IPC

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