*COMDECK  IOPOS 
          TITLE  IOPOS - POSITION FILE
**        IOPOS  -  RETURN FILE POSITION
* 
*         ENTRY  X2 = ADDRESS OF FIT
* 
*         EXIT   CSFPOS CONTAINS POSITIONAL INFORMATION 
* 
  
 IOPOS    SUBR   =
  
 OSSC2    IFEQ   HOST,SC2 
          GETPOS X2,X6
 OSSC2    ELSE
  
*         USE ROUTINE IOFIL TO EXECUTE FILINFO CALL 
*         PLACE POSITION INFORMATION INTO X6 FOR LATER STORE
  
          SA5    X2          WORD CONTAINING LFN (IOFIL INPUT)
  
          RJ     IOFIL       X5 = LFN INPUT, X5 = NZ IF LFN EXISTS
  
*         FILADR IS STARTING ADDRESS OF THE FILINFO TABLE INFORMATION 
  
          BX6    X5          RETURN ZERO POSITION IF NO LFN 
          ZR     X5,POS10    LFN DID NOT EXIST
  
          SA2    FILADR+W.FMPOS  WORD WITH POSITIONAL INFO. 
          EX6    X2,FMPOS    POSITION INFORMATION 
 POS10    BSS 
 OSSC2    ENDIF 
  
          SA6    CSFPOS      STORE POSITION OF CURRENT FILE 
  
          JP     IOPOS       EXIT 
  
  
