*DECK QTFXFR
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQFIL 
USETEXT COMQNET 
    PROC QTFXFR;
      BEGIN    # QTFXFR # 
# 
**    QTFXFR     CALL NETXFR TO INITIATE FILE TRANSFER. 
* 
*     QTFXFR IS THE QTF/QTFS INTERFACE TO THE NETXFR FILE TRANSFER
*     ROUTINES. 
* 
*     PROC QTFXFR 
* 
*     ENTRY      XFRACN = AFT INDEX OF CONNECTION REQUIRING NETXFR. 
* 
*     EXIT       NETXFR INITIATED (IF LACNNMAX EQ 1, NETXFR COMPLETE).
* 
*     PROCESS    CALL NETXFR. 
# 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC FTUXFR;               # INITIATE FILE TRANSFER # 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
  
      ITEM NOWAIT     B;           # NETXFR NO-WAIT FLAG #
      ITEM TMPFILETAB U;           # SAVE FILETAB POINTER # 
      ITEM XMIT       B;           # NETXFR TRANSMIT FLAG # 
  
        $BEGIN
        NAME("QTFXFR"); 
        $END
  
      XMIT = NOT QRCV;             # QTF TRANSMITS, QTFS RECEIVES # 
      NOWAIT = LACNMAX GT 1;       # NO WAIT IF MULTIPLE CONNECTIONS #
      TMPFILETAB = P<FILETAB>;     # SAVE POINTER TO FILETAB ENTRY #
      P<FILETAB> = AFT[XFRACN];    # POINT TO XFR FILETAB ENTRY # 
      P<FET> = LOC(FILESTS);
      FTUXFR (XFRACN, FILELFNC, XMIT, FET, NOWAIT, FILEXDD, 
              FILETOU, FILEABL, FILEFCIC, FILEMBZ, FILEACKW); 
      FILEFTS = FTS$XFRIPG;        # TRANSFER IN PROGRESS # 
      P<FILETAB> = TMPFILETAB;     # RESTORE FILETAB POINTER #
  
      END  # QTFXFR # 
    TERM
