*DECK FCSOFTO 
USETEXT TEXTFCS;
      PROC FCSOFTO; 
*CALL COPYRITE
# TITLE FCSOFTO - FLUSH TERMINAL OUTPUT.                               #
  
      BEGIN                            # FCSOFTO                       #
  
# 
**    FCSOFTO - FLUSH TERMINAL OUTPUT.
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE FLUSHES THE OUTPUT FILE IF IT IS ASSIGNED TO 
*     THE TERMINAL. 
* 
*     PROC FCSOFTO
* 
*     ENTRY   FTPOUTPUT  = FTP OUTPUT FILE. 
*             MBOX       = INDEX OF MBT ENTRY FOR OUTPUT FILE.
* 
*     EXIT    OUTPUT FILE FLUSHED.
* 
*     METHOD  FLUSH OUTPUT FILE IF IT IS ASSIGNED TO THE TERMINAL.
* 
# 
  
# 
****  PROC FCSOFTO - XREF LIST
# 
      XREF
        BEGIN 
        PROC WRITER;                   # WRITE END OF RECORD           #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF FTPOUTPUT NQ "0" 
      THEN
        BEGIN                          # OUTPUT FILE EXISTS            #
        IF MBT$DT[MBOX] EQ "TT" 
        THEN
          BEGIN                        # FILE ASSIGNED TO TERMINAL     #
          WRITER (MBT[MBOX]);          # FLUSH OUTPUT FILE             #
          END 
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSOFTO                       #
  
      TERM
