27 lines
790 B
COBOL
27 lines
790 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. myTest.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 x PICTURE IS 9(3) VALUE IS 3.
|
|
01 y PICTURE IS 9(3) VALUE IS 2.
|
|
01 z PICTURE IS 9(9).
|
|
PROCEDURE DIVISION.
|
|
CALL "myMultiply" USING
|
|
BY CONTENT x, BY CONTENT y,
|
|
BY REFERENCE z.
|
|
DISPLAY z.
|
|
STOP RUN.
|
|
END PROGRAM myTest.
|
|
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. myMultiply.
|
|
DATA DIVISION.
|
|
LINKAGE SECTION.
|
|
01 x PICTURE IS 9(3).
|
|
01 y PICTURE IS 9(3).
|
|
01 z PICTURE IS 9(9).
|
|
PROCEDURE DIVISION USING BY REFERENCE x, y, z.
|
|
MULTIPLY x BY y GIVING z.
|
|
EXIT PROGRAM.
|
|
END PROGRAM myMultiply.
|