Apply a callback to an array: Difference between revisions

Content added Content deleted

Inline

@@ Line 797: / Line 797: @@
 =={{header|COBOL}}==
+{{Works with|COBOL 2002}}
 Basic implementation of a map function:
 <syntaxhighlight lang="cobol">       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Map.
+       PROGRAM-ID. map.
        DATA DIVISION.
-       WORKING-STORAGE SECTION.
-Table-Size CONSTANT 30.
        LOCAL-STORAGE SECTION.
-I USAGE UNSIGNED-INT.
+i                USAGE IS INDEX.
+table-size       CONSTANT AS 30.
        LINKAGE SECTION.
-Table-Param.
+table-param.
-Table-Values USAGE COMP-2 OCCURS Table-Size TIMES.
+table-values  USAGE IS FLOAT-LONG OCCURS table-size TIMES.
+func-id          PICTURE IS X(30).
-Func-Id PIC X(30).
-       PROCEDURE DIVISION USING Table-Param Func-Id.
+       PROCEDURE DIVISION USING BY REFERENCE table-param, func-id.
-           PERFORM VARYING I FROM 1 BY 1 UNTIL Table-Size < I
+           PERFORM VARYING i FROM 1 BY 1 UNTIL i GREATER THAN table-size
-               CALL Func-Id USING BY REFERENCE Table-Values (I)
+               CALL func-id USING BY REFERENCE table-values(i)
            END-PERFORM
+           GOBACK.
-           GOBACK
+       END PROGRAM map.</syntaxhighlight>
-           .</syntaxhighlight>
 =={{header|CoffeeScript}}==