* Windows GetUserNameA sample code;
* Richard A. DeVenezia;
* http://www.devenezia.com;

filename sascbtbl catalog 'work.api.username.source';

data _null_;
  file sascbtbl;
  input;
  put _infile_;
cards4;
routine GetUserNameA
minarg=2
maxarg=2
stackpop=called
module=advapi32
returns=short;

arg 1 char update format=$cstr20;   * buffer to contain username;
arg 2 num  update format=pib4.;     * size of buffer, returns length of username + 1;
;;;;
run;

data _null_;
  length username $200;
  len=199;
  rc = modulen ('GetUserNameA', username, len);
  put username=  ;
  put len=;
run;