Hp Integrity NonStop J-Series Bedienungsanleitung PDF herunterladen (Seite 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 <application-name>

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

1 2 ... 211 212 213 214 215 216 217 218 219 220 221 ... 361 362

Keine Kommentare

Hp Integrity NonStop J-Series Bedienungsanleitung Seite 216