witnessed the priests who bore the invisible burdens... and blessed them.

2025-04-28 18:57:42 -05:00
parent 7ea9cfeb57
commit 154ba70c92
12 changed files with 309 additions and 0 deletions
@@ -0,0 +1,27 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. IO-SENSE.
+       ENVIRONMENT DIVISION.
+       DATA DIVISION.
+       LINKAGE SECTION.
+       01  I                   OCCURS 1000 TIMES PIC S9(5)V9(5).
+       PROCEDURE DIVISION USING I.
+           PERFORM VARYING J FROM 1 BY 1 UNTIL J > 1000
+               COMPUTE I(J) = FUNCTION RANDOM
+           END-PERFORM.
+           GOBACK.
+       END PROGRAM IO-SENSE.
+
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. IO-OUTPUT.
+       ENVIRONMENT DIVISION.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  FIELDPRINT          PIC S9(5)V9(5).
+       LINKAGE SECTION.
+       01  I                   OCCURS 1000 TIMES PIC S9(5)V9(5).
+       01  STEP                PIC 9(7).
+       PROCEDURE DIVISION USING I STEP.
+           CALL 'RWD-FIELDPRINT' USING I FIELDPRINT
+           DISPLAY 'Step: ' STEP ' Fieldprint: ' FIELDPRINT
+           GOBACK.
+       END PROGRAM IO-OUTPUT.