2013-04-10 21:29:02 -07:00
|
|
|
IDENTIFICATION DIVISION.
|
|
|
|
|
PROGRAM-ID. myTest.
|
2014-01-17 05:32:22 +00:00
|
|
|
ENVIRONMENT DIVISION.
|
|
|
|
|
CONFIGURATION SECTION.
|
|
|
|
|
REPOSITORY.
|
|
|
|
|
FUNCTION myMultiply.
|
2013-04-10 21:29:02 -07:00
|
|
|
DATA DIVISION.
|
|
|
|
|
WORKING-STORAGE SECTION.
|
|
|
|
|
01 x PIC 9(3) VALUE 3.
|
|
|
|
|
01 y PIC 9(3) VALUE 2.
|
|
|
|
|
PROCEDURE DIVISION.
|
2014-01-17 05:32:22 +00:00
|
|
|
DISPLAY myMultiply(x, y).
|
2013-04-10 21:29:02 -07:00
|
|
|
STOP RUN.
|
|
|
|
|
END PROGRAM myTest.
|
|
|
|
|
|
|
|
|
|
IDENTIFICATION DIVISION.
|
2014-01-17 05:32:22 +00:00
|
|
|
FUNCTION-ID. myMultiply.
|
2013-04-10 21:29:02 -07:00
|
|
|
DATA DIVISION.
|
|
|
|
|
LINKAGE SECTION.
|
|
|
|
|
01 x PIC 9(3).
|
|
|
|
|
01 y PIC 9(3).
|
2014-01-17 05:32:22 +00:00
|
|
|
01 z pic 9(9).
|
|
|
|
|
PROCEDURE DIVISION USING x, y RETURNING z.
|
2013-04-10 21:29:02 -07:00
|
|
|
MULTIPLY x BY y GIVING z.
|
2014-01-17 05:32:22 +00:00
|
|
|
EXIT FUNCTION.
|
|
|
|
|
END FUNCTION myMultiply.
|
