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

Sample Project-Tracking System
Event-Revised Application
ASSUME BOX
SET DELETE OFF, INSERT OFF, UPDATE OFF
SET SCREENFORMAT COMPRESSED
SET RECORD events
SET HEADINGS DDLHEADINGS
SET BOXTITLE 1 " ***** To return to a calling program, press SF16 *****"
SET INCLUDE (event-key)
ADD event-x
SET FILL ON
SET INCLUDE (event-key, event-desc, change-info, update-emp)
SET HEADINGS NULL
SET BOXTITLE 1 " Updating"
SET BOXTITLE 2 " Event Description Reason for Date Change Employee ID"
ADD events-a
RESET BOXTITLE 2
SET RECORD employees
SET INCLUDE (emp-no, emp-name)
SET BOXTITLE 1 "Updating Employee Name"
ADD employ-assign
ASSUME APPL
SET PATHCOMFILE prfile5 !
SET SCOBOLLIST exam51st !
SET TREE (01 event-x
02 events-a LINK event-x TO OPTIONAL events-a VIA event-key
03 employ-assign LINK update-emp TO OPTIONAL emp-no)
SET TITLE "Event Detail Screen"
ADD event-detail
GENERATE event-detail
1
2
3
4
Figure 12-22. ENABLE Commands to Generate the Event-Detail
Application
Event-Revised Application
The purpose of the "event-revised" application is to provide
employees with the ability to revise the starting and ending
dates for a particular event within a project. To find the
correct event, the employee enters a project number and an event
number. The application then returns the event description and
the predicted starting and ending dates. Although the employee
cannot change the predicted starting and ending dates, he or she
can enter revised dates and describe the reason for the date
change.
The "event-revised" application uses three different boxes to
represent the "events" file. When an employee uses the
application, each box contains a different portion of the same
events record. Figure 12-23 shows the screen displayed
by this application.
12-34