RC14(48) in Dataquery batch.

book

Article ID: 6332

calendar_today

Updated On:

Products

CA Datacom - DB CA Datacom CA Datacom - AD CA Datacom - Server

Issue/Introduction

Have you ever issued a query using CA Dataquery online or batch, and received a RC14(48) or a RECORD NOT FOUND error? Or, you may have executed a COBOL program with embeded SQL statements and received the same error. Or you may have received a S0C4 abend. In either case, you KNOW the data exists!

 

Environment

z/os, CA Datacom/DB 14.0 and above.

Resolution

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.

 

  1. 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).

  2. Run a DBUTLTY batch job with the following SYSIN:

    ACCESS STATUS=OFF,DBID=3,USERS=FAIL

  3. Run DBUTLTY batch job with the following SYSIN:

    COMM OPTION=CLOSE,DBID=3

  4. 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

  5. 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

  6. 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

  7. Issue a DBOC OPEN=0003 command in each CICS communicating with the MUF to allow access to Datacom via CICS.

  8. After all jobs run successfully, run ACCESS STATUS=WRITE,DBID=3 to allow access to Dataquery database in batch.