Java Reference
In-Depth Information
CALLER COBOL
This program will call MYSUB. MYSUB will return to this program before it is
completely finished with its algorithm so that this program can perform some ad-
ditional logic. This program will then call MYSUB again so that MYSUB can com-
plete its logic.
IDENTIFICATION DIVISION.
PROGRAM-ID. CALLER.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MYSUB-CONTROL.
03 MYSUB-ACTION-SWITCH PIC X.
88 MYSUB-ACTION-INITIALIZE VALUE "I".
88 MYSUB-ACTION-EVALUATE VALUE "E".
88 MYSUB-ACTION-SET-AND-EVALUATE VALUE "S".
88 MYSUB-ACTION-GET-CALL-COUNTER VALUE "G".
03 MYSUB-ACTION-EXTENDED-SWITCH PIC X VALUE " ".
88 MYSUB-ACTION-EXTENDED VALUE "E".
03 MYSUB-TRAFFIC-COP-IN PIC X VALUE " ".
88 MYSUB-IN-FUNCTION-EXTENDED VALUE "E".
03 MYSUB-TRAFFIC-COP-OUT PIC X VALUE " ".
88 MYSUB-OUT-FUNCTION-EXTENDED VALUE "E".
03 MSG-TEXT PIC X(20).
03 MSG-SIZE PIC 9(8).
03 MYSUB-RETURNED-CALL-COUNTER PIC 9(10).
03 MYSUB-PRIVATE-ITEMS
PIC X(20).
01 TEXT-STRING PIC X(20).
01 TEXT-CHANGED-COUNTER PIC 99999 VALUE 0.
PROCEDURE DIVISION.
START-PROGRAM SECTION.
START-PROGRAM-S.
*
Initialize MYSUB.
SET MYSUB-ACTION-INITIALIZE TO TRUE.
PERFORM CALL-MYSUB.
*
Prepare a text argument for MYSUB.
MOVE "ANYTEXT" TO TEXT-STRING.
SET MYSUB-ACTION-EVALUATE TO TRUE.
*
Request that MYSUB return before completion.
*
MYSUB will reset this switch upon completion.
MOVE "E" TO MYSUB-ACTION-EXTENDED-SWITCH.
Search WWH ::




Custom Search