*COMDECK LFGBUFCOM
      DEF BUFLEN #5000#;
      COMMON TFIL;           # COMMON AREA FOR INPUT FILES             #
        BEGIN 
          ARRAY MEMIN [1:BUFLEN];ITEM INBUF;     #INPUT BUFFER         #
          ITEM ADDR,         # COMBINED ADDRESS                        #
               LEN,          # LENGTH OF HEADER                        #
               FEOF B;       # END OF FILE INDICATOR                   #
          ARRAY PDATA [0:257];
            ITEM PBUF;       # WORKING STORAGE AREA                    #
        END 
