DBTEST (Execute Test/Analysis Programs) › DBTEST DBTSTPR (CA Datacom/DB Test Program) › Example DBTSTPR JCL

Example DBTSTPR JCL

The following shows the commands to build a User Requirements Table for the PMF table in database 1, allowing no update ability. The DBTEST command invokes the CA Datacom/DB test program to locate the first key value with a state/zip code key of TX75000 or greater.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

 * $$ JOB ...           See the previous note and JCL Requirements.
 * $$ LST ...
 // JOB name
 // EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see JCL Requirements.
 // ASSGN SYSnnn,device type,VOL=volser,SHR
 // DLBL CXX,'cxx',,DA                             Directory data set
 // EXTENT SYSnnn,volser
 // DLBL IXX001,'db001.index',,DA                  Index Area for DBID 001
 // EXTENT SYSnnn,volser
 // DLBL PMF001,'db001.pmf',,DA                    Data area PMF in DBID 001
 // EXTENT SYSnnn,volser
 // EXEC DBUTLTY,SIZE=750K
          DBURSTR  MULTUSE=YES
          DBURTBL  DBID=1,TBLNAM=PMF
          DBUREND  SYSTEM=DOS
          DBTEST   PGM=DBTSTPR
 DUMP=P
 *CMD TBLKEYNM  DBI KEY            ELEM*4
 LOCKGPMFSTZIP      TX75000
 /*
 /&
 * $$ EOJ