%options untyped_storage_sharing;

t2:
     procedure;

     dcl (i,j) fixed bin (15);
     dcl c(2) char (1) based;
     dcl addr builtin;

          i = 97;
          addr (i) -> c (2) = 'x';
          j = i + 1;

          /* does j = 98 or 121? */

          put list (i, j);
          put skip;

end t2;