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

book

Article ID: 19223

calendar_today

Updated On:

Products

CA Compress Data Compression for MVS CA Compress Data Compression for Fujitsu CA Datacom CA DATACOM - AD 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 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 Datacom/AD

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
Powered by Wolken Software