.ps 60,80
.lm 5
.rm 75
.spr 5,,4
.cc
.ap
.blank 2
.c;Submissions From HATFIELD PACKING COMPANY
.blank 2
.c;submitted by:
.blank 2
.c;Jim Shelly
.c;HATFIELD PACKING COMPANY
.c;2700 Funks Rd. P.O. Box 70 Hatfield Pa., 19440
.c;(215)368-2500 ext. 315 (05:30 - 14:30 EST)
.blank 2
.ft
.fl bold
.fl comment
.c;^*PRFILE\*
.s 2
^*GETTING STARTED\*

Edit PRFILE.COM and change the value of WIDE_FORM and NARROW_FORM.  WIDE_FORM
should be the name of a form associated with 11.5" x 14" paper.  NARROW_FORM
should be a form defined with a setup module in a device control library that
will cause files to print 132 characters across on narrow (8.5" x 11") paper.  
The point to all this is that the output of PRFILE is 132 characters across
and if you choose to print the records you just looked at, they can either be 
sent to SYS$PRINT and come out on 11.5" x 14" paper or the output will be 
directed to a print queue of your own choosing and print 132 characters across
on 8.5" x 11" paper.

All logical names and references to directories have hopefully been removed
from all the .COM and .COB files so the assumption is that all the files needed
for execution are in your default directory.

PRFILE uses some VT100 video attributtes and should be executed on a VT100 
compatable terminal or edited to remove the escape sequences.
.s 2
^*HOW TO USE\*

All default responses are enclosed in []'s. To execute PRFILE type @PRFILE. 
PRFILE will respond with:
.s 1
 ^*Enter file name: \*
.s 1

Enter a logical name pointing to a file or a literal directory and/or file name.
if you exclude a filetype and the name entered is not a logical name,  a filetype
of .DAT is assumed.  All files will be opened with shared read only access
but you must have access to the file in order to look at it.  Entering a "." 
or just hitting the <return> key will end the program.
.s 2
^*Indexed Files\*

If the file entered is an indexed file, a KEY-OF-REFERENCE query will follow.
.s 1
 ^*Enter a key of reference: [key 0] \*
.s 1

Press <return> to choose the primary key, "1" for key1, "2" for key2, etc. etc.
Enter a "." to return to the filename query.  PRFILE now displays the key
selected, it's size, and asks for a starting key value.
.s 1
 ^*Key nn has a maximum length of nnn\*
.s 1
 ^*Enter starting key value: [begin]\*
.s 1

PRFILE uses the value entered here to do a start on the file specified. Enter
a "." to return to the key-of-reference query.  PRFILE now asks for a maximum
key value.
.s 1
 ^*Enter maximum value: [one record] \*
.s 1

PRFILE uses the value entered here as the maximum key value to process.  Enter
a "." to return to the key-of-reference query.
.s 2
^*Sequential, Relative and other Files\*

If the file entered is an anything other than an indexed file, a record number
query will follow.
.s 1
 ^*Enter starting record number: [begin]\*
.s 1

PRFILE uses the value entered here to do a start on the file specified. Enter
a "." to return to the filename query.  PRFILE now asks for the maximum record
number to display.
.s 1
 ^*Enter maximum value: [one record] \*
.s 1

PRFILE uses the value entered here as the maximum record number to process.  
Enter a "." to return to the filename query.
.s 2
^*All Files\*

PRFILE now displays the range of records requested.  Typing a CRTL/Y will end
the display before the maximum key value or record number has been reached.

In addition to displaying the records requested, PRFILE will write the records
to an output file as they're displayed.  The filename is in the format
"username"_PRF_n.LIS and will be placed in the directory defined by SYS$LOGIN:
After displaying the requested range of records or recieving a CRTL/Y, PRFILE
will ask if you wish to print the records just displayed.
.s 1
 ^*DO YOU WANT TO PRINT THESE RECORDS? \*
.s 1

Enter "YES" or "NO" or the name of a print queue. "NO" is the default reply,
"YES" will send the records displayed (and only the records displayed) to
your default system print queue.  The file created by PRFILE will be deleted
regardless of your reply.

An example of the output is in the file PRFILE.LIS.  Because of some of the
default responses to questions asked by PRFILE, pressing <return> repeatedly
or CRTL/Y will not get you out of the program.  Entering a period in response
to a quiry will in most cases return you to a previous query and then out of
the program.