RpgPointerCode

**FREE dcl-s gv_p pointer inz(%addr(ds.text1)); dcl-s gv_Field char(4) based(gv_p); dcl-Ds Ds qualified;        text1 char(4) inz('1234');        text2 char(4) inz('5678'); end-Ds; gv_p = %addr(ds.text2); *inlr = *on; return;