A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Function-definition/COBOL/function-definition.cobol
+++ b/Task/Function-definition/COBOL/function-definition.cobol
@ -0,0 +1,29 @@
+       * Multiply in COBOL
+
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. myTest.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  x   PIC 9(3) VALUE 3.
+       01  y   PIC 9(3) VALUE 2.
+       01  z   PIC 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.
+       WORKING-STORAGE SECTION.
+       LINKAGE SECTION.
+       01  x   PIC 9(3).
+       01  y   PIC 9(3).
+       01  z   PIC 9(9).
+       PROCEDURE DIVISION USING x, y, z.
+           MULTIPLY x BY y GIVING z.
+           EXIT PROGRAM.
+       END PROGRAM myMultiply.