Remove duplicate ASCII-NUM0 in DECODE-ASCII. Oops.
This commit is contained in:
parent
b4049e31c0
commit
fe93be421e
1 changed files with 1 additions and 3 deletions
|
@ -40,7 +40,7 @@
|
||||||
88 ASCII-US VALUE 31.
|
88 ASCII-US VALUE 31.
|
||||||
* PRINTABLE CHARACTERS.
|
* PRINTABLE CHARACTERS.
|
||||||
88 ASCII-SPC VALUE 32.
|
88 ASCII-SPC VALUE 32.
|
||||||
88 ASCII-EXC VALUE 33.
|
|
||||||
88 ASCII-DBQT VALUE 34.
|
88 ASCII-DBQT VALUE 34.
|
||||||
88 ASCII-PND VALUE 35.
|
88 ASCII-PND VALUE 35.
|
||||||
88 ASCII-DLR VALUE 36.
|
88 ASCII-DLR VALUE 36.
|
||||||
|
@ -231,8 +231,6 @@
|
||||||
MOVE "8" TO COBOL-STRING
|
MOVE "8" TO COBOL-STRING
|
||||||
ELSE IF ASCII-NUM9 THEN
|
ELSE IF ASCII-NUM9 THEN
|
||||||
MOVE "9" TO COBOL-STRING
|
MOVE "9" TO COBOL-STRING
|
||||||
ELSE IF ASCII-NUM0 THEN
|
|
||||||
MOVE "0" TO COBOL-STRING
|
|
||||||
ELSE IF ASCII-COLN THEN
|
ELSE IF ASCII-COLN THEN
|
||||||
MOVE "<COLN>" TO COBOL-STRING
|
MOVE "<COLN>" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SCLN THEN
|
ELSE IF ASCII-SCLN THEN
|
||||||
|
|
Loading…
Reference in a new issue