*COMDECK FILINFO
          IDENT  FILINFO
          ENTRY  FILINFO
          SYSCOM B1 
          COMMENT FILE INFORMATION. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
          SPACE  4,10 
***       FILINFO - FILE INFORMATION. 
* 
*         CALL FILINFO(PAR)      *FORTRAN*
* 
*         FILINFO(PAR);          *SYMPL*
* 
*         ENTRY  (PAR) = FIVE WORD PARAMETER BLOCK. 
*                        THE FIRST WORD MUST HAVE THE 
*                        FOLLOWING FORMAT : 
* 
*                        VFD    42/LFN, 6/LEN, 11/0, 1/1
* 
*                        WHERE
* 
*                        LFN   FILE NAME, LEFT JUSTIFIED, 0 FILLED. 
*                        LEN   MUST BE AT LEAST 5 WORDS.
* 
*         EXIT   INFORMATION ABOUT THE FILE IS RETURNED IN THE
*                PARAMETER BLOCK (SEE NOS VERS. 2, VOL. 4). 
* 
*         USE    B - 1. 
* 
*         MACRO  FILINFO. 
  
  
 FILINFO  SUBR               ENTRY/EXIT 
          SB1    1
 NOS      IF     DEF,CSMR 
          SA2    X1 
          SX6    B1 
          BX6    X2+X6       ENSURE COMPLETE BIT SET FOR LFM= 
          SA6    X1 
 NOS      ENDIF 
          FILINFO X1
          EQ     FILINFOX    RETURN 
          END 
