From 85688c998c6c029cb0c0e3834bd947c2f91fa6db Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Tue, 29 Sep 2015 07:27:09 -0600
Subject: [PATCH] Add 1 to string size for ENCODE-ASCII

---
 ENCASCII.COB | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ENCASCII.COB b/ENCASCII.COB
index 61579bd..2cbbd77 100644
--- 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.