Home

wbaldwin

I trying to query company LDAP and extract users from a specific AD Group. I can query/filter on uid, department, etc.... but when trying to pull all users of a specific group, or any group, Suchas with memberof, example filter below, I get no results. Any suggestions/help? filter="(&(memberOf=cn=myteam_AD_group,OU=groups,DC=com))"; full code below... options mprint mlogic ; %let Attrs= "uid sn givenname groupMembershipSAM, grouppriority groupsToIgnore memberof " || "acting comat comatstationid companycode cosspecifier " || "costcenter countrycode createtimestamp dc " || "delegated departmentaltcontactname departmentcity " || "departmentcomailaddress departmentcontactname departmentcostcenter " || "departmentcountry departmentdescription departmentdivision departmentkeywords " || "departmentlongname departmentname departmentnumber departmentphone departmentpostal " || "displayname employeenumber employmentstatuscode employeetype employmenttypecode entrydn " || "exemptnonexempt expatintlcomaddr fxdivision fxexecbcdraccess fxjobfamily fxjobfunctioncode " || "fxregion fxsoxstatus fxssomemberof givenName icscalendar inetCanonicalDomainName " || "inetDomainBaseDN inetDomainStatus inetMailGroupStatus inetUserStatus initials " || "jobnumber mail mailAlternateAddress mailEquivalentAddress mailfxaccounttype mailfxhome " || "mailHost mailRoutingHosts mailUserStatus managementlevel manager member " || "memberOfManagedGroup memberOfPAB memberOfPABGroup modifytimestamp nickname " || "nsCalXItemId nscpEntryDN nsds5ReplConflict nsLIProfileName " || "nsUniqueId nswcalCALID ntGroupDomainId ntUserDomainId numsubordinates " || "ou owner parentid pipstatus pipuid positionnumber postalcode " || "postaladdress street isActive isActiveSpecified " || "seeAlso sn telephoneNumber tempworklocation title uid un " || "uniquemember vendortype workstate xuid" ; %put &Attrs ; %put &emp ; data rpt_output ; length entryname $200 attrName $100 value $100 filter $100; rc =0; handle =0; server="directory.company.com"; port=389; base="ou=people,o=company,c=us"; bindDN=""; Pw=""; /* open connection to LDAP server */ call ldaps_open(handle, server, port, base, bindDn, Pw, rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else put "LDAPS_OPEN call successful."; shandle=0; num=0; filter="(&(objectCategory=user)(memberOf=myteam_AD_group,))"; /* filter below works for individual employees */ /*filter="(&(uid=&emp))";*/ /* search the LDAP directory */ call ldaps_search(handle,shandle,filter, attrs, num, rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else do; put " "; put "LDAPS_SEARCH call successful."; put "Num entries returned is " num; put " "; end; do eIndex = 1 to num; numAttrs=0; entryname=''; /* retrieve each entry name and number of attributes */ call ldaps_entry(shandle, eIndex, entryname, numAttrs, rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else do; put " "; put "LDAPS_ENTRY call successful."; put "Num attributes returned is " numAttrs; end; /* for each attribute, retrieve name and values */ do aIndex = 1 to numAttrs; attrName=''; numValues=0; call ldaps_attrName(shandle, eIndex, aIndex, attrName, numValues, rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else do; put " "; put "Attribute name is " attrName; put "Num values returned is " numValues; end; do vIndex = 1 to numValues; call ldaps_attrValue(shandle, eIndex, aIndex, vIndex, value, rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else do; put "Value : " value; put "Attribute nbr is " numValues; Output rpt_output; end; end; end; end; /* free search resources */ call ldaps_free(shandle,rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else put "LDAPS_FREE call successful."; /* close connection to LDAP server */ call ldaps_close(handle,rc); if rc ne 0 then do; msg = sysmsg(); put msg; end; else put "LDAPS_CLOSE call successful."; run; quit;

Seb_A_Sanders

I've been building an automation program in vbs that uses the SAS EG scheduling vbs as a framework and then I've heavily customised it. Part of that customisation is to run a list of EGP files listed in a set of calls. This all works fine, but my final task is to build a timeout functionality, which I know windows task scheduler has built in, but this is for the entire script. What I am trying to do is build it specific to each time an EGP is called, so that it can kill one if it takes too long and then move on to the rest. What I ended up trying is using the prjobject.isrunning but it doesn't function the way I expected, I can't find any documentation about it and I was hoping someone had used it succesfully in the past. Failing that, has anyone achieved something similar via a different method?

PhilWood

Hi all, I have successfully created an annotated state map from geocoded address info using the states map. However, when I try to use the county map data set, it appears that the geocoding output does not match what information in the county map dataset. Here is a small program to illustrate the difficulty. Code doesn't get past proc gproject. It seems that the length of x and y of the map do not match the length of x and y in the geocoded output. thanks! Phil : libname lookup "D:\Documents\desi2023\frlanalyses\geocodedata__2006__ZIP4_Geocode_Data\data"; data zips; input c zip; anno_flag=1l cards; 1 65203 2 65211 3 65201 ; proc geocode /* Invoke geocoding procedure */ method=plus4 /* Specify geocoding method */ lookup=lookup.zip4 /* Lookup data from MapsOnline */ data=zips /* Input data set to geocode */ out=geocodedzips; /* Specify name of Output data set of locations */ run; data mocounties;set maps.counties;if state=29; data mocounties;set mocounties geocodedzips;run; proc gproject data=mocounties out=MOCountiesP; id state ; run; data my_map locations; set mocountiesP; if anno_flag=1 then output locations; else output my_map; run; data anno_locations; set locations; if c=1 then color="red"; if c=2 then color="bib"; if c=3 then color="viyg"; if c=4 then color="bippk"; xsys='2'; ysys='2'; hsys='3'; when='a'; function='pie'; rotate=360; size=.5; style='psolid'; output; length html $300; html='title='||quote(trim(left(citystate))||'0d'x||trim(left(put(zip,z5.)))); style='pempty'; color='deb'; output; run; pattern1 v=e; proc gmap data=mymap map=mymap anno=anno_locations; id county; choro segment / coutline=black levels=1 nolegend coutline=gray99;run;

RobertWF1

I'm running proc report on a proc freq output table and the resulting table looks good except the rows under the "year" headers are offset (see data example below). The code is running without errors -- any ideas what's going wrong? data test; input year biomarkername $ biomarkerstatus $ count pct_row; cards; 2017 ALK N 2716 90.8969 2017 ALK P 87 2.9116 2017 ALK U 185 6.1914 2017 BRA N 1786 92.1569 2017 BRA P 91 4.6956 2017 BRA U 61 3.1476 2018 ALK N 2839 92.3552 2018 ALK P 72 2.3422 2018 ALK U 163 5.3025 2018 BRA N 2364 92.0202 2018 BRA P 136 5.2939 2018 BRA U 69 2.6859 ; run; options missing=' '; proc report data=test missing; column biomarkername year,(biomarkerstatus count pct_row); define biomarkername / group ; define year / across ; run;

SASAlex101

I have a macro below that can be run in 1 program. It produces 2 variables for use for the user &computeblockprocreport. and &formatlines. FormatLines are intended to be used in a proc format statement but it's not working as demo'd below. The computeblockprocreport is used in Proc report and is used to apply a gradient to a table if required in the compute block. THIS IS WORKING. %macro generate_gradient_colors(start_value,end_value, start_color, end_color, num_intervals,rpt_col_num); /* Extract RGB components of start and end colors */ %let start_red = %substr(&start_color, 3, 2); %let start_green = %substr(&start_color, 5, 2); %let start_blue = %substr(&start_color, 7, 2); %let end_red = %substr(&end_color, 3, 2); %let end_green = %substr(&end_color, 5, 2); %let end_blue = %substr(&end_color, 7, 2); %put &end_red; %put &end_green; %put &end_blue; %let start_red_decimal = %sysfunc(inputn(&start_red.,hex8.)); %let start_green_decimal = %sysfunc(inputn(&start_green.,hex8.)); %let start_blue_decimal = %sysfunc(inputn(&start_blue.,hex8.)); %let end_red_decimal = %sysfunc(inputn(&end_red.,hex8.)); %let end_green_decimal = %sysfunc(inputn(&end_green.,hex8.)); %let end_blue_decimal = %sysfunc(inputn(&end_blue.,hex8.)); /* Calculate the increment for each color component */ %let red_increment = (%sysevalf(&end_red_decimal - &start_red_decimal)) / &num_intervals; %let green_increment = (%sysevalf(&end_green_decimal - &start_green_decimal)) / &num_intervals; %let blue_increment = (%sysevalf(&end_blue_decimal - &start_blue_decimal)) / &num_intervals; %let value_increment = %sysevalf((%sysevalf(&end_value - &start_value + 1) / &num_intervals)); %let prev_increment = &start_value; /* Generate format lines with gradient colors */ %GLOBAL formatlines; %GLOBAL computeblockprocreport; %do i = 1 %to &num_intervals; %let red_value = %sysevalf(&start_red_decimal + &red_increment * &i); %let green_value = %sysevalf(&start_green_decimal + &green_increment * &i); %let blue_value = %sysevalf(&start_blue_decimal + &blue_increment * &i); %let hex_color = cx%sysfunc(strip(%sysfunc(putn(&red_value, hex2.))))%sysfunc(strip(%sysfunc(putn(&green_value, hex2.))))%sysfunc(strip(%sysfunc(putn(&blue_value, hex2.)))); %if &i. eq 1 %then %do; /*for Proc Format*/%let formatlines = low - &start_value. = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = if _C&rpt_col_num._ le &start_value. then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %if &i. lt &num_intervals %then %do; /*for Proc Format*/%let formatlines = &formatlines. &prev_increment - %sysevalf(&i. * &value_increment) = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = &computeblockprocreport. if _C&rpt_col_num._ gt &prev_increment and _C&rpt_col_num._ le %sysevalf(&i. * &value_increment) then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %if &i. eq &num_intervals %then %do; /*for Proc Format*/%let formatlines = &formatlines. &prev_increment - high = %str(%')&hex_color.%str(%'); /*for Proc Report*/%let computeblockprocreport = &computeblockprocreport. if _C&rpt_col_num._ gt &prev_increment then do%str(;) call define(_col_,%str(%')style%str(%'),%str(%')STYLE={BACKGROUND=&hex_color.}%str(%'))%str(;) end%str(;); %end; %let prev_increment = %sysevalf(&i. * &value_increment); %end; %mend; /* Example usage */ %let start_value = 1; %let end_value = 10; %let start_color = cxFFFFFF; %let end_color = cx00A5B9; %let num_intervals = 5; %let rpt_col_num = 1; /* Generate gradient colors */ %generate_gradient_colors(&start_value, &end_value, &start_color, &end_color, &num_intervals,&rpt_col_num); %put &formatlines.; %put &computeblockprocreport.; proc format; value heatfmt &formatlines. ; quit; proc format; value heatfmtmanual low - 1 = 'cxCCEDF1' 1 - 2 = 'cxCCEDF1' 2 - 4 = 'cx99DBE3' 4 - 6 = 'cx66C9D5' 6 - 8 = 'cx33B7C7' 8 - high = 'cx00A5B9' ; quit; data test; do col1 = &start_value to &end_value; rnum = STRIP(PUT(col1,best32.)); output; end; run; /*TEST Proc Report COMPUTE BACKGROUND*/ Proc Report Data=work.test; columns _ALL_; define col1 / "col1"; compute col1; &computeblockprocreport.; endcomp; ; run; /*TEST Proc TABULATE */ Proc Tabulate DAta=WORK.test style=[background=heatfmt.]; ; class rnum; var col1; table rnum,col1 ; run; /*TEST Proc TABULATE */ Proc Tabulate DAta=WORK.test style=[background=heatfmtmanual.]; ; class rnum; var col1; table rnum,col1 ; run; %put &computeblockprocreport.; %put ; %put &formatlines.; The text in &formatlines. is: low - 1 = 'cxCCEDF1' 1 - 2 = 'cxCCEDF1' 2 - 4 = 'cx99DBE3' 4 - 6 = 'cx66C9D5' 6 - 8 = 'cx33B7C7' 8 - high = 'cx00A5B9' line 75 has the proc format and &formatlines variable that isn't working. line 81 has the manual version types out instead of using the &formatlines var. Line 100 and Line 111 are tests for Proc tabulate using the two formats. Only the manual format is working... Have I come too far just to realize this isn't possible to use macro vars in proc format? Thanks;