Détermination de l'utilisateur de session

%macro mf_getuser( )/*/STORE SOURCE*/; %local user; %if %symexist(_sasjs_username) %then %let user=&_sasjs_username; %else %if %symexist(SYS_COMPUTE_SESSION_OWNER) %then %do; %let user=&SYS_COMPUTE_SESSION_OWNER; %end; %else %if %symexist(_metaperson) %then %do; %if %length(&_metaperson)=0 %then %let user=&sysuserid; /* sometimes SAS will add @code_sas/DYNAMIC_ASSIGNMENT_OF_AUTHDOMAIN.sas extension - remove for consistency */ /* but be sure to quote in case of usernames with commas */ %else %let user=%unquote(%scan(%quote(&_metaperson),1, @)); %end; %else %let user=&sysuserid; %quote(&user) %mend mf_getuser;

/* DYNAMIC_ASSIGNMENT_OF_AUTHDOMAIN.sas */ %put &sysuserid.; %macro setenv; %global access_auth; %if %substr(&sysuserid.,1,3) = app %then %do; %let access_auth = DefaultAuth; %end; %else %do; %let access_auth = LDAP_Auth; %end; %mend setenv; %setenv; %put _all_;

%put NOTE: You have called the macro _VERSION, 2006-02-15.; %put NOTE: Copyright (c) 2001-2006 Rodney Sparapani; %put; /* Author: Rodney Sparapani <rsparapa@mcw.edu> Created: 2001-00-00 This file is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This file is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this file; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* _VERSION Documentation Returns a one (true) if the current version of SAS is equal to or greater than the version requested; zero (false) otherwise. POSITIONAL Parameters ARG1 version requested Specific OPTIONAL Parameters NOTES= default is to not display the returned value in a NOTE, if set to something, then do display VERSION=ARG1 alias */ %macro _version(arg1, notes=, version=&arg1); %local result; %let result=%eval(%scan(&sysver, 1, .)*100+0%scan(&sysver, 2, .)>=%scan(&version, 1, .)*100+0%scan(&version, 2, .)); %if %length(&notes) %then %put NOTE: _VERSION is returning the value &result; &result %mend _version; %*VALIDATION TEST STREAM;

/*** HELP START ***//** @file mm_getdetails.sas @brief extracts metadata attributes and associations for a particular uri @param [in] uri the metadata object for which to return attributes / associations @param [in] sortoptions= Enables sorting of the output datasets, for example, `SORTSEQ=LINGUISTIC` @param [out] outattrs= (work.attributes) The dataset to create that contains the list of attributes @param [out] outassocs= (work.associations) The dataset to contain the list of associations <h4> Related Files </h4> @li mm_getobjects.sas @li mm_gettypes.sas **//*** HELP END ***/ %macro mm_getdetails(uri ,outattrs=work.attributes ,outassocs=work.associations ,sortoptions= )/*/STORE SOURCE*/; data &outassocs; keep assoc assocuri name; length assoc assocuri name $256; call missing(of _all_); rc1=1;n1=1; do while(rc1>0); /* Walk through all possible associations of this object. */ rc1=metadata_getnasl("&uri",n1,assoc); rc2=1;n2=1; do while(rc2>0); /* Walk through all the associations on this machine object. */ rc2=metadata_getnasn("&uri",trim(assoc),n2,assocuri); if (rc2>0) then do; rc3=metadata_getattr(assocuri,"Name",name); output; end; call missing(name,assocuri); n2+1; end; n1+1; end; run; proc sort &sortoptions; by assoc name; run; data &outattrs; keep type name value; length type $4 name $256 value $32767; rc1=1;n1=1;type='Prop';name='';value=''; do while(rc1>0); rc1=metadata_getnprp("&uri",n1,name,value); if rc1>0 then output; n1+1; end; rc1=1;n1=1;type='Attr'; do while(rc1>0); rc1=metadata_getnatr("&uri",n1,name,value); if rc1>0 then output; n1+1; end; run; proc sort &sortoptions; by type name; run; %mend mm_getdetails;