uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove duplicate ASCII-NUM0 in DECODE-ASCII. Oops.

This commit is contained in:
Quinn Evans 2015-09-28 15:51:29 -06:00
parent b4049e31c0
commit fe93be421e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DECASCII.COB
View File

@ -40,7 +40,7 @@
88 ASCII-US VALUE 31.
* PRINTABLE CHARACTERS.
88 ASCII-SPC VALUE 32.
88 ASCII-EXC VALUE 33.
88 ASCII-DBQT VALUE 34.
88 ASCII-PND VALUE 35.
88 ASCII-DLR VALUE 36.
@ -231,8 +231,6 @@
MOVE "8" TO COBOL-STRING
ELSE IF ASCII-NUM9 THEN
MOVE "9" TO COBOL-STRING
ELSE IF ASCII-NUM0 THEN
MOVE "0" TO COBOL-STRING
ELSE IF ASCII-COLN THEN
MOVE "<COLN>" TO COBOL-STRING
ELSE IF ASCII-SCLN THEN