Anonymous user
Apply a callback to an array: Difference between revisions
→{{header|COBOL}}: fixed to standard USAGEs
imported>Acediast (→{{header|COBOL}}: fixed to standard USAGEs) |
|||
Line 797:
=={{header|COBOL}}==
{{Works with|COBOL 2002}}
Basic implementation of a map function:
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID.
DATA DIVISION.
01 Table-Size CONSTANT 30.▼
LOCAL-STORAGE SECTION.
01
LINKAGE SECTION.
01
03
▲ 01 Func-Id PIC X(30).
PROCEDURE DIVISION USING
PERFORM VARYING
CALL
END-PERFORM
GOBACK.
END PROGRAM
=={{header|CoffeeScript}}==
|