Add 1 to string size for ENCODE-ASCII

2015-09-29 07:27:09 -06:00 · 2015-09-29 07:27:09 -06:00 · 85688c998c
parent fbdc9cfa44
commit 85688c998c
1 changed files with 2 additions and 1 deletions
--- a/ENCASCII.COB
+++ b/ENCASCII.COB
@ -8,7 +8,7 @@
       LINKAGE SECTION.
       01 CONVERSION.
           03 CHAR-CODE PIC 999.
-           03 COBOL-STRING PIC X(4).
+           03 COBOL-STRING PIC X(5).
      *        CONTROL CHARACTERS.
               88 ASCII-NUL VALUE "NUL".
               88 ASCII-SOH VALUE "SOH".
@ -323,4 +323,5 @@
       ELSE IF ASCII-DEL THEN
           MOVE 127 TO CHAR-CODE
       ELSE MOVE 0 TO CHAR-CODE.
+       MOVE SPACES TO COBOL-STRING.
       EXIT PROGRAM.