Apply a callback to an array: Difference between revisions

<syntaxhighlight lang="cobolcobolfree"> IDENTIFICATION>>SOURCE FORMAT IS DIVISION.FREE

PROGRAM-ID. map.

DATA DIVISION.

LOCAL-STORAGE SECTION.

01 i 01 i USAGE IS INDEX.

01 table-size CONSTANT AS 30.

LINKAGE SECTION.

01 table-param.

03 table-values USAGE IS FLOAT-LONG, OCCURS table-size TIMES.

01 func-idptr PICTURE USAGE IS X(30)PROGRAM-POINTER.

PROCEDURE DIVISION USING BY REFERENCE table-param, BY VALUE func-idptr.

PERFORM VARYING i FROM 1 BY 1 UNTIL i IS GREATER THAN table-size

CALL func-idptr USING BY REFERENCE table-values(i)

END-PERFORM

GOBACK.

END PROGRAM map.</syntaxhighlight>