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

filename SASCBTBL catalog 'WORK.WINAPI.WINAPI.SOURCE';

data _null_;

  file SASCBTBL;

  input ;
  put _infile_;
cards4;
routine GetCurrentProcessId
  module = kernel32
  minarg = 0
  maxarg = 0
  stackpop = called
  returns  = long
;
;;;;

data _null_;
  pid = modulen ('GetCurrentProcessId');
  put pid=;
 run;