*COMDECK DBSTDCLS 
  
  
#     THE FOLLOWING DECLARATIONS DESCRIBE THE CONTENTS OF THE          #
#     DATABASE STATUS BLOCK.                                           #
  
      BASED ARRAY DBST; 
        BEGIN 
        ITEM DBERRCODE  U(00,00,60);   # CRM OR CDCS ERROR CODE        #
        ITEM DBSSITMORD U(01,00,60);   # AUXILIARY STATUS WORD 1 -     #
                                       # SS ITEM ORD FOR ITEM-LEVEL ERR#
        ITEM DBFILPOS   U(02,00,60);   # AUXILIARY STATUS WORD 2 -     #
                                       # CRM FILE POSITION             #
        ITEM DBERRFAT   U(03,00,60);   # AUXILIARY STATUS WORD 3 -     #
                                       # FATALITY OF CDCS ERROR        #
                                       # 0 = NON-FATAL, 1 = FATAL      #
        ITEM DBFUNCTION C(04,00,10);   # FUNCTION BEING PERFORMED      #
        ITEM DBRKRELERR U(05,00,60);   # RELATION STATUS WORD 1 -      #
                                       # RANK OF CRM/CDCS ERROR        #
        ITEM DBCTLBRK   U(06,00,60);   # RELATION STATUS WORD 2 -      #
                                       # LOWEST RANK WITH CONTROL BREAK#
        ITEM DBNULLREC  U(07,00,60);   # RELATION STATUS WORD 3 -      #
                                       # LOWEST RANK WITH NULL RECORD  #
        ITEM DBAREA     C(08,00,30);   # NAME OF AREA ON WHICH         #
                                       # CRM/CDCS ERROR OCCURRED       #
        END 
  
#     THE FOLLOWING DEFINITIONS SPECIFY MINIMUM DBST LENGTH REQUIRED   #
#     FOR THE INDICATED STATUS SECTION OF INFORMATION TO BE MAINTAINED #
#     BY CDCS.                                                         #
  
      DEF DFDBSTERR  #1#;          # MIN DBST LEN FOR ERROR CODE       #
      DEF DFDBSTAUX  #4#;          # MIN DBST LEN FOR AUXILIARY STATUS #
      DEF DFDBSTFUNC #5#;          # MIN DBST LEN FOR FUNCTION         #
      DEF DFDBSTREL  #8#;          # MIN DBST LEN FOR RELATION STATUS  #
      DEF DFDBSTAREA #11#;         # MIN DBST LEN FOR AREA NAME        #
  
