Getting a SOC1 Abend when running an Easytrieve IMS BMP program

book

Article ID: 209015

calendar_today

Updated On:

Products

CA Easytrieve Report Generator

Issue/Introduction

Experiencing a S0C1 abend in a Easytrieve IMS BMP program, when running in compatibility mode 11.6.

 

Environment

Release : 11.6

Component : CA EASYTRIEVE REPORT GEN

Resolution

The following database being accessed from the Easytrieve program, is not defined in the PSB.
 
The error message is as follows;
"*******A017 DBD IS NOT FOUND WITHIN PSB - BCCSDB     "
 
The FILE definition for BCCSDB in Easytrieve program is as follows, where The DBD name would be BCCS00D*
"  104 FILE BCCSDB DLI (BCCS00D*)<---------------DBD name

   105    BC-DBD-NAME           1   8  A      
   106    BC-SEG-LEVEL          9   2  A           
   107    BC-STATUS-CODE       11   2  A               
   108    BC-PROC-OPTIONS      13   4  A       
   109    BC-RESERVE-DLI       17   4  B   "

 
The Database DBD name mentioned in the "PSB source" is BCCCIFDB, which doesn't match the DBD name mentioned for the BCCSDB file(BCCS00D*).
 
         PCB   TYPE=DB,DBDNAME=BCCCIFDB,KEYLEN=62,PROCOPT=GOTP,        X
               PCBNAME=BCCCIFDB