*DECK FINFO 
          IDENT  FINFO
*CALL COPYRITE
          ENTRY  FINFO
          SYSCOM B1 
          TITLE  FINFO - DETERMINE FILE INFORMATION.
          COMMENT FINFO - DETERMINE FILE INFORMATION. 
          SPACE  4,10 
***       FINFO - DETERMINE FILE INFORMATION. 
* 
*         ENTRY - REPLY, AN ARRAY THAT CONTAINS THE REPLY BLOCK.
* 
*         FINFO (REPLY);  *SYMPL* CALL. 
* 
  
  
 FINFO    SUBR               ENTRY/EXIT 
          SB1    1
          FILINFO  X1 
          EQ     FINFOX      RETURN 
  
          END 
