RosettaCodeData/Task/Pointers-and-references/SAS/pointers-and-references.sas

14 lines
258 B
SAS
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
/* Using ADDR to get memory address, and PEEKC / POKE. There is also PEEK for numeric values. */
data _null_;
length a b c $4;
adr_a=addr(a);
adr_b=addr(b);
adr_c=addr(c);
a="ABCD";
b="EFGH";
c="IJKL";
b=peekc(adr_a,1);
call poke(b,adr_c,1);
put a b c;
run;