*DECK FFSUSOB 
USETEXT TEXTFFS                      # FS  SYSTEM DEFINITIONS         # 
PROC FFSUSOB (ENDFILE); 
*CALL COPYRITE
# TITLE FFSUSOB - SEND OUTPUT BLOCK VIA TCP.                          # 
  
      BEGIN                          # FFSUSOB #
  
# 
**    FFSUSOB - SEND OUTPUT BLOCK VIA TCP.
* 
*     CMP   03/88 
* 
*     'FFSUSOB' ISSUES A REQUEST TO SEND THE CURRENT OUTPUT BLOCK VIA 
*     NAM TO TCP. IT THEN CHECKS THE FLOW CONTROL RELEASE WORD TO SEE 
*     IF MORE DATA CAN BE SENT AND SETS THE RETURN STATUS APPROPRIATELY.
* 
*     ENTRY:  
*           COMMON BLOCK OUTBUFF CONTAINS THE BLOCK TO BE SENT. 
*           COMMON BLOCK CTRLREC CONTAINS THE BYTE COUNT OF THE BLOCK.
* 
*     EXIT :  
*           (OUTFCR) = TRUE IF FLOW CONTROL RELEASE IS SET. 
* 
# 
  
      XREF
        BEGIN 
        PROC FFSLCRP;                # CONN MANAGEMENT REQ PROCESSOR  # 
        END 
  
      ITEM ENDFILE B;                # TRUE IF END OF FILE ENCOUNTERED# 
                                                         CONTROL EJECT; 
  
      REQ$RCODE[RFTPCM$] = RCM"RCSENDAT"; 
      REQ$CTYPE[RFTPCM$] = CTYPE"CTDATA"; 
      REQ$LEN[RFTPCM$]   = BYTESOUT - CURROUT;
      REQ$Q[RFTPCM$]     = FALSE; 
      REQ$M[RFTPCM$]     = NOT ENDFILE; 
      REQ$ADDR[RFTPCM$]  = P<CDTBUF>; 
  
      FFSLCRP;
  
      CURROUT = BYTESOUT; 
  
#     SET STATUS BYTE FROM FLOW CONTROL RELEASE BYTE...                #
  
      OUTFCR = ACN$FCR[CTYPE"CTDATA"];
  
      RETURN; 
  
      END                            # FFSUSOB #
  
      TERM
