*COMDECK NX$MSG 
#     NX$MSG  - DAYFILE MESSAGE COMMON BLOCK.  #
# 
*     NX$MSG  - DAYFILE MESSAGE COMMON BLOCK. 
* 
*     NX$MSG  IS THE COMMON BLOCK WHICH IS USED TO WRITE DAYFILE
*     MESSAGES. 
# 
  
  
      COMMON NX$MSG ;                # COMMON BLOCK FOR DAYFILE MSGS. # 
        BEGIN  # NX$MSG  #
  
# 
*     IDFMESSAGE - INFORMATIVE DAYFILE MESSAGE ARRAY. 
* 
*     IDFMESSAGE DEFINES ALL INFORMATIVE MESSAGES FOR FIP. TO 
*     ADD A MESSAGE (OR REMOVE A MESSAGE), DEFINE ITS ORDINAL 
*     IN THE STATUS DEFINITIONS / MESSAGE ORDINAL TABLE IN
*     NX$ACBF AND REDEFINE FIRSTIMSGO AND LASTIMSGOR AS NEEDED. 
*     (NOTE: DUE TO A BUG IN THE SYMPL COMPILER, WE CANNOT USE A SYMBOL 
*            THAT HAS BEEN DEFINED AS A NEGATIVE NUMBER AS THE LOWER
*            BOUND OF AN ARRAY.  IF AND WHEN THIS BUG IS FIXED, 
*            FIRSTIMSGO MAY BE SUBSTITUED FOR -2 IN THE ARRAY DEFINITION
*            BELOW. 
# 
  
      ARRAY IDFMESSAGE [-2:MAX$STS] S(5); 
        BEGIN 
        ITEM IDFM$MSG C(0,00,50) = [
                   "TERMINATING XFR OF  FILE                          " 
                  ,"INITIATING TRANSFER OF FILE                       " 
                  ,"TRANSFERRING OF FILE IN PROGRESS                  " 
                  ,"COMPLETED TRANSFER OF FILE                        " 
                  ,"UNDEFINED ERROR ON CON/FILE                       " 
                  ,"CONNECTION BROKEN ON ACN                          " 
                  ,"PROTOCOL ERROR DETECTED ON ACN/FILE               " 
                  ,"TIMED OUT WAITING FOR NETWORK.                    " 
                  ,"OUTPUT BLK NOT DEL ON ACN/FILE                    " 
                  ,"GT 4 FILE TRANSFERS INITIATED.                    " 
                  ,"CONNECTION IS NOT WITHIN THE RANGE                " 
                  ,"SECOND FILE TRANSFERRED ON THIS CON               " 
                  ,"CIO ERROR                                         " 
                  ,"PREMATURE TERM. RECV ON ACN/FILE                  " 
                  ,"IDLEDOWN, NO ERRORS IN XFR                        " 
                  ,"IDLEDOWN, TERMINATE WITH ERROR IN XFR             " 
                  ,"DISABLE WARING RECEIVED.                          " 
                  , 
                  , 
                  , 
                  ,"CTRL WRD FORMAT ERR ON ACN/FILE                   " 
                  ,"FILE ON INVALID DEVICE.                           " 
                  ,"EMPTY FILE DETECTED                               " 
                  ,"ERROR IN INTERFACING WITH NAM.                    " 
                  ,"BLOCK NUMBER MISCOMPARE IN INPUT.                 " 
                  ,"BLOCK SIZE NOT ALLOWABLE.                         " 
  
                  , 
                  ,"BLOCK SEQ OUT OF ORDER ON ACN/FILE                " 
                  ,"PRU BOUNDARY VIOLATION ON ACN/FILE                " 
                  ,"BINARY FILE CAN NOT BE ON PRU CONN.               " 
                  ,"TRANSFER COMPLETED AND ERRORS OCCURED.            " 
                  ,"ABL IS NOT WITHIN THE RANGE                       " 
                  ,"APPLICATION IS NOT ALLOW TO DO XFR                 "
                   ,"ILLEGAL FILE TYPE FOR XFR.                        "
                   ,"ILLEGAL JOB ORIGIN TYPE TO XFR.                   "
                  ,"STARTING INTRAHOST TRANSFER OF FILE               " 
                  ,"MAX NO. OF UNACKED CHECKMARKS REACHED              "
                  ,"ILLEGAL VALUE OF INITIAL CHECKMARK NO.             "
                  ,"CHECK MARK NUMBER IS OUT OF RANGE                 " 
                  ,"MAXIMUM NUMBER OF RETRIES REACHED                 " 
                  ,"INVALID FACILITY CODE SPECIFIED                   " 
                  ,"SENDER RECOVERING FROM ERROR                      " 
                  ,"RECEIVER RECOVERING FROM ERROR                    " 
  
                                   ]; 
        ITEM IDFM$ZERO  U(4,48,12) = [MSG$NUM(0)] ; 
        ITEM IDFM$LFN   C(4,06,07);  # LFN FIELD IN WORD 0 #
        END 
  
  
        END  # NX$ACBF #
