*COMDECK COMRUNKN 
#     COMRUNKN - DEFINES UNKNOWN REQUEST UCP MESSAGES. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRUNKN - DEFINES UNKNOWN REQUEST UCP MESSAGES.
* 
*     DEFINES UCP MESSAGES GENERATED BY UNKNOWN REQUEST QUEUE 
*     PROCESSING. 
* 
* 
# 
  
      COMMON COMRUNKN;
      BEGIN  # COMRUNKN # 
  
      ITEM MSGCALLERR C(31) =  "INVALID APPLICATION CALL TO RHF"; 
      ITEM MSGNONETON C(28) =  "APPLICATION IS NOT NETTED ON";
      ITEM MSGBADAPL  C(33) =  "INVALID APPLICATION TABLE ADDRESS"; 
      ITEM MSGNOAPPL  C(48) = 
          "NO APPLICATION ADDRESS IN RHF CALL--EXTRA CHARGE"; 
  
      ARRAY [0:0] S(4); 
        BEGIN 
        ITEM MSGCNBA    C(00,00,30) = ["COULD NOT BE ABORTED."];
        ITEM CNA$LENGTH I(03,00,60) = [21]; 
        END 
  
      ARRAY [0:0] S(4); 
        BEGIN 
        ITEM MSGINVAD   C(00,00,35) = 
          ["INVALID XXXXXXXXXXXXXXXX 000000."]; 
        ITEM MIA$INVPAR C(00,48,16); # PARAMETER THAT WAS INVALID # 
        ITEM MIA$INPRAD C(02,30,06); # ADDRESS OF INVALID PARAMETER # 
        ITEM MIA$LENGTH I(03,30,30) = [32]; 
        END 
  
      ARRAY [0:0] S(4); 
        BEGIN 
        ITEM MSGFATSSFE C(00,00,30) = ["FATAL SSF ERROR. FC=00,RC=00."];
        ITEM MSE$FC     C(02,00,02); # SSF FUNCTION CODE #
        ITEM MSE$RC     C(02,36,02); # SSF REPLY CODE # 
        ITEM MSE$LENGTH I(03,00,60) = [29]; 
        END 
  
      END  # COMRUNKN # 
                                               CONTROL LIST;
