06 Pointer Math

**FREE

ctl-opt dftactgrp(*no);

dcl-pr changePointer;
       *n pointer;
end-pr;

dcl-s Var1 char(12);
dcl-s Ptr pointer inz(%addr(Var1));
dcl-s Var2 char(12) based(Ptr);

Var1 = 'Hello World!';

changePointer(Ptr);

*inlr = *on;
return;

dcl-proc changePointer;
dcl-pi changePointer;
       pi_Pointer Pointer;
end-pi changePointer;

dcl-s lv_Pointer Pointer;
dcl-s lv_Var char(6) based(lv_Pointer);

lv_Pointer = pi_Pointer;
lv_Pointer += 6;

if lv_var = 'World!';
   lv_var = 'Darlin';
endIf;

return;
end-Proc changePointer;