Anonymous user
Function definition: Difference between revisions
→{{header|COBOL}}: I don't actually have access to IBM Enterprise COBOL for z/OS version 6.4 so I'm just going off the docs
imported>Acediast (→{{header|COBOL}}: I don't actually have access to IBM Enterprise COBOL for z/OS version 6.4 so I'm just going off the docs) |
|||
Line 1,142:
=={{header|COBOL}}==
In COBOL, ''multiply'' is a reserved word, so the requirements must be relaxed to allow a different function name. The following uses a program:
{{works with|
{{works with|IBM Enterprise COBOL for z/OS}}
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID. myTest.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 x
01 y
01 z
PROCEDURE DIVISION.
CALL "myMultiply" USING
Line 1,162 ⟶ 1,163:
DATA DIVISION.
LINKAGE SECTION.
01 x
01 y
01 z
PROCEDURE DIVISION USING BY REFERENCE x, y, z.
MULTIPLY x BY y GIVING z.
EXIT PROGRAM.
Line 1,171 ⟶ 1,172:
This example uses user-defined functions, which were added in COBOL 2002.
{{works with|
{{works with|IBM Enterprise COBOL for z/OS|6.4}}
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID. myTest.
Line 1,180 ⟶ 1,182:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 x
01 y
PROCEDURE DIVISION.
DISPLAY myMultiply(x, y).
Line 1,191 ⟶ 1,193:
DATA DIVISION.
LINKAGE SECTION.
01 x
01 y
01 z
PROCEDURE DIVISION USING x, y RETURNING z.
MULTIPLY x BY y GIVING z.
END FUNCTION myMultiply.</syntaxhighlight>
|