Rename for sake of change.
This commit is contained in:
parent
11ca01ada0
commit
fd1fef874b
2 changed files with 4 additions and 4 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue