Java Reference
In-Depth Information
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 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).
*
In the subroutine's definition of MYSUB-CONTROL,
*
PRIVATE-ITEMS is redefined with items known only to the subroutine.
03 FILLER REDEFINES MYSUB-PRIVATE-ITEMS.
05 MYSUB-PRIVATE-COUNTER PIC 9(8).
05 MYSUB-OTHER-PRIVATE-ITEMS PIC X(12).
01 TEXT-STRING PIC X(20).
PROCEDURE DIVISION USING MYSUB-CONTROL, TEXT-STRING.
MYSUB-INITIAL SECTION.
MYSUB-INITIAL-S.
*
The program then performs some function to detect the number of
*
arguments,
PERFORM GET-ARGUMENT-COUNT.
IF ARGUMENT-COUNT = 2
MOVE TEXT-STRING TO LOCAL-TEXT
ELSE
MOVE MSG-TEXT TO LOCAL-TEXT.
*
Increments the Global counter,
ADD 1 TO CALL-COUNTER.
*
processes the ACTION-SWITCHES,
IF MYSUB-ACTION-INITIALIZE
*
and initializes the instance counter.
MOVE 0 TO MYSUB-PRIVATE-COUNTER
*
If requested, the program returns the value in the counter
*
variable.
ELSE IF MYSUB-ACTION-GET-CALL-COUNTER
MOVE CALL-COUNTER TO MYSUB-RETURNED-CALL-COUNTER
ELSE IF MYSUB-ACTION-EVALUATE
*
This is a request to evaluate the text item.
PERFORM EVALUATE-TEXT-ITEM.
*
The program increments the instance counter.
ADD 1 TO MYSUB-PRIVATE-COUNTER.
