From 129bc881d6ee6e52ee32770694cf7d4cc37acc78 Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Tue, 21 Mar 2017 23:20:35 -0600 Subject: [PATCH] Remove "COUNTER" non sequitur from RE-ESCAPE. --- REESCAPE.COB | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/REESCAPE.COB b/REESCAPE.COB index 71b01c1..e5c7495 100644 --- a/REESCAPE.COB +++ b/REESCAPE.COB @@ -13,24 +13,22 @@ 88 DONE VALUE 99. LINKAGE SECTION. - 01 UNESCAPED PIC X(999). - 01 COUNTER PIC 9. + 01 BUFFER PIC X(999). - PROCEDURE DIVISION USING UNESCAPED, COUNTER. - MOVE 0 TO LOOP-STATE, COUNTER. + PROCEDURE DIVISION USING BUFFER. + MOVE 0 TO LOOP-STATE. MOVE 1 TO IN-PTR, OUT-PTR. MOVE SPACES TO ESCAPED. PERFORM MAYBE-ESCAPE-CHAR UNTIL DONE. - MOVE ESCAPED TO UNESCAPED. + MOVE ESCAPED TO BUFFER. EXIT PROGRAM. MAYBE-ESCAPE-CHAR. IF IN-PTR IS LESS THAN 999 AND OUT-PTR IS LESS THAN 999 THEN - UNSTRING UNESCAPED INTO CURRENT-CHAR WITH POINTER IN-PTR + UNSTRING BUFFER INTO CURRENT-CHAR WITH POINTER IN-PTR IF ESCAPE-CHAR THEN IF OUT-PTR IS LESS THAN 998 THEN - ADD 1 TO COUNTER STRING "$$" INTO ESCAPED WITH POINTER OUT-PTR ELSE MOVE 99 TO LOOP-STATE ELSE