Data commit

Task/Show-ASCII-table/COBOL/show-ascii-table.cobol

@@ -0,0 +1,22 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. CHARSET.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01 CHARCODE PIC 9(3) VALUE 32.
+PROCEDURE DIVISION.
+MAIN-PROCEDURE.
+PERFORM UNTIL CHARCODE=128
+DISPLAY FUNCTION CONCATENATE(
+    FUNCTION CONCATENATE(
+        CHARCODE,
+        " : "
+    ),
+    FUNCTION CONCATENATE(
+        FUNCTION CHAR(CHARCODE),
+        "   "
+    )
+)
+WITH NO ADVANCING
+ADD 1 TO CHARCODE
+END-PERFORM.
+END PROGRAM CHARSET.