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

Article Id: 19223
Status: Published
Updated On: 21-03-2018 07:12
Legacy Id: TEC604037
Products:
CA CIS , CA Common Services for z/OS , CA 90s Services , CA Database Management Solutions for DB2 for z/OS , CA Common Product Services Component , CA Common Services , CA Datacom/AD , CA ecoMeter Server Component FOC , CA Easytrieve Report Generator for Common Services , CA Infocai Maintenance , CA IPC , Unicenter CA-JCLCheck Common Component , CA Mainframe VM Product Manager , CA Chorus Software Manager , CA On Demand Portal , CA Service Desk Manager - Unified Self Service , CA PAM Client for Linux for zSeries , CA Mainframe Connector for Linux on System z , CA Graphical Management Interface , CA Web Administrator for Top Secret , CA CA- Xpertware , CA Compress Data Compression for MVS , CA Compress Data Compression for Fujitsu , CA Datacom , CA Disk Backup and Restore - MVS , CA DISK BACKUP AND RESTORE- ADD-ON OPTIO , CA DISK BACKUP AND RESTORE , CA Ideal , CA CIS , CA Common Services for z/OS , CA 90s Services , CA Database Management Solutions for DB2 for z/OS , CA Common Product Services Component , CA Common Services , CA Datacom/AD , CA ecoMeter Server Component FOC , CA Easytrieve Report Generator for Common Services , CA Infocai Maintenance , CA IPC , Unicenter CA-JCLCheck Common Component , CA Mainframe VM Product Manager , CA Chorus Software Manager , CA On Demand Portal , CA Service Desk Manager - Unified Self Service , CA PAM Client for Linux for zSeries , CA Mainframe Connector for Linux on System z , CA Graphical Management Interface , CA Web Administrator for Top Secret , CA CA- Xpertware
Issue/Introduction:

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.

Environment:

Release:
Component: CA90S