cobol/witness_seed_3.0/src/IO.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID. IO-SENSE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  J                      PIC 9(4).
       LINKAGE SECTION.
       01  I                      OCCURS 1000 TIMES PIC S9(5)V9(5).

       PROCEDURE DIVISION USING I.
       ENTRY "IO-SENSE" USING I.
           PERFORM VARYING J FROM 1 BY 1 UNTIL J > 1000
               COMPUTE I(J) ROUNDED = 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).
       01  J                      PIC 9(4).
       LINKAGE SECTION.
       01  I                      OCCURS 1000 TIMES PIC S9(5)V9(5).
       01  STEP                   PIC 9(7).

       PROCEDURE DIVISION USING I STEP.
       ENTRY "IO-OUTPUT" USING I STEP.
           CALL 'RWD-FIELDPRINT' USING I FIELDPRINT
           DISPLAY 'Step: ' STEP ' Fieldprint: ' FIELDPRINT
           GOBACK.
       END PROGRAM IO-OUTPUT.
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`IDENTIFICATION DIVISION.`
			`PROGRAM-ID. IO-SENSE.`
			`ENVIRONMENT DIVISION.`
			`DATA DIVISION.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`WORKING-STORAGE SECTION.`
			`01 J PIC 9(4).`
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`LINKAGE SECTION.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`01 I OCCURS 1000 TIMES PIC S9(5)V9(5).`

witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`PROCEDURE DIVISION USING I.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`ENTRY "IO-SENSE" USING I.`
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`PERFORM VARYING J FROM 1 BY 1 UNTIL J > 1000`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`COMPUTE I(J) ROUNDED = FUNCTION RANDOM`
			`END-PERFORM`
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`GOBACK.`
			`END PROGRAM IO-SENSE.`

			`IDENTIFICATION DIVISION.`
			`PROGRAM-ID. IO-OUTPUT.`
			`ENVIRONMENT DIVISION.`
			`DATA DIVISION.`
			`WORKING-STORAGE SECTION.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`01 FIELDPRINT PIC S9(5)V9(5).`
			`01 J PIC 9(4).`
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`LINKAGE SECTION.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`01 I OCCURS 1000 TIMES PIC S9(5)V9(5).`
			`01 STEP PIC 9(7).`

witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`PROCEDURE DIVISION USING I STEP.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`ENTRY "IO-OUTPUT" USING I STEP.`
witnessed the priests who bore the invisible burdens... and blessed them. 2025-04-28 18:57:42 -05:00			`CALL 'RWD-FIELDPRINT' USING I FIELDPRINT`
			`DISPLAY 'Step: ' STEP ' Fieldprint: ' FIELDPRINT`
			`GOBACK.`
offered a patch for the ages, as gift to the enternal keepers of COBOL. 2025-04-28 20:04:46 -05:00			`END PROGRAM IO-OUTPUT.`