Java Reference
In-Depth Information
ELSE IF MYSUB-ACTION-EVALUATE
* This is a request to evaluate the text item.
PERFORM EVALUATE-TEXT-ITEM.
* On normal exits, clear the traffic-cop switches.
MOVE " " TO MYSUB-TRAFFIC-COP-OUT.
MYSUB-TRAFFIC-COP-IN.
EXIT-PROGRAM.
EXIT PROGRAM.
EVALUATE-TEXT-ITEM SECTION.
EVALUATE-TEXT-ITEM-S.
*
Evaluate the text item, but only if you are not resuming a
*
suspended function.
IF NOT MYSUB-IN-FUNCTION-EXTENDED
IF LOCAL-TEXT = SPACES
MOVE 0 TO MSG-SIZE
ELSE
MOVE 1 TO MSG-SIZE
END-IF
*
If an extended function is requested, return to the caller.
IF MYSUB-ACTION-EXTENDED
PERFORM SET-TRAFFIC-COPS-AND-EXIT
ELSE
*
Else, just move the TEXT in.
MOVE LOCAL-TEXT TO MSG-TEXT
ELSE
*
Else, continue the extended function, and move the TEXT in.
MOVE LOCAL-TEXT TO MSG-TEXT.
SET-TRAFFIC-COPS-AND-EXIT SECTION.
SET-TRAFFIC-COPS-AND-EXIT-S.
MOVE "E" TO MYSUB-TRAFFIC-COP-OUT.
MYSUB-TRAFFIC-COP-IN.
SET-TRAFFIC-COPS-AND-EXIT-NOW.
EXIT PROGRAM.
GET-ARGUMENT-COUNT SECTION.
GET-ARGUMENT-COUNT-S.
*
Set ARGUMENT-COUNT to the result.
CALL "C$NARGS" USING ARGUMENT-COUNT.
