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

Set COBOL-STRING length to 6, changed escapes to be balanced again

This commit is contained in:
Quinn Evans 2015-09-29 07:43:22 -06:00
parent 85688c998c
commit a467cccb35
2 changed files with 53 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
DECASCII.COB
View File

@ -110,92 +110,92 @@
88 ASCII-TLDE VALUE 126.
* LONELY CONTROL CHAR
88 ASCII-DEL VALUE 127.
03 COBOL-STRING PIC X(5).
03 COBOL-STRING PIC X(6).
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
PROCEDURE DIVISION USING CONVERSION.
MOVE SPACES TO COBOL-STRING.
IF ASCII-NUL THEN
MOVE "$NUL" TO COBOL-STRING
MOVE "$NUL$" TO COBOL-STRING
ELSE IF ASCII-SOH THEN
MOVE "$SOH" TO COBOL-STRING
MOVE "$SOH$" TO COBOL-STRING
ELSE IF ASCII-STX THEN
MOVE "$STX" TO COBOL-STRING
MOVE "$STX$" TO COBOL-STRING
ELSE IF ASCII-ETX THEN
MOVE "$ETX" TO COBOL-STRING
MOVE "$ETX$" TO COBOL-STRING
ELSE IF ASCII-EOT THEN
MOVE "$EOT" TO COBOL-STRING
MOVE "$EOT$" TO COBOL-STRING
ELSE IF ASCII-ENQ THEN
MOVE "$ENQ" TO COBOL-STRING
MOVE "$ENQ$" TO COBOL-STRING
ELSE IF ASCII-ACK THEN
MOVE "$ACK" TO COBOL-STRING
MOVE "$ACK$" TO COBOL-STRING
ELSE IF ASCII-BEL THEN
MOVE "$BEL" TO COBOL-STRING
MOVE "$BEL$" TO COBOL-STRING
ELSE IF ASCII-BS THEN
MOVE "$BS" TO COBOL-STRING
MOVE "$BS$" TO COBOL-STRING
ELSE IF ASCII-TAB THEN
MOVE "$TAB" TO COBOL-STRING
MOVE "$TAB$" TO COBOL-STRING
ELSE IF ASCII-LF THEN
MOVE "$LF" TO COBOL-STRING
MOVE "$LF$" TO COBOL-STRING
ELSE IF ASCII-VT THEN
MOVE "$VT" TO COBOL-STRING
MOVE "$VT$" TO COBOL-STRING
ELSE IF ASCII-FF THEN
MOVE "$FF" TO COBOL-STRING
MOVE "$FF$" TO COBOL-STRING
ELSE IF ASCII-CR THEN
MOVE "$CR" TO COBOL-STRING
MOVE "$CR$" TO COBOL-STRING
ELSE IF ASCII-SO THEN
MOVE "$SO" TO COBOL-STRING
MOVE "$SO$" TO COBOL-STRING
ELSE IF ASCII-SI THEN
MOVE "$SI" TO COBOL-STRING
MOVE "$SI$" TO COBOL-STRING
ELSE IF ASCII-DLE THEN
MOVE "$DLE" TO COBOL-STRING
MOVE "$DLE$" TO COBOL-STRING
ELSE IF ASCII-DC1 THEN
MOVE "$DC1" TO COBOL-STRING
MOVE "$DC1$" TO COBOL-STRING
ELSE IF ASCII-DC2 THEN
MOVE "$DC2" TO COBOL-STRING
MOVE "$DC2$" TO COBOL-STRING
ELSE IF ASCII-DC3 THEN
MOVE "$DC3" TO COBOL-STRING
MOVE "$DC3$" TO COBOL-STRING
ELSE IF ASCII-DC4 THEN
MOVE "$DC4" TO COBOL-STRING
MOVE "$DC4$" TO COBOL-STRING
ELSE IF ASCII-NAK THEN
MOVE "$NAK" TO COBOL-STRING
MOVE "$NAK$" TO COBOL-STRING
ELSE IF ASCII-SYN THEN
MOVE "$SYN" TO COBOL-STRING
MOVE "$SYN$" TO COBOL-STRING
ELSE IF ASCII-ETB THEN
MOVE "$ETB" TO COBOL-STRING
MOVE "$ETB$" TO COBOL-STRING
ELSE IF ASCII-CAN THEN
MOVE "$CAN" TO COBOL-STRING
MOVE "$CAN$" TO COBOL-STRING
ELSE IF ASCII-EM THEN
MOVE "$EM" TO COBOL-STRING
MOVE "$EM$" TO COBOL-STRING
ELSE IF ASCII-SUB THEN
MOVE "$SUB" TO COBOL-STRING
MOVE "$SUB$" TO COBOL-STRING
ELSE IF ASCII-ESC THEN
MOVE "$ESC" TO COBOL-STRING
MOVE "$ESC$" TO COBOL-STRING
ELSE IF ASCII-FS THEN
MOVE "$FS" TO COBOL-STRING
MOVE "$FS$" TO COBOL-STRING
ELSE IF ASCII-GS THEN
MOVE "$GS" TO COBOL-STRING
MOVE "$GS$" TO COBOL-STRING
ELSE IF ASCII-RS THEN
MOVE "$RS" TO COBOL-STRING
MOVE "$RS$" TO COBOL-STRING
ELSE IF ASCII-US THEN
MOVE "$US" TO COBOL-STRING
MOVE "$US$" TO COBOL-STRING
ELSE IF ASCII-SPC THEN
MOVE SPACE TO COBOL-STRING
ELSE IF ASCII-EXC THEN
MOVE "$EXC" TO COBOL-STRING
MOVE "$EXC$" TO COBOL-STRING
ELSE IF ASCII-DBQT THEN
MOVE SPACES TO COBOL-STRING
MOVE QUOTE TO FIRST-CHAR
ELSE IF ASCII-PND THEN
MOVE "$PND" TO COBOL-STRING
MOVE "$PND$" TO COBOL-STRING
ELSE IF ASCII-DLR THEN
MOVE "$" TO COBOL-STRING
ELSE IF ASCII-PCNT THEN
MOVE "$PCNT" TO COBOL-STRING
MOVE "$PCNT$" TO COBOL-STRING
ELSE IF ASCII-AMP THEN
MOVE "$AMP" TO COBOL-STRING
MOVE "$AMP$" TO COBOL-STRING
ELSE IF ASCII-SGQT THEN
MOVE "$SGQT" TO COBOL-STRING
MOVE "$SGQT$" TO COBOL-STRING
ELSE IF ASCII-LPRN THEN
MOVE "(" TO COBOL-STRING
ELSE IF ASCII-RPRN THEN
@ -233,7 +233,7 @@
ELSE IF ASCII-NUM9 THEN
MOVE "9" TO COBOL-STRING
ELSE IF ASCII-COLN THEN
MOVE "$COLN" TO COBOL-STRING
MOVE "$COLN$" TO COBOL-STRING
ELSE IF ASCII-SCLN THEN
MOVE ";" TO COBOL-STRING
ELSE IF ASCII-LESS THEN
@ -243,9 +243,9 @@
ELSE IF ASCII-GRTR THEN
MOVE ">" TO COBOL-STRING
ELSE IF ASCII-QUES THEN
MOVE "$QUES" TO COBOL-STRING
MOVE "$QUES$" TO COBOL-STRING
ELSE IF ASCII-AT THEN
MOVE "$AT" TO COBOL-STRING
MOVE "$AT$" TO COBOL-STRING
ELSE IF ASCII-LETA THEN
MOVE "A" TO COBOL-STRING
ELSE IF ASCII-LETB THEN
@ -299,26 +299,26 @@
ELSE IF ASCII-LETZ THEN
MOVE "Z" TO COBOL-STRING
ELSE IF ASCII-LSQB THEN
MOVE "$LSQB" TO COBOL-STRING
MOVE "$LSQB$" TO COBOL-STRING
ELSE IF ASCII-BKSL THEN
MOVE "$BKSL" TO COBOL-STRING
MOVE "$BKSL$" TO COBOL-STRING
ELSE IF ASCII-RSQB THEN
MOVE "$RSQB" TO COBOL-STRING
MOVE "$RSQB$" TO COBOL-STRING
ELSE IF ASCII-CRT THEN
MOVE "$CRT" TO COBOL-STRING
MOVE "$CRT$" TO COBOL-STRING
ELSE IF ASCII-UNDS THEN
MOVE "$UNDS" TO COBOL-STRING
MOVE "$UNDS$" TO COBOL-STRING
ELSE IF ASCII-BKTK THEN
MOVE "$BKTK" TO COBOL-STRING
MOVE "$BKTK$" TO COBOL-STRING
ELSE IF ASCII-LCRB THEN
MOVE "$LCRB" TO COBOL-STRING
MOVE "$LCRB$" TO COBOL-STRING
ELSE IF ASCII-PIPE THEN
MOVE "$PIPE" TO COBOL-STRING
MOVE "$PIPE$" TO COBOL-STRING
ELSE IF ASCII-RCRB THEN
MOVE "$RCRB" TO COBOL-STRING
MOVE "$RCRB$" TO COBOL-STRING
ELSE IF ASCII-TLDE THEN
MOVE "$TLDE" TO COBOL-STRING
MOVE "$TLDE$" TO COBOL-STRING
ELSE IF ASCII-DEL THEN
MOVE "$DEL" TO COBOL-STRING
MOVE "$DEL$" TO COBOL-STRING
ELSE STRING "$", CHAR-CODE INTO COBOL-STRING.
EXIT PROGRAM.

3
ENCASCII.COB
View File

@ -8,7 +8,7 @@
LINKAGE SECTION.
01 CONVERSION.
03 CHAR-CODE PIC 999.
03 COBOL-STRING PIC X(5).
03 COBOL-STRING PIC X(6).
* CONTROL CHARACTERS.
88 ASCII-NUL VALUE "NUL".
88 ASCII-SOH VALUE "SOH".
@ -323,5 +323,4 @@
ELSE IF ASCII-DEL THEN
MOVE 127 TO CHAR-CODE
ELSE MOVE 0 TO CHAR-CODE.
MOVE SPACES TO COBOL-STRING.
EXIT PROGRAM.