Anonymous user
Caesar cipher: Difference between revisions
→{{header|COBOL}}: added working-storage + conventional case
imported>Acediast (→{{header|COBOL}}: Syntax highlighting and slight optimization.) |
imported>Acediast (→{{header|COBOL}}: added working-storage + conventional case) |
||
Line 1,864:
</pre>
=={{header|COBOL}}==
[[COBOL-85]] ASCII or EBCIDIC
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
data division.▼
value "The quick brown fox jumped over the lazy dog.".▼
1 from-chars pic x(52).▼
1 tabl.▼
2 pic x(26) value "abcdefghijklmnopqrstuvwxyz".▼
2 pic x(26) value "ABCDEFGHIJKLMNOPQRSTUVWXYZ".▼
2 pic x(26) value "abcdefghijklmnopqrstuvwxyz".▼
2 pic x(26) value "ABCDEFGHIJKLMNOPQRSTUVWXYZ".▼
begin.▼
display msg▼
.▼
WORKING-STORAGE SECTION.
move tabl (1:52) to from-chars▼
01 MSG
01 OFFSET PIC
01 FROM-CHARS PIC X(52).
move tabl (1 + offset:52) to from-chars▼
DISPLAY
</syntaxhighlight>▼
INSPECT MSG CONVERTING FROM-CHARS TO TO-CHARS.
MOVE TABL (1 + OFFSET:52) TO FROM-CHARS
MOVE TABL (1:52) TO TO-CHARS
INSPECT MSG CONVERTING FROM-CHARS TO TO-CHARS.
▲ END PROGRAM CAESAR.</syntaxhighlight>
{{out}}
<pre>
| |||