55 lines
1.9 KiB
COBOL
55 lines
1.9 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. "ENCODE-STRING".
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 STATE.
|
|
03 LOOP-STATE PIC 99.
|
|
88 DONE VALUE 99.
|
|
03 STRING-POINTER PIC 999 USAGE COMPUTATIONAL.
|
|
03 TABLE-INDEX USAGE INDEX.
|
|
|
|
01 ASCII-CHARACTER.
|
|
03 CHAR-CODE PIC 999.
|
|
03 COBOL-STRING PIC X(6).
|
|
03 CURRENT-CHARACTER REDEFINES COBOL-STRING PIC X.
|
|
88 ESCAPE-CHAR VALUE "$".
|
|
|
|
LINKAGE SECTION.
|
|
01 ASCII-STRING.
|
|
03 MSG-BODY PIC X(999).
|
|
03 ASCII-TABLE.
|
|
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
|
|
|
PROCEDURE DIVISION USING ASCII-STRING.
|
|
MOVE 0 TO LOOP-STATE.
|
|
MOVE 1 TO STRING-POINTER.
|
|
PERFORM ENCODE-CHARACTER
|
|
VARYING TABLE-INDEX FROM 1, BY 1
|
|
UNTIL DONE.
|
|
EXIT PROGRAM.
|
|
|
|
ENCODE-CHARACTER.
|
|
MOVE SPACES TO COBOL-STRING.
|
|
UNSTRING MSG-BODY
|
|
INTO CURRENT-CHARACTER
|
|
WITH POINTER STRING-POINTER.
|
|
IF ESCAPE-CHAR THEN
|
|
MOVE SPACES TO COBOL-STRING
|
|
IF STRING-POINTER < 993 THEN
|
|
UNSTRING MSG-BODY DELIMITED BY "$"
|
|
INTO COBOL-STRING
|
|
WITH POINTER STRING-POINTER
|
|
IF COBOL-STRING IS EQUAL TO SPACES THEN
|
|
MOVE "$" TO COBOL-STRING
|
|
ELSE
|
|
NEXT SENTENCE
|
|
ELSE
|
|
MOVE "NUL" TO COBOL-STRING.
|
|
IF COBOL-STRING IS EQUAL TO "NUL" THEN
|
|
MOVE 99 TO LOOP-STATE.
|
|
IF TABLE-INDEX IS GREATER THAN 998 THEN
|
|
MOVE 99 TO LOOP-STATE.
|
|
CALL "ENCODE-ASCII" USING ASCII-CHARACTER.
|
|
MOVE CHAR-CODE TO ASCII-CELL(TABLE-INDEX).
|