*COMDECK  IOFIL 
          TITLE  IOFIL - CALL FILINFO PROCESS 
**        IOFIL  -  CALL FILINFO PROCESS
* 
*         ENTRY  X5 = FILE NAME LEFT JUSTIFIED
* 
*         EXIT  X5 = 0 IF FILE DOES NOT EXIST 
*                  = NZ, FILE INFORMATION AT W.FMSTS
*                    (SEE FMXXX FIELD DEFINITIONS IN DECK CCL)
* 
  
 IOFIL    SUBR   =
  
          MX7    N.FMLFN
          ERRNZ  59-S.FMLFN 
          BX5    X7*X5
          SX7    L.FM        LENGTH OF FILINFO DATA TABLE 
          LX7    S.FMWC-N.FMWC+1
          BX7    X7+X5       FILE NAME + LENGTH INTO WORD 
          ERRNZ  W.FMLFN-W.FMWC 
  
 OSNOS    IFEQ   HOST,NOS 
  
          SX5    B1          =1 
          BX7    X7+X5       SET COMPLETE BIT 
          SA7    FILADR+W.FMLFN 
  
 OSNOS    ELSE
  
          SA7    FILADR+W.FMLFN 
  
 OSNOS    ENDIF 
          FILINFO FILADR
  
          SA5    FILADR+W.FMSTS  FILE EXISTENCE INDICATOR 
          JP     IOFIL       EXIT 
  
  
