char_codes: procedure options (main);
  dcl ch char(1);
  dcl n fixed bin;
  ch = 'a';
  n = 97;
  put skip edit (ch,' = ',rank(ch)) (a, a, f(2));
  put skip edit (n,' = ',ascii(n)) (f(2), a, a);
end char_codes;