03

**FREE

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

Var1 = 'Hello World!';
dsply Var2;

Var2 = 'World Hello!';
dsply Var1;

*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

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