Submissions From HATFIELD PACKING COMPANY submitted by: Jim Shelly HATFIELD PACKING COMPANY 2700 Funks Rd. P.O. Box 70 Hatfield Pa., 19440 (215)368-2500 ext. 315 (05:30 - 14:30 EST) This represents Hatfield's first DECUS Tape submission. It consists of a few programs that we haven't seen on other DECUS tapes. All the sources, command procedures, objects, exe's, and miscellaneous files are included. These programs are all currently running under VMS V4.4 and they will probably work on any system running VMS V4.0 or later, I have no idea if they will run under VMS V3.x. All the programs are written in COBOL V3.3. Feel free to send me any questions, comments, bugs, enhancements, etc. 1. [.INDEXF] - This directory contains 2 programs that use INDEXF.SYS to report different kinds of information. o LBN - When given a logical block number on a disk, LBN will return the file located there. If ANAL/ERR only gives a sector, track, and cylinder where the error occurred (RP07 errors for example), LBN can calculate the logical block number if supplied with the number of heads on the drive (RP07=32) and the number of sectors (RP07=50). See LBN.DOC for details. o DISKFRAG - A program that reads through INDEXF.SYS and counts the number of extents each file on that disk has and reports the number of contiguous files, files with 2 thru 10 extents, 11 thru 20 extents, etc. etc. An example of the output is included. See DISKFRAG.DOC for details. 2. [.PRFILE] - This directory contains a DUMPlike utility. PRFILE accepts a filename, a key of reference for indexed files with alternate keys, a record number, key, range of record numbers, or range of key values and displays the contents of the records selected in hex and alpha-numeric characters. This program comes in very handy when trying to examine the actual contents of a record or file. An example of the output is included. See PRFILE.DOC for details.