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

INTEGRATING APPLICATIONS
Modifying SCREEN COBOL Source Code to Call Another Application
3. Use the editor to examine the T9155-CHAIN paragraph, for
example:
*LIST 2775/2785
2775 T9155-CHAIN.
2776 IF T9155-AAABOX-CHOICE
2777 MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
2778 ELSE IF T9155-ABBBOX-CHOICE
2779 MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
2780 ELSE NEXT SENTENCE.
2781 ...
*
Note that the source code that appears between the phrase
T9155-CHAIN and the clause ELSE NEXT SENTENCE is the only
source code that affects the ability of the application to
call another application.
4. Use a SCREEN COBOL CALL statement to replace the "MOVE
T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG" sentence. In
its simplest form a CALL statement appears as follows:
CALL
Note the the T9155-CHAIN paragraph might refer to more than
one box. In the preceding example, this paragraph refers to
two boxes:
• "aaa" (T9155-AAABOX-CHOICE)
• "abb" (T9155-ABBBOX-CHOICE)
To call an application named "AA" from the box named "aaa,"
replace the MOVE statement for this box with a CALL
statement, for example:
2775 T9155-CHAIN.
2776 IF T9155-AAABOX-CHOICE
2777 CALL "AA"
2778 ELSE IF T9155-ABBBOX-CHOICE
2779 MOVE T9155-NOT-SUPPORTED-MESSAGE TO T9155-ERROR-MSG
2780 ELSE NEXT SENTENCE.
11-12