HP Integrity NonStop J-Series - Manual (Page 253)

Sample Project-Tracking System
Project-Entry Application
5. Indicate that the application can display up to five records
in the "events" box
6. Request SCREEN COBOL source code that can be modified to
provide the application with the ability to call
"employee-assign"
ASSUME BOX
SET SCREENFORMAT COMPRESSED
SET HEADINGS NULL
SET RECORD employees
SET DELETE OFF, UPDATE OFF, INSERT OFF
SET INCLUDE (emp-name, emp-no)
SET BOXTITLE 1 " ***** To assign employees to events,&
press SF3 *****"
SET BOXTITLE 3 "+ Manager Name * ID No."
ADD manager
RESET DELETE, UPDATE, INSERT
SET RECORD projects
SET INCLUDE (proj-mgr, proj-desc, proj-start-date,
proj-end-date, proj-status, proj-code)
SET BOXTITLE 1 " Proj. Dates"
SET BOXTITLE 2 " Proj. Starting Ending Proj. Proj."
SET BOXTITLE 3 " Description dy mo yr dy mo yr Stat. Code"
ADD projects
SET SIZE 5
SET RECORD events
SET INCLUDE (event-key, event-desc, predict-start-date,
predict-end-date)
SET BOXTITLE 1 " Event Dates "
SET BOXTITLE 2 "* Event Events Starting Ending"
SET BOXTITLE 3 " No. Description dy mo yr dy mo yr"
ADD events
ASSUME APPL
SET TREE (01 manager
02 projects LINK emp-no TO OPTIONAL proj-mgr
03 events LINK projects TO OPTIONAL events VIA proj-code)
SET TITLE "Project Entry Screen"
SET PATHCOMFILE prfile1 !
SET SCOBOLSOURCE appllsrc !
ADD project-entry
GENERATE project-entry
1
2
3
4
5
6
Figure 12-14. ENABLE Commands for the Project-Entry Application
12-25