*COMDECK MSGIDX 
                                                                       #
*                                     MSGIDX
*                  DAYFILE MESSAGE INDEX DEFINITION 
*                  THE VALUE OF THE DEF IS 64*FLAG+INDEX
*                  FLAG BEING THE ABORT FLAG
*                    1 IF NIP IS TO BE ABORTED
*                    0 IF RETURN TO THE CALLER
*                  INDEX IS THE INDEX OF THE MESSAGE
  
                                                                       #
   DEF DFMSG01#65#;          # NIP FATAL EROOR PROC = XXXX. --FATAL--  #
   DEF DFMSG02#2#;           # SECURITY VIOLATION APP XXXXXXX.         #
   DEF DFMSG03#3#;           # APP SENT BLK ON BROKEN CONNECTION       #
   DEF DFMSG04#4#;           # NIP UNABLE TO FIND FAILED APP XXXXXXX   #
   DEF DFMSG05#5#;           # BAD NETWORK BLOCK DISCARDED             #
   DEF DFMSG06#6#;           # NIP SHUTDOWN COMPLETE                   #
   DEF DFMSG07#7#;           # NIP/SCP ERROR RC=XXB, JOBID=YYYYYYY     #
   DEF DFMSG11#8#;           # BREAK OUTSTANDING                       #
   DEF DFMSG09#73#;          # NIP RECEIVED BLOCK ON PRU CONNECTION    #
   DEF DFMSG20#10#;          # BAD MAXACN/MINACN VALUE IN NET/ON/R     #
   DEF DFMSG26#26#;          # INVALID TRIGGER NUMBER - YYSTTP         #
   DEF MSGNUM#16#;           # NUMBER OF DAYFILE MESSAGES              #
  
   COMMON DFMSG;
     BEGIN
     ARRAY DMSG P(1);        # MARKS POSITION OF COMDECK IN DUMP       #
       BEGIN
       ITEM DMSGM  C(0,0,5)=["DFMSG"];
       ITEM DMSGZ  U(0,30,12)=[0];
       ITEM DMSG7  U(0,42,18)=[O"777777"];
       END
     ARRAY DFMSG10  S(2); 
       BEGIN
       ITEM D10M1   C(0,0,11)=["NVF FAILURE"];
       ITEM D10M2   U(1,6,54)=[0];
       END
     ARRAY DFMSG12  S(3); 
       BEGIN
       ITEM D12M1   C(0,0,20)=["NIP RECEIVED BAD BSN"]; 
       ITEM D12M2   U(2,0,WL)=[0];
       END
     ARRAY DFMSG14  S(4); 
       BEGIN
       ITEM D14M1   C(0,0,31) = [" NIP/SST RC = XXB,JOBID = XXXX."];
       ITEM D14M2   U(1,24,12); 
       ITEM D14M3   C(2,36,4);
       ITEM D14M4   U(3,6,54) = [0];
       END
     ARRAY DFMSG15 P(3);
       BEGIN
       ITEM D15M1   C(0,0,20) = [" CCP ERROR - NCSTTP "]; 
       ITEM D15M2   U(2,0,60) = [0];
       END
     ARRAY DFMSG16 S(4) ; 
       BEGIN
       ITEM D16M1     C(0,0,30) = ["SH/ISD ON NON-EXISTENT AN     "]; 
       ITEM D16M2    C(3,0,8)  = ["        "] ; 
       ITEM D16AN    I(3,48,12) ; 
       END
      ARRAY DFMSG23 S(4) ;
        BEGIN 
        ITEM D23M1 C(0,0,35) = [" SCP PROBLEM - TAKE DEADSTART DUMP "] ;
        ITEM D23M2 U(3,30,30) = [0] ; 
        END 
      ARRAY DFMSG21 S(3) ;
        BEGIN 
        ITEM DF21M1 C(0,0,28) = [" HOST SHUTDOWN COMPLETE     "] ;
        ITEM DF21M2   U(2,42,12) = [0] ;
        END 
      ARRAY DFMSG22 S(3) ;
      BEGIN 
        ITEM D22M1 C(00,00,22) = [" NIP RECEIVED DBG/ST "] ;
        ITEM D22M2 U(02,06,54) = [0] ;
      END 
     ARRAY DFMSG17 P(4);
       BEGIN
       ITEM D17M1  C(00,00,38) =
                   [" NS NOT RESPONDING TO NPU INIT REQUEST"];
       ITEM D17M2  U(03,48,12) = [0];  # ZERO TERMINATOR               #
       END
  
      ARRAY DFMSG18 P(3); 
        BEGIN 
        ITEM D18M1    C(00,00,24) = [" HIT GARBAGE IN KDIS BUF"]; 
        ITEM D18M2    C(02,24,36) = [0];
        END 
  
      ARRAY DFMSG19 P(2); 
        BEGIN 
        ITEM D19M1    C(00,00,13) = [" NO INTERLOCK"];
        ITEM D19M2    U(01,18,42) = [0];
        END 
  
      ARRAY DFMSG24 S(4); 
        BEGIN 
        ITEM D24M1   C(00,00,32) = [" GARBAGE IN NIP BUFFER - NXBLINK"];
        ITEM D24M2   U(03,12,48) = [0]; 
        END 
  
  
  
     ARRAY DFMSG25  S(3); 
       BEGIN
       ITEM D25M1     C(0,0,24) = ["NIP DUMP TAKEN -        "]; 
       ITEM D25M2     C(01,42,7);  # ROUTINE NAME                      #
       ITEM D25M3     U(02,24,36) = [0];
       END
  
  
     ARRAY DFMSG27  S(3); 
       BEGIN
       ITEM D27M1     C(0,0,21) = ["NIP INTERNAL ERROR - "];
       ITEM D27M2     C(2,06,7);  # ROUTINE NAME                       #
       ITEM D27M3     U(2,48,12) = [0]; 
       END
  
     ARRAY DFMSG28  S(3); 
       BEGIN
       ITEM D28M1    C(00,00,22) = ["FILE         NOT FOUND"];
       ITEM D28M2    C(00,30,07);  # FILE NAME                         #
       ITEM D28M3    U(02,12,48) = [0]; 
       END
  
      ARRAY DFMSG29 S(2); 
        BEGIN 
        ITEM D29M1  C(0,0,14) = ["NIP REPRIEVED."]; 
        ITEM D29M2  U(1,24,36) = [0];  # ZEROS                         #
        END 
  
      ARRAY DFMSG30 S(4) ;
        BEGIN 
        ITEM D30M1  C(0,0,20) = [" NVF ERROR, RC/RCN/A"]; 
        ITEM D30M2  C(2,0,18) = [" ON NON-LOANED CON"] ;
        ITEM D30M3  U(3,48,12) = [0] ;
        END 
  
     END
  
