ENABLE User's Guide

INTEGRATING APPLICATIONS
Modifying SCREEN COBOL Source Code to Call Another Application
You can then replace the MOVE statement for the "abb" box
with the T9155-CANT-CHAIN-MESSAGE provided by ENABLE, for
example:
2775 T9155-CHAIN.
2776 IF T9155-AAABOX-CHOICE
2777 CALL "AA"
2778 ELSE IF T9155-ABBBOX-CHOICE
2779 MOVE T9155-CANT-CHAIN-MESSAGE TO T9155-ERROR-MSG
2780 ELSE NEXT SENTENCE.
When you replace a MOVE statement with the T9155-CANT-CHAIN-
MESSAGE, the application displays a message whenever a user
presses shifted F3 without first positioning the cursor
within the appropriate box.
Alternatively, you can allow a user to call an application
from both "aaa" box and "abb" box by replacing the MOVE
statements for both boxes with appropriate CALL statements.
If you replace all of the MOVE statements within the
T9155-CHAIN paragraph with CALL statements, the user can call
another application without positioning the cursor within a
specific box.
5. Compile the modified source code by using the SCOBOLX run
command:
SCOBOLX/ IN <source-file-name>, out <list-file-name>,
MEM 64, NOWAIT/ <object-file-name>
<source-file-name>
is the name of the file containing the source code.
<list-file-name>
is the name of the file to which the SCREEN COBOL
listing is to be written.
<object-file-name>
is the name of the file for the object code; this file
should be the same as the object file for the other
applications.
6. Keep the compilation listing of the modified SCREEN COBOL
program. You will need this listing when you modify the
PATHCOM command file.
11-13