Remove "COUNTER" non sequitur from RE-ESCAPE.
This commit is contained in:
parent
ec11042340
commit
129bc881d6
1 changed files with 5 additions and 7 deletions
12
REESCAPE.COB
12
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
|
||||
|
|
Loading…
Reference in a new issue