*COMDECK COMQDEF                   23APR81
# 
      COMQDEF - GLOBAL DEFINITIONS
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMQDEF - GLOBAL DEFINITIONS AND CELLS
  
  
**    IRTLEN - LENGTH OF IMPLICIT ROUTING TEXT (CM WORDS).
# 
      DEF IRTLEN        #26#; 
  
# 
**    ERTLEN - LENGTH OF EXPLICIT ROUTING TEXT (CM WORDS).
# 
      DEF ERTLEN        #26#; 
# 
**    SRTLEN - LENGTH OF SYSTEM ROUTING TEXT IN 60-BIT WORDS. 
# 
      DEF SRTLEN        #26#; 
# 
  
*     MAX LENGTHS OF IMPLICIT, EXPLICIT AND SYSTEM TEXTS IN 
*     CHARACTERS. 
  
# 
      DEF ERTLENC       #256#;
      DEF IRTLENC       #256#;
      DEF SRTLENC       #256#;
  
      DEF NBEXPBL       #64#;      # NOS/BE DSP/QAF TEXT BUFF LENGTH #
  
    CONTROL IFEQ OS$NOS;
      DEF HTSAME     #NS2#; 
      DEF HTNS2NBE   #NBE#; 
    CONTROL ENDIF;
  
    CONTROL IFEQ OS$NOSBE;
      DEF HTSAME     #NBE#; 
      DEF HTNS2NBE   #NS2#; 
    CONTROL ENDIF;
  
# 
**    FILE TRANSFER STATE DEFINITIONS.  THESE DEFINE THE VALUES 
*     OF FIELD FILEFTS IN A FILE TABLE ENTRY. 
* 
*     WARNING - THESE VALUES ARE USED TO DEFINE SWITCH
*               LISTS IN COMMON DECK COMQSWI WHICH IS 
*               CALLED BY SFILI AND SFILS.
# 
  
      DEF FTS$VACANT #00#;         # UNUSED ENTRY # 
      DEF FTS$WNMSG  #01#;         # WAITING FOR NETWORK MESSAGE #
      DEF FTS$ASGUNC #02#;         # FILE ASSIGNED AND NOT CONNECTED #
      DEF FTS$ASGCON #03#;         # FILE ASSIGNED AND CONNECTED #
      DEF FTS$XFRREQ #04#;         # NETXFR REQUIRED #
      DEF FTS$XFRIPG #05#;         # NETXFR IN PROGRESS # 
      DEF FTS$STPREQ #06#;         # STOP/STOPR REQUIRED #
      DEF FTS$ETPREQ #07#;         # ETP REQUIRED # 
      DEF FTS$CMPOK  #08#;         # TRANSFER SUCCESSFUL #
      DEF FTS$CMPCNT #09#;         # TRANSFER COMPLETE, CONN. TERM #
      DEF FTS$UNCNFA #10#;         # NOT CONNECTED, NO FILE ASSIGNED #
      DEF FTS$CONNFA #11#;         # CONNECTED, NO FILE ASSIGNED #
      DEF FTS$UNCWQR #12#;         # NOT CONNECTED, WAIT GETQFIL #
      DEF FTS$CONWQR #13#;         # CONNECTED, WAIT GETQFIL #
      DEF FTS$INIT   #14#;         # INITIAL STATE #
  
      DEF FTS$MAX    #14#;         # MAXIMUM STATE VALUE #
  
# 
**    GETQFIL RESPONSE STATE DEFINITIONS. 
# 
  
      DEF QAR$INCMPL #00#;         # QAC/QAF CALL INCOMPLETE #
      DEF QAR$FILAVL #01#;         # CALL COMPLETE, FILE ASSIGNED # 
      DEF QAR$FILNFF #02#;         # CALL COMPLETE, NO FILE FOUND # 
      DEF QAR$IQFASG #03#;         # UNTRANSFERABLE FILE ASSIGNED # 
  
      DEF QAR$MAX    #03#;         # MAXIMUM VALID STATE VALUE #
  
# 
**    CONNECTION LOG FILE DEFINITIONS.
# 
  
      DEF CLFFETLNG  #06#;         # LENGTH OF CLF FET #
      DEF CLFBUFFER  #65#;         # LENGTH OF CLF BUFFER # 
      DEF CLFCMMLNG  #CLFFETLNG+CLFBUFFER#;  # LENGTH OF CMM BLOCK #
      DEF CLFHDR$LEN #10#;         # CLF HEADER LENGTH #
      DEF CLFHDR$TIL #06#;         # SYSTEM TITLE LENGTH #
  
