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:
//****************************************************************** //* 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.