ENABLE Reference Manual

GENERATING AN APPLICATION WITH A TABULAR SCREEN
Enter the commands as shown to create a telephone book file and
generate an application that displays the following screen:
TELEPHONE LIST SCREEN
Page 1/1
* Name Phone Number
>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
_____________________ ____ ____ ____
Ready for input...
(1) CREATE A RECORD DESCRIPTION
:EDIT ddlsrc3
*ADD
1 RECORD PHONE-BOOK.
2 FILE IS phones KEY-SEQUENCED.
3 02 NAME PIC X(20)
4 02 PHONE-NUMBER.
5 04 AREA-CODE PIC 9(3)
6 04 PREFIX PIC 9(3)
7 04 NUMBER PIC 9(4)
8 KEY 0 IS NAME.
9 END
10 / /
*EXIT
:DDL/IN ddlsrc3/DICT, FUP telefup
(2) CREATE THE FILE
:FUP/IN telefup/
3) GENERATE THE APPLICATION
:EDIT enabsrc3
*ADD
1 SET RECORD PHONE-BOOK
2 SET SCREENFORMAT COMPRESSED
3 SET HEADINGS NULL
4 SET BOXTITLE 1 “ Name Phone Number”
5 SET BOXTITLE 2 “ >>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>“
6 SET BOXTITLE 3 “ “
7 SET SIZE 10
8 ADD BOX PHONE-BOX
9 SET APPL TREE (01 PHONE-BOX)
10 SET APPL PATHCOMFILE telepath !
11 SET APPL TITLE “TELEPHONE LIST SCREEN”
12 ADD APPL TELE-PROG
13 GENERATE APPL TELE-PROG
14 / /
*EXIT
:ENABLE/IN enabsrc3/
(4) ESTABLISH A PATHWAY SYSTEM AND EXECUTE THE APPLICATION
:EDIT enabobey
*ADD
1 PURGE log3, enabctl3
2 CREATE log3
3 ASSIGN PATHCTL, enabctl3
4 PATHMON/NAME $TWO, CPU 0, NOWAIT, OUT LOG3/
5 PATHCOM/IN TELEPATH/$TWO
6 PATHCOM $TWO;RUN TELE-PROG
7 PATHCOM $TWO;SHUTDOWN,WAIT
8/ /
*EXIT
:OBEY enabobey
xiv