Codierbeispiel: Verschlüsselung mittels INSPECT-Anweisung.
Autor: David Neidinger

Das erste Beispiel zeigt die bisherige Workshop-Lösung.
Das zweite Beispiel ist eine andere Lösung mit inspect converting.

Ich weiß nicht ob inspect converting von jeder runtime unterstützt wird. Bei unserer zumindest geht es.

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.
  


Noch ein kurzes Beispiel:

Wir wollen das alle "a" durch "b" und alle "." durch "/" im Feld "Text1" ersetzt werden:
inspect text1 converting "a." to "b/".


...