*DECK TLFNINF 
      PROC TLFNINF ;
      BEGIN 
      CONTROL STEXT;
                                                                         LFNINFO
      DEF L$FITOFFSET#1#;          # LOC(L$FITLOC) - LOC(L$FIRSTIME)   #
      XREF BASED ARRAY LFNINFO;                                          LFNINFO
        BEGIN                                                            LFNINFO
        ITEM L$FIRSTIME B(0,0, 1); #T IF FILE HAS NOT BEEN USED        # LFNINFO
        ITEM L$NEXT   I( 0,42,18); #PTR TO NEXT TABLE IN LIST          # LFNINFO
        ITEM L$WSA    I(00,24,18); #WSA                                #
        ITEM L$DESPTR I( 0, 6,18); #PTR TO ARRAY DESPTR                # LFNINFO
        ITEM L$FITLOC I(L$FITOFFSET,00,60);  # FWA OF 35-WORD FIT/FET  #
        ITEM L$FITLFNC C(L$FITOFFSET,0,7);   # LFN OF FILE             #
        END                                                              LFNINFO
                                                                         LFNINFO
      END 
      TERM
