*DECK FPSTAT
          IDENT  FPSTAT 
*CALL COPYRITE
          ENTRY  FPSTAT 
          SYSCOM B1 
          TITLE  FPSTAT - DETERMINE FILE POSITION AND STATUS. 
          COMMENT  FPSTAT - DETERMINE FILE POSITION AND STATUS. 
          SPACE  4,10 
***       FPSTAT - DETERMINE FILE POSITION AND STATUS.
* 
*         ENTRY - FILE, AN ARRAY THAT CONTAINS THE FET. 
* 
*         FPSTAT (FILE);  *SYMPL* CALL. 
* 
  
  
 FPSTAT   SUBR               ENTRY/EXIT 
          SB1    1
          STATUS  X1,P
          EQ     FPSTATX     RETURN 
  
          END 
