Java Reference
In-Depth Information
01 TEXT-STRING PIC X(20).
* This is the interface definition for the subroutine.
PROCEDURE DIVISION USING MYSUB-CONTROL, TEXT-STRING.
MYSUB-INITIAL SECTION.
MYSUB-INITIAL-S.
*
Perform the subroutine's function. Test the passed string for spaces
*
and set MSG-SIZE accordingly.
IF TEXT-STRING = SPACES
MOVE 0 TO MSG-SIZE
ELSE
MOVE 1 TO MSG-SIZE.
MOVE TEXT-STRING TO MSG-TEXT.
EXIT-PROGRAM.
EXIT PROGRAM.
CALLER COBOL
Now, suppose you've written a calling program that uses this subroutine:
IDENTIFICATION DIVISION.
PROGRAM-ID. CALLER.
DATA DIVISION.
WORKING-STORAGE SECTION.
* Create the parameter definitions.
01 MYSUB-CONTROL.
03 MSG-TEXT PIC X(20).
03 MSG-SIZE PIC 9(8).
01 TEXT-STRING PIC X(20).
PROCEDURE DIVISION.
START-PROGRAM SECTION.
START-PROGRAM-S.
*
Prepare the parameters.
MOVE "ANYTEXT" TO TEXT-STRING.
*
Call the subroutine.
CALL "MYSUB" USING MYSUB-CONTROL, TEXT-STRING.
*
Evaluate the result.
IF MSG-SIZE OF MYSUB-CONTROL = 0
DISPLAY "MSG SIZE equals 0"
ELSE
