01 Botschaft PIC X(30). : MOVE "Dies ist die geheime Botschaft" TO Botschaft. INSPECT Botschaft REPLACING ALL "A" BY "S" "B" BY "v" "C" BY "u" "D" BY "w" "E" BY "R" "F" BY "H" "G" BY "U" "H" BY "N" "I" BY "I" "J" BY "P" "K" BY "c" "L" BY "z" "M" BY "b" "N" BY "p" "O" BY "n" "P" BY "C" "Q" BY "x" "R" BY "A" "S" BY "G" "T" BY "j" "U" BY "D" "V" BY "g" "W" BY "O" "X" BY "f" "Y" BY "L" "Z" BY "o" "a" BY "J" "b" BY "s" "c" BY "K" "d" BY "r" "e" BY "i" "f" BY "l" "g" BY "W" "h" BY "k" "i" BY "V" "j" BY "q" "k" BY "B" "l" BY "e" "m" BY "F" "n" BY "a" "o" BY "T" "p" BY "t" "q" BY "Z" "r" BY "E" "s" BY "d" "t" BY "h" "u" BY "M" "v" BY "m" "w" BY "y" "x" BY "Q" "y" BY "Y" "z" BY "X". |
01 botschaft pic x(30). 01 originaltext pic x(52) value "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz". 01 codetext pic x(52) value "SvuwRHUNIPczbpnCxAGjDgOfLoJsKrilWkVqBeFaTtZEdhMmyQYX". . . move "Dies ist die geheime Botschaft" to botschaft. inspect botschaft converting originaltext to codetext. |