diff --git a/DECASCII.COB b/DECASCII.COB index 323101b..4cc9c3e 100644 --- a/DECASCII.COB +++ b/DECASCII.COB @@ -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. diff --git a/ENCASCII.COB b/ENCASCII.COB index 2cbbd77..dff9974 100644 --- a/ENCASCII.COB +++ b/ENCASCII.COB @@ -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.