How to test access to the Tables in a CA Datacom database using DBTSTPR?

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

Description:

You way want to test access to the tables in the CA Datacom database. CA Datacom provides a DBUTLTY utility called DBTSTPR available to both CA Datacom/DB and CA Datacom/AD users. This article provides an example using the tables in the CA-11 database.

Soluton:

The CA Datacom DBUTLTY utility DBTSTPR "DB Tester" is available to both CA Datacom/DB and CA Datacom/AD users and can be used to test access to a database's tables.

The following job stream is an example that can be used to read up to 10 records from each of the tables from the CA Workload Automation Restart Option for z/OS Scheduler (aka CA-11) database.

DBTSTPR program communicates through the CA Datacom MUF in order to read the records just as any application might.
DBTSTPR can therefore be used as a tool to access the MUF rather than using the using application itself to:

  1. See if the application program can find the correct path to the MUF
  2. see if each of the database's index and data areas can be dynamically allocated by the MUF
  3. see if the MUF can open each table
  4. see if the MUF can read up to 10 records from each table
  5. see if communication is successful when submitted from a remote lpar (/* JOBPARM SYSAFF=x).
 //******************************************************************
 //*       CA-DATACOM/AD DBUTLTY:                                   *
 //*       SAMPLE OF A DBTSTPR UTILITY PGM TO READ UP TO 10 RECORDS *
 //*       FROM EACH OF THE 8 TABLES IN THE CA-11 DATABASE          *
 //*       THROUGH THE MUF TO INSURE MUF AND DATABASE IS ACCESSIBLE *
 //******************************************************************
 //DBTEST1 EXEC PGM=DBUTLTY,REGION=6M
 //STEPLIB  DD  DISP=SHR,DSN=datacom.CUSLIB
 //         DD  DISP=SHR,DSN=datacom.CxxxLOAD
 //SYSOUT   DD  SYSOUT=*
 //SYSPRINT DD  SYSOUT=*
 //SNAPER   DD  SYSOUT=*
 //SYSUDUMP DD  SYSOUT=*
 //*
 //SYSIN    DD  *
    DBURSTR ABEND=YES,MSTNAM=DBMSTLST,MULTUSE=YES
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=DSN,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=PRD,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=RRN,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=HST,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=JOB,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=MIS,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=REA,UPDATE=NO
    DBURTBL ACCESS=RAN,DBID=0601,TBLNAM=STP,UPDATE=NO
    DBUREND SYSTEM=OS,USRINFO=DBTEST.4.CA11
    DBTEST  PGM=DBTSTPR
 DUMP=P
 *CMD TBLKEYNM   DBIKEY                              ELM1
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYDSNDSNKY 1
 REDLEDSNDSNKY 1                                     DSNEL
 REDNXDSNDSNKY 1                                     DSNEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYPRDPRDKN 1
 REDLEPRDPRDKN 1                                     PRDEL
 REDNXPRDPRDKN 1                                     PRDEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYRRNRRNKN 1
 REDLERRNRRNKN 1                                     RRNEL
 REDNXRRNRRNKN 1                                     RRNEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYHSTHSTKY 1
 REDLEHSTHSTKY 1                                     HSTEL
 REDNXHSTHSTKY 1                                     HSTEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYJOBJOBKY 1
 REDLEJOBJOBKY 1                                     JOBEL
 REDNXJOBJOBKY 1                                     JOBEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYMISMISKY 1
 REDLEMISMISKY 1                                     MISEL
 REDNXMISMISKY 1                                     MISEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYREAREAKY 1
 REDLEREAREAKY 1                                     REAEL
 REDNXREAREAKY 1                                     REAEL            09
 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
 LOCKYSTPSTPKY 1
 REDLESTPSTPKY 1                                     STPEL
 REDNXSTPSTPKY 1                                     STPEL            09
 /*
 

DBTSTPR is documented in the CA Datacom DBUTLTY Guide.