*COMDECK SRERRDCLS
#**********************************************************************#
#                                                                      #
#     THE FOLLOWING DECLARATIONS DESCRIBE THE ARRAY FOR THE ERROR      #
#     PARAMETER BLOCK USED BY THE SYSTEM RECOVERY ROUTINES FOR PASSING #
#     STATUS AND RELATED DATA TO THE AUTOMATIC RECOVERY CONTROLLER.    #
#                                                                      #
#**********************************************************************#
  
      DEF DFSRENFUN #1#;           # ERROR NUMBER = FUNCTION ERROR     #
      DEF DFSRENUNA #2#;           # ERROR NUMBER = FILE UNAVAILABLE   #
      DEF DFSRENSCH #3#;           # ERROR NUMBER = SCHEMA MISMATCH    #
      DEF DFSRENALO #4#;           # ERROR NUMBER = FILE NOT ALLOCATED #
      DEF DFSRENAID #5#;           # ERROR NUMBER = INVALID AREA ID    #
      DEF DFSRENARB #6#;           # ERROR NUMBER = DATABASE ERROR     #
      DEF DFSRENLRP #7#;           # ERROR NUMBER = LAST RECOVERY POINT#
                                   #                RECORD NOT FOUND   #
      DEF DFSRENVER #8#;           # ERROR NUMBER = INVALID VERSION    #
      DEF DFSRENDWN #9#;           # ERROR NUMBER = AREA DOWN          #
      DEF DFSRENMEM #10#;          # ERROR NUMBER = INSUFFICIENT MEMORY#
      DEF DFSRENAAD #11#;          # ERROR NUMBER = ALL AREAS DOWN     #
      DEF DFSRENDAT #12#;          # ERROR NUMBER = INVALID DATA       #
      DEF DFSRENSDN #13#;          # ERROR NUMBER = SCHEMA NOT UP      #
  
      DEF DFSREFNAT #1#;           # FUNCTION = ATTACH                 #
      DEF DFSREFNIO #2#;           # FUNCTION = I/O (CIO)              #
      DEF DFSREFNCR #3#;           # FUNCTION = I/O (CRM)              #
      DEF DFSREFNLD #4#;           # FUNCTION - DBP LOAD (FDL)         #
      DEF DFSREFNQA #5#;           # FUNCTION - QRF APPLICATION        #
      DEF DFSREFNRF #6#;           # FUNCTION - ROLL FORWARD           #
      DEF DFSREFNRB #7#;           # FUNCTION - ROLL BACK              #
  
      DEF DFSREFTDP #1#;           # SYSTEM FILE TYPE = PROCEDURE LIB  #
      DEF DFSREFTJL #2#;           # SYSTEM FILE TYPE = JOURNAL LOG    #
      DEF DFSREFTQR #3#;           # SYSTEM FILE TYPE = QUICK RECOVERY #
      DEF DFSREFTTR #4#;           # SYSTEM FILE TYPE = TRANSACTION    #
      DEF DFSREFTRD #5#;           # SYSTEM FILE TYPE = RESTART ID     #
      DEF DFSREFTDB #6#;           # DATABASE AREA (FILE)              #
  
      DEF DFSREMXFL #6#;           # MAX NUMBER OF SYSTEM FILE TYPES   #
      DEF DFSREMXFN #7#;           # MAX NUMBER OF FUNCTION TYPES      #
      DEF DFSRESIZE #2#;           # LENGTH (WORDS) OF ERROR BLOCK     #
  
      BASED ARRAY SRERRBLK P(DFSRESIZE);
        BEGIN 
        ITEM SREWORD    U(00,00,60);   # ENTIRE WORD                   #
        ITEM SRENUMB    U(00,00,09);   # ERROR NUMBER (START WITH 1)   #
        ITEM SREFUNC    U(00,09,03);   # FUNCTION ATTEMPTED            #
        ITEM SREFPAR    I(00,12,10);   # FUNCTION PARAMETER            #
        ITEM SREFTYP    U(00,22,06);   # SYSTEM FILE TYPE              #
        ITEM SREARID    U(00,28,12);   # DATABASE AREA IDENTIFIER      #
        ITEM SREVRNM    C(01,00,07);   # VERSION NAME                  #
        END 
  
