You may want to implement a practice of running through these steps below every 6 months as preventative maintenance, to ensure your Dataquery work files have not become corrupted.
- Close down access via CICS to Datacom's Dataquery database, by issuing DBOC CLOSE=003 from all 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=1
LOAD AREA=DQF,DBID=3,FORMAT=NONE,SORT=1
LOAD AREA=DQR,DBID=3,FORMAT=NONE,SORT=1
LOAD AREA=DQS,DBID=3,FORMAT=NONE,SORT=1
LOAD AREA=DQT,DBID=3,FORMAT=NONE,SORT=1
LOAD AREA=DQW,DBID=3,FORMAT=NONE,SORT=1
- 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 the number you previously used. The installation default is 03)
/*
- After all jobs run successfully, run DBUTLTY to allow access to the Dataquery database using SYSIN
ACCESS STATUS=WRITE,DBID=3
- Issue a DBOC OPEN=003 command in each CICS communicating with the MUF to allow access to Datacom via CICS.