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.
|
DATA DIVISION.
|
||||||
LINKAGE SECTION.
|
LINKAGE SECTION.
|
||||||
01 CONVERSION.
|
01 ASCII-CHARACTER.
|
||||||
03 CHAR-CODE PIC 999.
|
03 CHAR-CODE PIC 999.
|
||||||
* CONTROL CHARACTERS.
|
* CONTROL CHARACTERS.
|
||||||
88 ASCII-NUL VALUE 0.
|
88 ASCII-NUL VALUE 0.
|
||||||
|
@ -113,7 +113,7 @@
|
||||||
03 COBOL-STRING PIC X(6).
|
03 COBOL-STRING PIC X(6).
|
||||||
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
||||||
|
|
||||||
PROCEDURE DIVISION USING CONVERSION.
|
PROCEDURE DIVISION USING ASCII-CHARACTER.
|
||||||
MOVE SPACES TO COBOL-STRING.
|
MOVE SPACES TO COBOL-STRING.
|
||||||
IF ASCII-NUL THEN
|
IF ASCII-NUL THEN
|
||||||
MOVE "$NUL$" TO COBOL-STRING
|
MOVE "$NUL$" TO COBOL-STRING
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
01 STRING-POINTER PIC 9.
|
01 STRING-POINTER PIC 9.
|
||||||
|
|
||||||
LINKAGE SECTION.
|
LINKAGE SECTION.
|
||||||
01 CONVERSION.
|
01 ASCII-CHARACTER.
|
||||||
03 CHAR-CODE PIC 999.
|
03 CHAR-CODE PIC 999.
|
||||||
03 COBOL-STRING PIC X(6).
|
03 COBOL-STRING PIC X(6).
|
||||||
* CONTROL CHARACTERS.
|
* CONTROL CHARACTERS.
|
||||||
|
@ -117,7 +117,7 @@
|
||||||
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
||||||
88 ASCII-DBQT VALUE QUOTE.
|
88 ASCII-DBQT VALUE QUOTE.
|
||||||
|
|
||||||
PROCEDURE DIVISION USING CONVERSION.
|
PROCEDURE DIVISION USING ASCII-CHARACTER.
|
||||||
IF ASCII-NUL THEN
|
IF ASCII-NUL THEN
|
||||||
MOVE 0 TO CHAR-CODE
|
MOVE 0 TO CHAR-CODE
|
||||||
ELSE IF ASCII-SOH THEN
|
ELSE IF ASCII-SOH THEN
|
||||||
|
|
Loading…
Reference in a new issue