ENABLE Reference Manual

GENERATING AN IMMEDIATE MULTIPLE-FILE APPLICATION
Enter the following commands exactly as shown to create two data base
files and an application that can be used to enter data in the files.
PARTS-INFO
Page 1/1
* PARTNUM
* PRIMKEY
LOCATION-NUM
QUANTITY-ON-HAND
REORDER-LEVEL
+ PARTNAME
PRICE
.00
Ready for input...
(1) CREATE A DATA DICTIONARY
:EDIT ddlsrc2
*ADD
1 RECORD PARTS.
2 FILE IS parts KEY-SEQUENCED.
3 02 PARTNUM PIC 9(4) HEADING “PART NUMBER”.
4 02 PARTNAME PIC X(20).
5 02 PRICE PIC 999999V99.
6 KEY 0 IS PARTNUM
7 KEY “pn” IS PARTNAME.
8 END
9
10 RECORD INVENTORY.
11 FILE IS inventry KEY-SEQUENCED
12 02 PRIMKEY.
13 04 PARTNO PIC 9(4)
14 04 LOCATION PIC XXX HEADING “LOCATION NO.”.
15 02 QUANTITY-ON-HAND PIC 99999.
16 02 REORDER-LEVEL PIC X(5)
17 KEY 0 IS PRIMKEY.
18 END
19 / /
*EXIT
:DDL/IN ddlsrc2/DICT, FUP fupsrc2!
(2) CREATE THE DATA BASE FILES
:FUP/IN fupsrc2/
(3) GENERATE THE APPLICATION
:EDIT enabsrc1
ADD
1 SET BOX RECORD PARTS
2 ADD BOX PARTS
3 SET BOX RECORD INVENTORY
4 ADD BOX INVENTORY
5 SET APPL TREE (01 PARTS
6 02 INVENTORY
7 LINK PARTS.PARTNUM TO OPTIONAL INVENTORY.PARTNO)
8 SET APPL PATHCOMFILE multipth !
9 ADD APPL PARTS-INFO
10 GENERATE APPL PARTS-INFO
11 / /
*EXIT
:ENABLE/IN enabsrc1/
(4) ESTABLISH A PATHWAY SYSTEM AND EXECUTE THE APPLICATION
:EDIT enabex2
*ADD
1 PURGE multilog, multictl
2 CREATE multilog
3 ASSIGN PATHCTL, multictl
4 PATHMON/NAME $mult, CPU 0, NOWAIT, OUT multilog/
5 PATHCOM/IN multipth/$mult
6 PATHCOM $mult;RUN PARTS-INFO
7 PATHCOM $mult;SHUTDOWN,WAIT
8/ /
*EXIT
:OBEY enabex2
xiii