*COMDECK  IOREWN
          TITLE  IOREW - REWIND FILE   IORTN - RETURN FILE
**        IOREW  -  REWIND
* 
*         ENTRY  X2 = FIT ADDRESS 
* 
  
 IOREW    SUBR   =
  
 OSSC2    IFEQ   HOST,SC2 
          REWINDM X2
 OSSC2    ELSE
          SA5    X2 
          RJ     IOFET       RESET FET FIELDS 
  
          REWIND X2,R 
 OSSC2    ENDIF 
  
          JP     IOREW       EXIT 
  
  
**        IORTN  -  RETURN FILE 
* 
*         ENTRY  X5  = FILE NAME TO BE RETURNED 
* 
  
 IORTN    SUBR   =
  
          SX2    FILEIO 
          RJ     IOFET       RESET FET FIELDS 
  
 OSSC2    IFEQ   HOST,SC2 
  
          RJ     IOFIL       RETURN X5 NZ IF FILE EXISTS
  
          ZR     X5,IORTN    EXIT IF FILE DID NOT EXIST 
          SETFIT FILEIO 
 OSSC2    ENDIF 
  
 OSNOSBE  IFEQ   HOST,NOSBE 
          CLOSE  FILEIO,RETURN,R
 OSNOSBE  ELSE
          RETURN FILEIO,R 
 OSNOSBE  ENDIF 
          JP     IORTN       EXIT 
  
  
