This article describes and shows the JCL SYSIN for the steps you need to run to clean up any "bad data" in your Dataquery system files after receiving a RC14(48), a RECORD NOT FOUND error, or a S0C4 abend in Dataquery. You may want to implement a practice of running through these steps every 6-month as preventative maintenance, to ensure your Dataquery System files have not become corrupted.
- Close down access via CICS to CA Datacom's Dataquery database, by issuing DBOC CLOSE=0003 from CICS regions that access your Multi-User Facility (MUF).
- Run a DBUTLTY batch job with the following SYSIN:
ACCESS STATUS=OFF,DBID=3,USERS=FAIL
- Run DBUTLTY batch job with the following SYSIN:
COMM OPTION=CLOSE,DBID=3
- Run the DBUTLTY INIT function for the following database 3 areas: DQE, DQF, DQR, DQS, DQT, and DQW. The SYSIN looks like:
INIT AREA=DQE,DBID=3
INIT AREA=DQF,DBID=3
INIT AREA=DQR,DBID=3
INIT AREA=DQS,DBID=3
INIT AREA=DQT,DBID=3
INIT AREA=DQW,DBID=3
- Run DBUTLTY LOAD, with FORMAT=NONE to null load each of the above areas. The SYSIN looks like:
LOAD AREA=DQE,DBID=3,FORMAT=NONE,SORT=100000
LOAD AREA=DQF,DBID=3,FORMAT=NONE,SORT=100000
LOAD AREA=DQR,DBID=3,FORMAT=NONE,SORT=100000
LOAD AREA=DQS,DBID=3,FORMAT=NONE,SORT=100000
LOAD AREA=DQT,DBID=3,FORMAT=NONE,SORT=100000
LOAD AREA=DQW,DBID=3,FORMAT=NONE,SORT=100000
- Run the DQWFINIT function for the DQE, DQF, and DQW.
for DQE:
//SYSIN DD *
DQE
/*
for DQF:
//SYSIN DD *
DQF
/*
for DQW:
//SYSIN DD *
DQW nn
/*
Where nn is any number you have previously set. At installation time nn = 03
- Issue a DBOC OPEN=0003 command in each CICS communicating with the MUF to allow access to Datacom via CICS.
- After all jobs run successfully, run ACCESS STATUS=WRITE,DBID=3 to allow access to Dataquery database in batch.