Apply a callback to an array: Difference between revisions

Content added Content deleted

Inline

@@ Line 799: / Line 799: @@
 {{Works with|COBOL 2002}}
 Basic implementation of a map function:
-<syntaxhighlight lang="cobol">       IDENTIFICATION DIVISION.
+<syntaxhighlight lang="cobolfree">       >>SOURCE FORMAT IS FREE
+IDENTIFICATION DIVISION.
-       PROGRAM-ID. map.
+PROGRAM-ID. map.
-       DATA DIVISION.
+DATA DIVISION.
-       LOCAL-STORAGE SECTION.
+LOCAL-STORAGE SECTION.
-i                USAGE IS INDEX.
+i                  USAGE IS INDEX.
-table-size       CONSTANT AS 30.
+table-size         CONSTANT AS 30.
-       LINKAGE SECTION.
+LINKAGE SECTION.
 table-param.
-table-values  USAGE IS FLOAT-LONG OCCURS table-size TIMES.
+table-values    USAGE IS FLOAT-LONG, OCCURS table-size TIMES.
-func-id          PICTURE IS X(30).
+func-ptr           USAGE IS PROGRAM-POINTER.
-       PROCEDURE DIVISION USING BY REFERENCE table-param, func-id.
+PROCEDURE DIVISION USING BY REFERENCE table-param, BY VALUE func-ptr.
-           PERFORM VARYING i FROM 1 BY 1 UNTIL i GREATER THAN table-size
+    PERFORM VARYING i FROM 1 BY 1 UNTIL i IS GREATER THAN table-size
-               CALL func-id USING BY REFERENCE table-values(i)
+        CALL func-ptr USING BY REFERENCE table-values(i)
-           END-PERFORM
+    END-PERFORM
-           GOBACK.
+    GOBACK.
-       END PROGRAM map.</syntaxhighlight>
+END PROGRAM map.</syntaxhighlight>
 =={{header|CoffeeScript}}==