Retro1.org codex

*DECK ERR$NS
PROC ERR$NS;                 # ERROR DEFINITIONS                       #
 
# TITLE ERR$NS - ERROR DEFINITIONS.                                    #
 
      BEGIN    # ERR$NS # 
# 
**    ERR$NS - ERROR DEFINITIONS. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS STATUS LIST FOR ALL
*     KINDS OF NS ERRORS, AND A COMMON BLOCK FOR THE
*     ERROR WORD DEFINITION.
* 
# 
 
      CONTROL STEXT;
 
      STATUS EC              # ERROR CODE STATUS LIST                  #
        ZERO,                # 0 NO ERROR                              #
        ERR$NP,              # 1 NETWORK PROTOCAL ERROR                #
        ERR$SM,              # 2 INCOMING SUPERVISORY MESSAGE ERROR    #
        ERR$LGL,             # 3 OUTGOING SM LOGICAL ERROR             #
                             # NPU ACTIVITY ERRORS FOLLOW              #
        ERR$TIMER,           # 4 TIMER EXPIRED                         #
        ERR$FILE,            # 5 FILE FORMAT ERROR                     #
        ERR$DN,              # 6 DUMP FILE INDEX FULL                  #
        ERR$PREEM,           # 7 CURRENT ACTIVITY PREEMPTED            #
        ERR$RETRYS,          # 8 RETRY LIMIT REACHED                   #
        ERR$ABRESP,          # 9 ABNORMAL RESPONSE RECEIVED            #
        ERR$SUDTST,          # 10 SUD TEST FAILED                      #
        ERR$SUDL,            # 11 SUD LOAD FAILED                      #
        ; 
      STATUS FEC             # FILE ERROR CODE STATUS LIST             #
        ZERO,                # 0 NOT USED                              #
        ERR$DPCB,            # 1 BAD DPCB                              #
        ERR$LPCB,            # 2 BAD LPCB                              #
        ERR$SPCB,            # 3 BAD SPCB                              #
        ERR$PICB,            # 4 BAD PICB RECORD                       #
        ERR$PICBNF,          # 5 PICB RECORD NOT FOUND                 #
        ERR$LMNF,            # 6 LOAD MODULE RECORD NOT FOUND          #
        ERR$LM,              # 7 BAD LOAD MODULE RECORD                #
        ERR$NCBSIZ,          # 8 NCB SIZE EXCEEDS ALLOWED LIMIT        #
        ERR$PICBD,           # 9 ILLEGAL PICB DIRECTIVES               #
        ; 
      STATUS SMEC            # SM ERROR CODE STATUS LIST               #
        ZERO,                # 0 NOT USED                              #
        NSM$ABH,             # 1 NETWORK SM ABH ERROR                  #
        NSM$ADDR,            # 2 NETWORK SM ADDRESS ERROR              #
        NSM$FMT,             # 3 NETWORK SM PFC/SFC/LT/CC ERROR        #
        NSM$DMP,             # 4 NETWORK SM DUMP RESPONSE ERROR        #
        HSM$ABH,             # 5  HOST SM ABH ERROR                    #
        HSM$PFCSFC,          # 6  HOST SM ILLEGAL PFC/SFC              #
        HSM$HOPSM,           # 7  ILLEGAL HOP SM                       #
        ; 
 
      COMMON ERR$COM; 
 
      BEGIN # ERR$COM # 
 
      BASED ARRAY ERRORWORD [0:0] S(1); 
        BEGIN 
        ITEM ERRW$WORD  U(00,00,60);   # WHOLE WORD                    #
        ITEM ERRW$EC    U(00,48,06);   # ERROR CODE                    #
        ITEM ERRW$DEC   U(00,54,06);   # DETAIL ERROR CODE             #
        ITEM ERRW$CODE  U(00,48,12);   # REASON CODE                   #
        END 
 
      END   # ERR$COM # 
 
      END   # ERR$NS #
      TERM