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

Sample Project-Tracking System
Project-Info Application
2. Provide usage information to appear within the "employees"
box
3. Provide screen labels for the employee records
4. Request a SCREEN COBOL compilation listing that will be used
when the application is integrated into a single PATHWAY
system
ASSUME BOX
SET RECORD employees
SET HEADINGS NULL
SET SCREENFORMAT COMPRESSED
SET SIZE 5
SET BOXTITLE 1 " ***** To return to a calling program, press SF16 *****"
SET BOXTITLE 3 " + Employee Name * ID # + Dept."
SET INCLUDE (emp-name, emp-no, emp-dept)
ADD employees
ASSUME APPL
SET TITLE "Employee ID Display and Entry Screen"
SET TREE (01 employees)
SET SCOBOLLIST exam31st !
SET PATHCOMFILE prfile4 !
ADD look-up
GENERATE APPL look-up
1
2
3
4
Figure 12-18. ENABLE Commands Used to Generate the Look-Up
Application
Project-Info Application
The purpose of the "project-info" application is to display
general information about a project and the events related to
it. To use this application, enter a project name and press the
appropriate read-operation key. The application returns
information about the project and up to ten related events. If
detailed information about an event is needed, the user can press
a function key and call the "event-detail" application.
12-29