t3:
     procedure;

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

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

          /* does j = 98 or 121? */

          put list (i, j);
          put skip;

end t3;