02

**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;     

Comments

Post a Comment

Popular posts from this blog

04

**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(12) based(lv_Pointer); lv_Pointer = pi_Pointer; if lv_var = 'Hello World';    lv_var = 'World Hello'; endIf; return; end-Proc changePointer;   
Read more

01

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