ENABLE User's Guide

TAILORING AN APPLICATION
Providing a Tabular Format
Employee Information Screen
Page 1/1
To find an employee, enter the first name then the last name:
* Employee Name __________________________________
* Department
Region Number ____ Branch Number ____
Job Title _____________ Vacation ____ * Employee Number ____
Valid values for Rel are either 'S' or 'C'
*No. Dependent Rel
____ _______________ ___
____ _______________ ___
____ _______________ ___
____ _______________ ___
____ _______________ ___
Ready for input F3 for Help, shift F16 to exit
S5044-043
Provides a
tabular
format for
depends-box
SET BOX HEADINGS DDLHEADINGS
SET BOX INCLUDE (empname, dept, job, vacation, empnum)
SET BOX SCREENFORMAT COMPRESSED
SET BOX BOXTITLE 1 "To find an employee, enter the first name then
the last name:"
SET BOX RECORD employee
ADD BOX employ-box
RESET BOX *
SET BOX EXCLUDE (dependent-age)
SET BOX SCREENFORMAT COMPRESSED
SET BOX HEADINGS NULL
SET BOX SIZE 5
SET BOX BOXTITLE 1 "Valid values for Rel are either 'S' or 'C'"
SET BOX BOXTITLE 3 "*No. Dependent Name Rel"
SET BOX RECORD dependents
ADD BOX depends-box
SET APPL TITLE "Employee Information Screen"
SET APPL TREE (01 employ-box
02 depends-box LINK empnum TO OPTIONAL emp-no)
ADD APPL employee-info
GENERATE APPL employee-info
Terminal
Screen:
ENABLE
Commands:
Figure 6-9. Screen With Tabular-Format Box
6-20