*COMDECK COMDXFR
# 
**    COMDXFR - COMMON NETXFR ERROR CODE DEFINITIONS, 
*                USED BY *XFRERR* (QTF/QTFS)
*                AND *PTERXF* (MFLINK/PTFS).
* 
*                * * * * * * * * * * *   IF XFR$FLAGS IS MODIFIED, MAKE 
*                *   C A U T I O N   *   CORRESPONDING CHANGES IN DECKS 
*                * * * * * * * * * * *   *PTERXF* AND *XFRERR*. 
# 
  
      DEF MAXXFRERR  #32#;         # MAXIMUM NETXFR RETURN CODE # 
      ARRAY [0:MAXXFRERR] S(2); 
        BEGIN 
        ITEM XFR$FLAGS  U(00,00,06);  # NETXFR STATUS FLAGS # 
        ITEM XFR$CONCB  B(00,00,01) = [ TRUE, 
                 FALSE, FALSE,  TRUE,  TRUE,  TRUE, 
                  TRUE,  TRUE,  TRUE,  TRUE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE,  TRUE, 
                 FALSE, FALSE,  TRUE, FALSE, FALSE, 
                  TRUE,  TRUE,  TRUE,  TRUE,  TRUE, 
                  TRUE, FALSE,  TRUE,  TRUE,  TRUE, 
                  TRUE,  TRUE]; 
        ITEM XFR$IDLE   B(00,01,01) = [FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE,  TRUE,  TRUE,  TRUE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE]; 
        ITEM XFR$SHUT   B(00,02,01) = [FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE,  TRUE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE]; 
        ITEM XFR$ERRTXT B(00,03,01) = [FALSE, 
                 FALSE,  TRUE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE,  TRUE, 
                 FALSE, FALSE, FALSE, FALSE,  TRUE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE]; 
        ITEM XFR$NORTRY B(00,04,01) = [FALSE, 
                 FALSE,  TRUE, FALSE, FALSE, FALSE, 
                 FALSE,  TRUE,  TRUE,  TRUE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                  TRUE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE]; 
        ITEM XFR$CONBRK B(00,05,01) = [FALSE, 
                 FALSE, FALSE,  TRUE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE, FALSE, FALSE, FALSE, 
                 FALSE, FALSE]; 
  
        ITEM XFR$ERRMSG C(00,06,19) = 
                 ["(UNKNOWN).         ",     # 00 # 
                  "                   ",     # 01 # 
                  "SYSTEM ERROR.      ",     # 02 # 
                  "CONNECTION BROKEN. ",     # 03 # 
                  "PROTOCOL ERROR.    ",     # 04 # 
                  "TIMEOUT EXPIRED.   ",     # 05 # 
                  "BLOCK NOT SENT.    ",     # 06 # 
                  "TOO MANY TRANSFERS.",     # 07 # 
                  "ACN OUT-OF-RANGE.  ",     # 08 # 
                  "NETXFR IN PROGRESS.",     # 09 # 
                  "CIO ERROR.         ",     # 10 # 
                  "                   ",     # 11 # 
                  "                   ",     # 12 # 
                  "IDLEDOWN ERROR.    ",     # 13 # 
                  "SHUTDOWN.          ",     # 14 # 
                  "RHF I/O ERROR.     ",     # 15 # 
                  "INCORRECT DEVICE.  ",     # 16 # 
                  "CODE CONV N/A.     ",     # 17 # 
                  "CONTROL WORD ERROR.",     # 18 # 
                  "INCORRECT DEVICE.  ",     # 19 # 
                  "EMPTY FILE.        ",     # 20 # 
                  "NAM INTERFACE ERR. ",     # 21 # 
                  "BLK NUM MISCOMPARE.",     # 22 # 
                  "INCORRECT BLK SIZE.",     # 23 # 
                  "(UNKNOWN).         ",     # 24 # 
                  "BLOCK SEQUENCE ERR.",     # 25 # 
                  "PRU BOUNDS ERROR.  ",     # 26 # 
                  "INTRA-HOST PRU XFR.",     # 27 # 
                  "ERROR DURING XFR.  ",     # 28 # 
                  "ABL OUT OF RANGE.  ",     # 29 # 
                  "APPL NOT VALIDATED.",     # 30 # 
                  "FILE TYPE ERROR.   ",     # 31 # 
                  "JOB ORIGIN ERROR.  "];    # 32 # 
        ITEM XFR$ERRFLG C(00,06,01);
        END 
