27 lines
766 B
COBOL
27 lines
766 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. myTest.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
REPOSITORY.
|
|
FUNCTION myMultiply.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 x PICTURE IS 9(3) VALUE IS 3.
|
|
01 y PICTURE IS 9(3) VALUE IS 2.
|
|
PROCEDURE DIVISION.
|
|
DISPLAY myMultiply(x, y).
|
|
STOP RUN.
|
|
END PROGRAM myTest.
|
|
|
|
IDENTIFICATION DIVISION.
|
|
FUNCTION-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 x, y RETURNING z.
|
|
MULTIPLY x BY y GIVING z.
|
|
GOBACK.
|
|
END FUNCTION myMultiply.
|