*DECK SHRTIN
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBX 
USETEXT COMAFET 
    PROC SHRTIN;
# TITLE SHRTIN - TERMINATE SHORT INPUT EXTENT.  # 
  
      BEGIN  # SHRTIN # 
  
# 
**    SHRTIN - TERMINATE SHORT INPUT EXTENT.
* 
*     SHRTIN TERMINATES A SHORT INPUT EXTENT. 
* 
*     PROC SHRTIN 
* 
*     ENTRY 
* 
* 
*     EXIT
* 
* 
* 
* 
* 
*     PROCESS    SET NON-EXISTENT INPUT EXTENT. 
*                IF INPUT I/O IS NOT DONE:  
*                  UPDATE GETFET POINTER
*                  SET REQUEST NORMAL I/O STATE.
*                ISSUE INPUT REQUEST. 
* 
****  PROC SHRTIN - XREF LIST BEGIN.
# 
  
      XREF
        BEGIN 
        PROC INREQ;                # ISSUE INPUT REQUEST #
        FUNC MODIN I;                # MODULO INPUT BUFFER POINTER #
        END 
  
# 
****  PROC SHRTIN - XREF LIST END.
# 
  
  
  
      INDATSTATE = DSNULL;         # SET NON-EXISTENT DATA STATE #
      IF INIOSTATE NE IODONE       # IF INPUT I/O NOT DONE #
      THEN
        BEGIN 
        GFETOUT = MODIN(INWDSIZE); # UPDATE GETFET POINTER #
        INIOSTATE = IOREQNRML;     # SET I/O STATE #
        END 
  
      INREQ;                       # ISSUE INPUT REQUEST #
  
      RETURN; 
  
      END  # SHRTIN # 
  
    TERM
