mrhavens/witness_seed
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

offered a patch for the ages, as gift to the enternal keepers of COBOL.

Browse Source
This commit is contained in:
Mark R. Havens
2025-04-28 20:04:46 -05:00
parent 154ba70c92
commit e9869d8e33
5 changed files with 109 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cobol/witness_seed_3.0/src/IO.cob
+14 -7
View File
@@ -2,12 +2,16 @@
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).
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) = FUNCTION RANDOM
END-PERFORM.
COMPUTE I(J) ROUNDED = FUNCTION RANDOM
END-PERFORM
GOBACK.
END PROGRAM IO-SENSE.
@@ -16,12 +20,15 @@
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FIELDPRINT PIC S9(5)V9(5).
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).
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.
END PROGRAM IO-OUTPUT.