ENABLE Reference Manual

GENERATING AN IMMEDIATE SINGLE-FILE APPLICATION
Enter the commands exactly as shown to create a data base file
and an application that can be used to enter employee data.
EMPLOYEE-PROG
Page 1/1
* EMPNUM
+ EMPNAME
+ DEPT
REGNUM
BRANCHNUM
JOB
AGE
SALARY
.00
VACATION
Ready for input F3 for Help, shift F16 to exit
(1) CREATE A DATA DICTIONARY
:EDIT ddlsrc1
*ADD
1 RECORD EMPLOYEE.
2 FILE IS empfile KEY-SEQUENCED.
3 02 EMPNUM PIC 9(4).
4 02 EMPNAME PIC X(18).
5 02 DEPT.
6 04 REGNUM PIC 9(4).
7 04 BRANCHNUM PIC 9(4).
8 02 JOB PIC X(12).
9 02 AGE PIC 99.
10 02 SALARY PIC 9999V99.
11 02 VACATION PIC S99.
12 KEY IS EMPNUM.
13 KEY “EN” IS EMPNAME.
14 KEY “DP” IS DEPT.
15 END
16 / /
*EXIT
:DDL/IN ddlsrc1/DICT, FUP fupsrc1 !
(2) CREATE A DATA BASE FILE
:FUP/IN fupsrc1/
(3) CALL ENABLE AND GENERATE AN APPLICATION
:ENABLE
%SET BOX RECORD EMPLOYEE
%ADD BOX EMPLOYEE
%SET APPL TREE (01 EMPLOYEE)
%SET APPL PATHCOMFILE singlpth !
%ADD APPL EMPLOYEE-PROG
%GENERATE EMPLOYEE-PROG
%EXIT
(4) ESTABLISH A PATHWAY SYSTEM AND EXECUTE THE APPLICATION
:EDIT enabex1
*ADD
1 PURGE enablog, enabctl
2 CREATE enablog
3 ASSIGN PATHCTL, enabctl
4 PATHMON/NAME $one,CPU 0, NOWAIT,OUT enablog/
5 PATHCOM/IN singlpth/$pm
6 PATHCOM $one;RUN EMPLOYEE-PROG
7 PATHCOM $one;shutdown,wait
8/ /
*EXIT
:OBEY enabex1
xii