From fae181a83e581dc36da59914fb0adcf3584e6a41 Mon Sep 17 00:00:00 2001
From: acheronfail <acheronfail@gmail.com>
Date: Sun, 24 Dec 2023 22:50:28 +1100
Subject: [PATCH] fix cobol to use bitwise or

---
 count.cbl | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/count.cbl b/count.cbl
index 61a1c6b..78dc61f 100644
--- a/count.cbl
+++ b/count.cbl
@@ -1,18 +1,20 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. IncrementProgram.
+identification division.
+program-id. count.
 
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01 i PIC 9(10) VALUE 0.
-01 target PIC 9(10).
-01 quotient PIC 9(10).
-01 rem PIC 9(10).
+data division.
+working-storage section.
+01 i pic 9(10) value 0 usage comp-5.
+01 target pic 9(10).
+01 len pic 9(10) value 1.
+01 or-result pic 9(10).
+01 result pic z(10).
 
-PROCEDURE DIVISION.
-ACCEPT target FROM COMMAND-LINE
-PERFORM UNTIL i = target
-    ADD 1 TO i
-    ADD 1 TO i *> should be bitwise or 1 but no bit-or in cobol :/
-END-PERFORM.
-DISPLAY i
-STOP RUN.
+procedure division.
+accept target from command-line
+perform until i > target
+    add 1 to i
+    call "CBL_OR" using 1 i by value len returning or-result end-call
+end-perform.
+move i to result
+display result
+stop run.