Add 1 to string size for ENCODE-ASCII
This commit is contained in:
parent
fbdc9cfa44
commit
85688c998c
1 changed files with 2 additions and 1 deletions
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue