PCFORMAT User's Guide

Tandem Database to 654X Application: A Complete Example
Operation
066374 Tandem Computers Incorporated 2–7
4. This step is optional. Its purpose is to take a look at the contents of a
database file and its record description as it exists on the Tandem host
system.
The sample database file is named CYCPARTS (short for “motor cycle
parts”), the same name used for the record description in the database
dictionary. In this example, the dictionary and the CYCPARTS file are
in the same subvolume. The CYCPARTS record description was
created in an EDIT file.
a. Select the subvolume containing the record description file and
display the contents of the file. Figure 2-2 shows the description for
the CYCPARTS record.
Figure 2-2. DDL Source for CYCPARTS Record
Record CYCPARTS
File is “CYCPARTS” key-sequenced
02 part pic x(16) heading “Part”.
02 part-no pic 9999 heading “Part No.”.
02 location pic x999 heading “Location”.
02 in-stock pic 9999 heading “In Stock”.
02 reorderlev pic 99 heading “Reorder @”.
02 cost pic 999v99 heading “Cost”.
02 retail pic 999v99 heading “Retail”.
Key is CYCPARTS.PART.
Key “PN” is CYCPARTS.PART-NO.
Key “LC” is CYCPARTS.LOCATION.
End
b. Select the subvolume containing the database file and run
ENFORM to list its contents (i.e., enter ENFORM command “OPEN
CYCPARTS;” followed by “LIST CYCPARTS;”). Figure 2-3 shows
the headings and data in CYCPARTS.
c. When you are through with ENFORM, enter the EXIT command to
return to the COMINT prompt.