diff --git a/DECASCII.COB b/DECASCII.COB
index baf78f5..7f1524f 100644
--- a/DECASCII.COB
+++ b/DECASCII.COB
@@ -3,7 +3,7 @@
 
        DATA DIVISION.
        LINKAGE SECTION.
-       01 CONVERSION.
+       01 ASCII-CHARACTER.
            03 CHAR-CODE PIC 999.
       *        CONTROL CHARACTERS.
                88 ASCII-NUL VALUE 0.
@@ -113,7 +113,7 @@
            03 COBOL-STRING PIC X(6).
            03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
 
-       PROCEDURE DIVISION USING CONVERSION.
+       PROCEDURE DIVISION USING ASCII-CHARACTER.
        MOVE SPACES TO COBOL-STRING.
        IF ASCII-NUL THEN
            MOVE "$NUL$" TO COBOL-STRING
diff --git a/ENCASCII.COB b/ENCASCII.COB
index ab2ab63..8e192bd 100644
--- a/ENCASCII.COB
+++ b/ENCASCII.COB
@@ -6,7 +6,7 @@
        01 STRING-POINTER PIC 9.
 
        LINKAGE SECTION.
-       01 CONVERSION.
+       01 ASCII-CHARACTER.
            03 CHAR-CODE PIC 999.
            03 COBOL-STRING PIC X(6).
       *        CONTROL CHARACTERS.
@@ -117,7 +117,7 @@
            03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
                88 ASCII-DBQT VALUE QUOTE.
 
-       PROCEDURE DIVISION USING CONVERSION.
+       PROCEDURE DIVISION USING ASCII-CHARACTER.
        IF ASCII-NUL THEN
            MOVE 0 TO CHAR-CODE
        ELSE IF ASCII-SOH THEN