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

Sample Project-Tracking System
Modifying the SCREEN COBOL Source Code of Selected Applications
4. Reset the UPDATE attribute to allow a user to update the
fields from an "events" record displayed within the
"events-4" box
5. Request a SCREEN COBOL compilation listing for this
application
ASSUME BOX
SET RECORD events
SET SCREENFORMAT COMPRESSED
SET HEADINGS DDLHEADINGS
SET DELETE OFF, INSERT OFF, UPDATE OFF
SET INCLUDE (event-key)
SET BOXTITLE 1 "Enter a project no. and an event no., then press F6. After you make"
SET BOXTITLE 2 "changes, press F14. "
SET BOXTITLE 3 " "
ADD BOX my-event
SET FILL ON
SET HEADINGS NULL
SET INCLUDE (event-key, event-desc, predict-start-date, predict-end-date)
SET BOXTITLE 1 " Original Dates "
SET BOXTITLE 2 " Event Description Starting Ending "
SET BOXTITLE 3 " dy mo yr dy mo yr"
ADD BOX events-3
RESET UPDATE
SET INCLUDE (event-key, revised-start-date, revised-end-date, change-info,
update-emp)
SET BOXTITLE 1" Revised Dates "
SET BOXTITLE 2"Starting Ending Your ID"
SET BOXTITLE 3"dy mo yr dy mo yr Reason for Date Change No. "
ADD BOX events-4
SET APPL PATHCOMFILE prfile6 !
SET APPL SCOBOLLIST exam61st !
SET APPL TREE (01 my-event
03 events-3 LINK my-event TO OPTIONAL events-3 VIA event-key
03 events-4 LINK my-event TO OPTIONAL events-4 VIA event-key)
SET APPL TITLE "Event Revision Screen"
ADD APPL event-revised
GENERATE APPL event-revised
1
2
3
4
5
Figure 12-24. ENABLE Commands to Generate the Event-Revised
Application
MODIFYING THE SCREEN COBOL SOURCE CODE OF SELECTED APPLICATIONS
Three applications within the project-tracking system have the
ability to call other applications. These calling applications
are "project-entry," "employee-assign," and "project-info."
12-36