ENABLE User's Guide

Sample Project-Tracking System
Modifying the Source Code for the Project-Entry Application
To allow these applications to call others, you must modify and
compile their source code files, as described in Section 11.
Briefly, you must change an entry in the T9155-CHAIN paragraph of
the source code to include a call to the appropriate application.
Modifying the Source Code for the Project-Entry Application
The "project-entry" application needs the ability to call the
"employee-assign" application. The T9155-CHAIN paragraph of the
"project-entry" source code appears as follows:
T9155-CHAIN.
IF T9155-MANAGERBOX-CHOICE
MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
ELSE 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 a user to call the "employee-assign" application when
the cursor is positioned within the "events" box of
"project-entry," the source code must be modified to include the
CALL statement as follows:
T9155-CHAIN.
IF T9155-MANAGERBOX-CHOICE
MOVE T9155-CANT-CHAIN--MESSAGE TO T9155-ERROR-MSG
ELSE IF T9155-PROJECTBOX-CHOICE
MOVE T9155-CANT-CHAIN-MESSAGE TO T9155-ERROR-MSG
ELSE IF T9155-EVENTSBOX-CHOICE
CALL employee-assign
ELSE NEXT SENTENCE.
Notice that a T9155-CANT-CHAIN-MESSAGE replaces the T9155-NOT-
SUPPORTED-MESSAGE for both MANAGERBOX-CHOICE and
PROJECTBOX-CHOICE. If the user must position the cursor with a
particular box to call another application, be sure to exchange
these messages. Refer to Section 11 for more information about
the T9155-CANT-CHAIN-MESSAGE.
12-37