/******************************************************************
*
* The %PASSINFO macro prints session information to the SAS log
* for performance analysis. It is optional for use with the
* %LOGPARSE() macro, and both macros are experimental for SAS 9.1.
*
* See the Readme file for instructions.
*
* This version of the PASSINFO macro is edited by Peter Clemmensen to be simpler in a Windows environment.
*
*******************************************************************/


%macro passinfo / store;

  data _null_;
    length  hostname $ 80;
    hostname=' ';  /* avoid message about uninitialized */
    temp=datetime();
    temp2=lowcase(trim(left(put(temp,datetime16.))));
    call symputx('datetime', temp2);
    call symput('host', "%sysget(computername)");
  run;

  %put PASS HEADER BEGIN;
  %put PASS HEADER os=&sysscp;
  %put PASS HEADER os2=&sysscpl;
  %put PASS HEADER host=&host;
  %put PASS HEADER ver=&sysvlong;
  %put PASS HEADER date=&datetime;
  %put PASS HEADER parm=&sysparm;

  options nosource nonotes;
  proc options option=MEMSIZE ; run;
  proc options option=SUMSIZE ; run;
  proc options option=SORTSIZE ; run;
  options source notes;

  %put PASS HEADER END;

%mend passinfo;