p: package exports( a );
dcl ib based fixed bin;
a: proc;
dcl (i,j,k) fixed bin;
.
.
.
call b( addr(i) );
.
.
.
end;
b: proc( px );
dcl px pointer;
display( px->ib );
end;
end p;