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

Sample Project-Tracking System
Modifying the Source Code for the Employee-Assign Application
Modifying the Source Code for the Employee-Assign Application
The "employee-assign" application needs the ability to call the
"look-up" application. The T9155-CHAIN paragraph for the
"employee-assign" application appears as follows:
T9155-CHAIN.
IF T9155-EVENTSBOX-CHOICE
MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
ELSE IF T9155-PARTICBOX-CHOICE
MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
ELSE NEXT SENTENCE.
To allow users of this application to call the "look-up"
application, you must modify this source code to appear as
follows:
T9155-CHAIN.
IF T9155-EVENTSBOX-CHOICE
CALL look-up
ELSE IF T9155-PARTICBOX-CHOICE
CALL look-up
ELSE NEXT SENTENCE.
Modifying the Source Code for the Project-Info Application
The "project-info" application needs the ability to call the
"event-detail" application. The T9155-CHAIN paragraph of the
"project-info" source code appears as follows:
T9155-CHAIN.
IF T9155-PROJECTBOX-CHOICE
MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
ELSE IF T9155-EVENTSBOX-CHOICE
MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
ELSE NEXT SENTENCE.
To allow users of this application to call the "event-detail"
application, modify this source code to include the CALL
statement as follows:
T9155-CHAIN.
IF T9155-PROJECTBOX-CHOICE
CALL event-detail
ELSE IF T9155-EVENTSBOX-CHOICE
CALL event-detail
ELSE NEXT SENTENCE.
12-38