*DECK FULLIN
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBX 
USETEXT COMAFET 
    PROC FULLIN;
# TITLE FULLIN - TERMINATE FULL INPUT EXTENT.  #
  
      BEGIN  # FULLIN # 
  
# 
**    FULLIN - TERMINATE FULL INPUT EXTENT. 
* 
*     FULLIN TERMINATES A FULL INPUT EXTENT.
* 
*     PROC FULLIN 
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
* 
*     PROCESS    UPDATE GET FET POINTER.
*                SET NON-EXISTENT INPUT EXTENT. 
*                ISSUE INPUT REQUEST. 
* 
****  PROC FULLIN - XREF LIST BEGIN.
# 
  
      XREF
        BEGIN 
        PROC INREQ;                # ISSUE INPUT REQUEST #
        FUNC MODIN I;                # MODULO INPUT BUFFER POINTER #
        END 
  
# 
****  PORC FULLIN - XREF LIST END.
# 
  
CONTROL EJECT;
  
      GFETOUT = MODIN(INWDSIZE);
      INDATSTATE = DSNULL;
      INREQ;
  
      RETURN; 
  
      END  # FULLIN # 
  
    TERM