# 
*     STATE-OF-TRANSFER ORDINALS (USED IN FILESTX[ACN]).
# 
  
      DEF STO$NORMAL #00#;         # NORMAL # 
      DEF STO$UNSPEC #01#;         # UNSPECIFIC TRANSFER #
      DEF STO$REJECT #02#;         # REJECTED # 
      DEF STO$SECURE #03#;         # USER NUMBER ERROR #
      DEF STO$DCERR  #04#;         # OUTPUT DEVICE ERROR #
      DEF STO$ABORT  #05#;         # TRANSFER ABORTED # 
      DEF STO$NORTY  #06#;         # INCOMPLETE - NO RETRY #
      DEF STO$RETRY  #07#;         # TEMPORARY ERROR - RETRY #
  
      DEF STO$MAX    #07#;         # MAXIMUM VALID ORDINAL #
  
# 
*     GLOBAL COMMON FLAGS AND DATA CELLS. 
# 
  
    COMMON COMQDEF; 
      BEGIN  # COMMON BLOCK COMQDEF # 
      ARRAY ZZZPID [0:0] S(1);  # HOST-S PID #
        BEGIN 
        ITEM HID        C(00,42,03);  # HOST-S PHYSICAL IDENT # 
        ITEM HD         U(00,42,18);  # HID - BINARY #
        END 
  
      ITEM ACNNO      U = 0;         # NUMBER OF ACTIVE PATHS # 
      ITEM APNAME     C(7) = "QTF    ";  # APPLICATION NAME # 
      ITEM ATXL       U;             # LENGTH IN ATX #
      ITEM CLFBLOCK   U = 0;         # FWA OF CLF BUFFER #
      ITEM CMMN       U = 0;         # COMMON MEM MGR NAME #
      ARRAY [0:0] S(1); 
        BEGIN 
        ITEM GLA$RETURN U(00,00,60);  # GETLIDA RETURN WORD # 
        ITEM GLA$LID    C(00,00,03);  # LID ATTRIBUTES #
        ITEM GLA$ATTRIB U(00,18,12);  # LID ATTRIBUTES #
        ITEM GLA$HOST   B(00,18,01);  # HOST ATTRIBUTE #
        ITEM GLA$LINK   B(00,19,01);  # LINKED ATTRIBUTE #
        ITEM GLA$ENABLE B(00,20,01);  # ENABLED ATTRIBUTE # 
        ITEM GLA$VALDAT B(00,21,01);  # VALIDATE ATTRIBUTE #
        ITEM GLA$SFHOST B(00,22,01);  # STORE-FORWARD ON HOST # 
        ITEM GLA$SFLINK B(00,23,01);  # STORE-FORWARD ON LINK # 
        ITEM GLA$LOOPB  B(00,24,01);  # LOOPBACK ATTRIBUTE #
        ITEM GLA$NOLIST B(00,25,01);  # NO-LIST ATTRIBUTE # 
        END 
  
      ITEM IDLE       B = FALSE;     # IDLE DOWN FLAG # 
      ITEM INCLFILE   C(7) = " ";    # INCLUDE-FILE NAME #
      ITEM KDSPASSIGN B = FALSE;     # K DISPLAY ASSIGNED FLAG #
      ITEM LACNMAX    U = ACNMAXC;   # LOGICAL MAX. NO. OF CONNECTIONS #
      ITEM LFNNO      U = 0;         # SEED FOR UNIQUE LFN #
      ITEM MSGWFALAST U = 0;       # NUMBER WHEN MSGWFA LAST ISSUED # 
      ITEM NOLFN      U = 0;         # NUMBER OF FILES TRANSFERRED #
      ITEM NOMSGCNT   U = 0;         # NO-MSG-RECEIVED COUNT #
      ARRAY [0:0] S(1);               # PROTOCOL IDENTIFIER # 
        BEGIN 
        ITEM PROTOCL    C(00,00,04) = [PRTCL];
        ITEM PROTOCLVER C(00,00,02);  # VERSION # 
        ITEM PROTOCLLEV C(00,12,02);  # LEVEL # 
        END 
  
      ITEM QRCV       B = FALSE;     # RECEIVER FLAG #
      ITEM SHUTDOWN   B = FALSE;     # NETWORK SHUTDOWN # 
      ITEM XFRACN     I = 0;         # ACN REQUIRING NETXFR # 
  
      BASED ARRAY FET [0:0] S(1); 
        BEGIN 
        ITEM FETWD      U(00,00,60); # WORD IN FET #
        ITEM FETWDC     C(00,00,10); # WORD IN FET #
        ITEM FETLFN     U(00,00,42); # LFN #
        ITEM FETLFNC    C(00,00,07); # LFN #
        ITEM FETEC      U(00,46,04); # ERROR CODE # 
        ITEM FETCIOF    U(00,51,09); # CIO FUNCTION # 
        ITEM FETCOMP    B(00,59,01); # COMPLETE BIT # 
  
        ITEM FETEP      B(01,15,01); # ERROR PROCESSING BIT # 
        ITEM FETRNDM    B(01,12,01); # RANDOM FILE BIT #
        ITEM FETFETL    U(01,36,06); # FET LENGTH # 
        ITEM FETFIR     U(01,42,18); # FIRST POINTER #
  
        ITEM FETIN      U(02,42,18); # IN POINTER # 
  
        ITEM FETOUT     U(03,42,18); # OUT POINTER #
  
        ITEM FETLIM     U(04,42,18); # LIMIT POINTER #
        ITEM FETSFMLLDT U(05,00,12); # *SFM* LIDT TABLE LENGTH #
        END 
  
      BASED ARRAY RA$ZERO S(O"100");
        BEGIN 
        ITEM RA$CFO     B(O"00",45,01); # CFO FLAG #
        ITEM RA$PAUSE   B(O"00",47,01); # PAUSE FLAG #
        ITEM RA$ARG     I(O"02",00,60); # FIRST C/S ARGUMENT #
        ITEM RA$ACT     U(O"64",42,18); # C/S ARGUMENT COUNT #
        ITEM RA$JOP     U(O"66",24,12); # JOB ORIGIN TYPE # 
        ITEM RA$CCD     I(O"70",00,60); # DSD L-DISPLAY COMMUNICATION # 
        ITEM RA$CFOCMD  C(O"70",00,50); # *CFO* INPUT # 
        ITEM RA$CCDBUF  U(O"70",00,12); # ADDRESS OF COMMAND BUFFER # 
        ITEM RA$CCDNAM  C(O"70",12,08); # LDISPLAY (IN DISPLAY CODE) #
        END 
  
      ARRAY [0:STO$MAX] S(1); 
        BEGIN 
        ITEM STO$STX    C(00,00,06) = 
                 ["000000"         # 00 - NORMAL #
                 ,"011000"         # 01 - UNSPECIFIC TRANSFER # 
                 ,"011002"         # 02 - UNACCEPTABLE ATTRIBUTE #
                 ,"011015"         # 03 - INVALID USER NUMBER # 
                 ,"011021"         # 04 - OUTPUT DEVICE ERROR # 
                 ,"022001"         # 05 - ABORTED # 
                 ,"033000"         # 06 - INCOMPLETE, NO RETRY #
                 ,"033001"         # 07 - RETRY # 
                 ]; 
        END 
  
      ARRAY TIM;                     # TIME RETURN CELL # 
        BEGIN 
        ITEM TIMT       U(0,42,18);  # TIME IN SECONDS #
        END 
  
      ARRAY MSGWFA    S(5); 
        BEGIN 
        ITEM $DMSGWFA   C(00,00,48) = [" QTF, NO TRANSFERS ACTIVE.  "]; 
        ITEM MSGWFANAME C(00,00,04);
        ITEM MSGWFANO   C(00,36,02);
        ITEM MSGWFAACN1 C(00,36,01);
        ITEM MSGWFAACN2 C(00,42,01);
        ITEM MSGWFAAM   C(02,36,07);
        ITEM MSGWFAIDLE C(03,18,10);
        ITEM $DMSGWFAZ  U(04,48,12) = [0];
        END 
  
      CONTROL IFEQ OS$NOS;
        ARRAY CLFHDR     S(CLFHDR$LEN); 
          BEGIN 
          ITEM $DCLF1     C(00,00,10) = ["          "]; 
          ITEM CLFHDR$PID C(00,30,03);
          ITEM CLFHDR$TIE C(01,00,60);
          ITEM CLFHDR$DAT C(07,00,10);  # DATE #
          ITEM $DCLF2     U(08,00,60) = [ 0 ];
          ITEM $DCLF3     C(09,00,02) = ["  "]; 
          ITEM $DCLF4     U(09,12,48) = [ 0 ];
          END 
  
      CONTROL ENDIF;
  
      END  # COMMON BLOCK COMQDEF # 
  
      # END OF COMDECK COMQDEF #
                                               CONTROL LIST;
