Change escape from < to $, initialize data, and replace ASCII-EXC entry.
This commit is contained in:
parent
99a2da4b0c
commit
fbdc9cfa44
1 changed files with 55 additions and 54 deletions
109
DECASCII.COB
109
DECASCII.COB
|
@ -40,7 +40,7 @@
|
||||||
88 ASCII-US VALUE 31.
|
88 ASCII-US VALUE 31.
|
||||||
* PRINTABLE CHARACTERS.
|
* PRINTABLE CHARACTERS.
|
||||||
88 ASCII-SPC VALUE 32.
|
88 ASCII-SPC VALUE 32.
|
||||||
|
88 ASCII-EXC VALUE 33.
|
||||||
88 ASCII-DBQT VALUE 34.
|
88 ASCII-DBQT VALUE 34.
|
||||||
88 ASCII-PND VALUE 35.
|
88 ASCII-PND VALUE 35.
|
||||||
88 ASCII-DLR VALUE 36.
|
88 ASCII-DLR VALUE 36.
|
||||||
|
@ -110,91 +110,92 @@
|
||||||
88 ASCII-TLDE VALUE 126.
|
88 ASCII-TLDE VALUE 126.
|
||||||
* LONELY CONTROL CHAR
|
* LONELY CONTROL CHAR
|
||||||
88 ASCII-DEL VALUE 127.
|
88 ASCII-DEL VALUE 127.
|
||||||
03 COBOL-STRING PIC X(6).
|
03 COBOL-STRING PIC X(5).
|
||||||
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
03 FIRST-CHAR REDEFINES COBOL-STRING PIC X.
|
||||||
|
|
||||||
PROCEDURE DIVISION USING CONVERSION.
|
PROCEDURE DIVISION USING CONVERSION.
|
||||||
|
MOVE SPACES TO COBOL-STRING.
|
||||||
IF ASCII-NUL THEN
|
IF ASCII-NUL THEN
|
||||||
MOVE "<NUL>" TO COBOL-STRING
|
MOVE "$NUL" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SOH THEN
|
ELSE IF ASCII-SOH THEN
|
||||||
MOVE "<SOH>" TO COBOL-STRING
|
MOVE "$SOH" TO COBOL-STRING
|
||||||
ELSE IF ASCII-STX THEN
|
ELSE IF ASCII-STX THEN
|
||||||
MOVE "<STX>" TO COBOL-STRING
|
MOVE "$STX" TO COBOL-STRING
|
||||||
ELSE IF ASCII-ETX THEN
|
ELSE IF ASCII-ETX THEN
|
||||||
MOVE "<ETX>" TO COBOL-STRING
|
MOVE "$ETX" TO COBOL-STRING
|
||||||
ELSE IF ASCII-EOT THEN
|
ELSE IF ASCII-EOT THEN
|
||||||
MOVE "<EOT>" TO COBOL-STRING
|
MOVE "$EOT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-ENQ THEN
|
ELSE IF ASCII-ENQ THEN
|
||||||
MOVE "<ENQ>" TO COBOL-STRING
|
MOVE "$ENQ" TO COBOL-STRING
|
||||||
ELSE IF ASCII-ACK THEN
|
ELSE IF ASCII-ACK THEN
|
||||||
MOVE "<ACK>" TO COBOL-STRING
|
MOVE "$ACK" TO COBOL-STRING
|
||||||
ELSE IF ASCII-BEL THEN
|
ELSE IF ASCII-BEL THEN
|
||||||
MOVE "<BEL>" TO COBOL-STRING
|
MOVE "$BEL" TO COBOL-STRING
|
||||||
ELSE IF ASCII-BS THEN
|
ELSE IF ASCII-BS THEN
|
||||||
MOVE "<BS>" TO COBOL-STRING
|
MOVE "$BS" TO COBOL-STRING
|
||||||
ELSE IF ASCII-TAB THEN
|
ELSE IF ASCII-TAB THEN
|
||||||
MOVE "<TAB>" TO COBOL-STRING
|
MOVE "$TAB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LF THEN
|
ELSE IF ASCII-LF THEN
|
||||||
MOVE "<LF>" TO COBOL-STRING
|
MOVE "$LF" TO COBOL-STRING
|
||||||
ELSE IF ASCII-VT THEN
|
ELSE IF ASCII-VT THEN
|
||||||
MOVE "<VT>" TO COBOL-STRING
|
MOVE "$VT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-FF THEN
|
ELSE IF ASCII-FF THEN
|
||||||
MOVE "<FF>" TO COBOL-STRING
|
MOVE "$FF" TO COBOL-STRING
|
||||||
ELSE IF ASCII-CR THEN
|
ELSE IF ASCII-CR THEN
|
||||||
MOVE "<CR>" TO COBOL-STRING
|
MOVE "$CR" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SO THEN
|
ELSE IF ASCII-SO THEN
|
||||||
MOVE "<SO>" TO COBOL-STRING
|
MOVE "$SO" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SI THEN
|
ELSE IF ASCII-SI THEN
|
||||||
MOVE "<SI>" TO COBOL-STRING
|
MOVE "$SI" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DLE THEN
|
ELSE IF ASCII-DLE THEN
|
||||||
MOVE "<DLE>" TO COBOL-STRING
|
MOVE "$DLE" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DC1 THEN
|
ELSE IF ASCII-DC1 THEN
|
||||||
MOVE "<DC1>" TO COBOL-STRING
|
MOVE "$DC1" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DC2 THEN
|
ELSE IF ASCII-DC2 THEN
|
||||||
MOVE "<DC2>" TO COBOL-STRING
|
MOVE "$DC2" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DC3 THEN
|
ELSE IF ASCII-DC3 THEN
|
||||||
MOVE "<DC3>" TO COBOL-STRING
|
MOVE "$DC3" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DC4 THEN
|
ELSE IF ASCII-DC4 THEN
|
||||||
MOVE "<DC4>" TO COBOL-STRING
|
MOVE "$DC4" TO COBOL-STRING
|
||||||
ELSE IF ASCII-NAK THEN
|
ELSE IF ASCII-NAK THEN
|
||||||
MOVE "<NAK>" TO COBOL-STRING
|
MOVE "$NAK" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SYN THEN
|
ELSE IF ASCII-SYN THEN
|
||||||
MOVE "<SYN>" TO COBOL-STRING
|
MOVE "$SYN" TO COBOL-STRING
|
||||||
ELSE IF ASCII-ETB THEN
|
ELSE IF ASCII-ETB THEN
|
||||||
MOVE "<ETB>" TO COBOL-STRING
|
MOVE "$ETB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-CAN THEN
|
ELSE IF ASCII-CAN THEN
|
||||||
MOVE "<CAN>" TO COBOL-STRING
|
MOVE "$CAN" TO COBOL-STRING
|
||||||
ELSE IF ASCII-EM THEN
|
ELSE IF ASCII-EM THEN
|
||||||
MOVE "<EM>" TO COBOL-STRING
|
MOVE "$EM" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SUB THEN
|
ELSE IF ASCII-SUB THEN
|
||||||
MOVE "<SUB>" TO COBOL-STRING
|
MOVE "$SUB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-ESC THEN
|
ELSE IF ASCII-ESC THEN
|
||||||
MOVE "<ESC>" TO COBOL-STRING
|
MOVE "$ESC" TO COBOL-STRING
|
||||||
ELSE IF ASCII-FS THEN
|
ELSE IF ASCII-FS THEN
|
||||||
MOVE "<FS>" TO COBOL-STRING
|
MOVE "$FS" TO COBOL-STRING
|
||||||
ELSE IF ASCII-GS THEN
|
ELSE IF ASCII-GS THEN
|
||||||
MOVE "<GS>" TO COBOL-STRING
|
MOVE "$GS" TO COBOL-STRING
|
||||||
ELSE IF ASCII-RS THEN
|
ELSE IF ASCII-RS THEN
|
||||||
MOVE "<RS>" TO COBOL-STRING
|
MOVE "$RS" TO COBOL-STRING
|
||||||
ELSE IF ASCII-US THEN
|
ELSE IF ASCII-US THEN
|
||||||
MOVE "<US>" TO COBOL-STRING
|
MOVE "$US" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SPC THEN
|
ELSE IF ASCII-SPC THEN
|
||||||
MOVE SPACE TO COBOL-STRING
|
MOVE SPACE TO COBOL-STRING
|
||||||
ELSE IF ASCII-EXC THEN
|
ELSE IF ASCII-EXC THEN
|
||||||
MOVE "<EXC>" TO COBOL-STRING
|
MOVE "$EXC" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DBQT THEN
|
ELSE IF ASCII-DBQT THEN
|
||||||
MOVE SPACES TO COBOL-STRING
|
MOVE SPACES TO COBOL-STRING
|
||||||
MOVE QUOTE TO FIRST-CHAR
|
MOVE QUOTE TO FIRST-CHAR
|
||||||
ELSE IF ASCII-PND THEN
|
ELSE IF ASCII-PND THEN
|
||||||
MOVE "<PND>" TO COBOL-STRING
|
MOVE "$PND" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DLR THEN
|
ELSE IF ASCII-DLR THEN
|
||||||
MOVE "$" TO COBOL-STRING
|
MOVE "$" TO COBOL-STRING
|
||||||
ELSE IF ASCII-PCNT THEN
|
ELSE IF ASCII-PCNT THEN
|
||||||
MOVE "<PCNT>" TO COBOL-STRING
|
MOVE "$PCNT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-AMP THEN
|
ELSE IF ASCII-AMP THEN
|
||||||
MOVE "<AMP>" TO COBOL-STRING
|
MOVE "$AMP" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SGQT THEN
|
ELSE IF ASCII-SGQT THEN
|
||||||
MOVE "<SGQT>" TO COBOL-STRING
|
MOVE "$SGQT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LPRN THEN
|
ELSE IF ASCII-LPRN THEN
|
||||||
MOVE "(" TO COBOL-STRING
|
MOVE "(" TO COBOL-STRING
|
||||||
ELSE IF ASCII-RPRN THEN
|
ELSE IF ASCII-RPRN THEN
|
||||||
|
@ -232,7 +233,7 @@
|
||||||
ELSE IF ASCII-NUM9 THEN
|
ELSE IF ASCII-NUM9 THEN
|
||||||
MOVE "9" TO COBOL-STRING
|
MOVE "9" TO COBOL-STRING
|
||||||
ELSE IF ASCII-COLN THEN
|
ELSE IF ASCII-COLN THEN
|
||||||
MOVE "<COLN>" TO COBOL-STRING
|
MOVE "$COLN" TO COBOL-STRING
|
||||||
ELSE IF ASCII-SCLN THEN
|
ELSE IF ASCII-SCLN THEN
|
||||||
MOVE ";" TO COBOL-STRING
|
MOVE ";" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LESS THEN
|
ELSE IF ASCII-LESS THEN
|
||||||
|
@ -242,9 +243,9 @@
|
||||||
ELSE IF ASCII-GRTR THEN
|
ELSE IF ASCII-GRTR THEN
|
||||||
MOVE ">" TO COBOL-STRING
|
MOVE ">" TO COBOL-STRING
|
||||||
ELSE IF ASCII-QUES THEN
|
ELSE IF ASCII-QUES THEN
|
||||||
MOVE "<QUES>" TO COBOL-STRING
|
MOVE "$QUES" TO COBOL-STRING
|
||||||
ELSE IF ASCII-AT THEN
|
ELSE IF ASCII-AT THEN
|
||||||
MOVE "<AT>" TO COBOL-STRING
|
MOVE "$AT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LETA THEN
|
ELSE IF ASCII-LETA THEN
|
||||||
MOVE "A" TO COBOL-STRING
|
MOVE "A" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LETB THEN
|
ELSE IF ASCII-LETB THEN
|
||||||
|
@ -298,26 +299,26 @@
|
||||||
ELSE IF ASCII-LETZ THEN
|
ELSE IF ASCII-LETZ THEN
|
||||||
MOVE "Z" TO COBOL-STRING
|
MOVE "Z" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LSQB THEN
|
ELSE IF ASCII-LSQB THEN
|
||||||
MOVE "<LSQB>" TO COBOL-STRING
|
MOVE "$LSQB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-BKSL THEN
|
ELSE IF ASCII-BKSL THEN
|
||||||
MOVE "<BKSL>" TO COBOL-STRING
|
MOVE "$BKSL" TO COBOL-STRING
|
||||||
ELSE IF ASCII-RSQB THEN
|
ELSE IF ASCII-RSQB THEN
|
||||||
MOVE "<RSQB>" TO COBOL-STRING
|
MOVE "$RSQB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-CRT THEN
|
ELSE IF ASCII-CRT THEN
|
||||||
MOVE "<CRT>" TO COBOL-STRING
|
MOVE "$CRT" TO COBOL-STRING
|
||||||
ELSE IF ASCII-UNDS THEN
|
ELSE IF ASCII-UNDS THEN
|
||||||
MOVE "<UNDS>" TO COBOL-STRING
|
MOVE "$UNDS" TO COBOL-STRING
|
||||||
ELSE IF ASCII-BKTK THEN
|
ELSE IF ASCII-BKTK THEN
|
||||||
MOVE "<BKTK>" TO COBOL-STRING
|
MOVE "$BKTK" TO COBOL-STRING
|
||||||
ELSE IF ASCII-LCRB THEN
|
ELSE IF ASCII-LCRB THEN
|
||||||
MOVE "<LCRB>" TO COBOL-STRING
|
MOVE "$LCRB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-PIPE THEN
|
ELSE IF ASCII-PIPE THEN
|
||||||
MOVE "<PIPE>" TO COBOL-STRING
|
MOVE "$PIPE" TO COBOL-STRING
|
||||||
ELSE IF ASCII-RCRB THEN
|
ELSE IF ASCII-RCRB THEN
|
||||||
MOVE "<RCRB>" TO COBOL-STRING
|
MOVE "$RCRB" TO COBOL-STRING
|
||||||
ELSE IF ASCII-TLDE THEN
|
ELSE IF ASCII-TLDE THEN
|
||||||
MOVE "<TLDE>" TO COBOL-STRING
|
MOVE "$TLDE" TO COBOL-STRING
|
||||||
ELSE IF ASCII-DEL THEN
|
ELSE IF ASCII-DEL THEN
|
||||||
MOVE "<DEL>" TO COBOL-STRING
|
MOVE "$DEL" TO COBOL-STRING
|
||||||
ELSE STRING "<", CHAR-CODE, ">" INTO COBOL-STRING.
|
ELSE STRING "$", CHAR-CODE INTO COBOL-STRING.
|
||||||
EXIT PROGRAM.
|
EXIT PROGRAM.
|
||||||
|
|
Loading…
Reference in a new issue