uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename for sake of change.

This commit is contained in:
Quinn Evans 2015-10-01 19:48:28 -06:00
parent 11ca01ada0
commit fd1fef874b
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DECASCII.COB
View File

@ -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

4
ENCASCII.COB
View File

@ -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