You can do something like this example:   data test; input WD DAY $ EXPD RCVD RCVD_ALL NEWC $; cards; -1 31JUL 29 49 56 Y 01 3AUG 26 26 77 Y 02 4AUG 77 45 0 N 03 5AUG 71 0 0 N 04 6AUG 44 0 0 N ; RUN; ods listing close; ods html file='c:\temp\test.html'; proc report data=TEST nowd; column WD DAY EXPD RCVD RCVD_ALL newc; define WD / 'Working Day' display ; define DAY / ' Day' display; define EXPD / display; define RCVD / display; define RCVD_ALL / display; define NEWC/display; compute expd; if expd > 28 then call define(_col_,"style","style=[background=red]"); endcomp; quit; ods html close; ods listing; ... View more

That is correct CALL EXECUTE and DOSUBL are similar in what they can accomplish but are different in regards to the timing of when things execute.  There are may times that DOSUBL and CALL EXECUTE can return the same results.  Was not sure if you were aware of it so wanted to bring it to your attention but as for DOSUBL there is no way to have that code echoed to the log, sorry. ... View more

Unfortunately there is no option that will allow this.  You could switch to CALL EXECUTE instead as it shows the contents in the log, for example:   data source_lines; source_line = 'options source source2; data x; y=1; run; %let abc=1;' ; run ; data _null_; set source_lines ; *rc = dosubl(source_line); call execute(source_line); abc=symget('abc'); put abc=; run; data _null_; set x; /* created in dosubl side session */ put _all_; run;   The log shows this:  1 data source_lines; 2 source_line = 'options source source2; data x; y=1; run; %let abc=1;' ; 3 run ; NOTE: The data set WORK.SOURCE_LINES has 1 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.12 seconds cpu time 0.04 seconds 4 5 data _null_; 6 set source_lines ; 7 *rc = dosubl(source_line); 8 call execute(source_line); 9 abc=symget('abc'); put abc=; 10 run; NOTE: DATA statement used (Total process time): real time 0.12 seconds cpu time 0.06 seconds abc=1 NOTE: There were 1 observations read from the data set WORK.SOURCE_LINES. NOTE: CALL EXECUTE generated line. 1 + options source source2; 1 + data x; y=1; run; NOTE: The data set WORK.X has 1 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.10 seconds cpu time 0.00 seconds 11 data _null_; 12 set x; /* created in dosubl side session */ 13 put _all_; 14 run; y=1 _ERROR_=0 _N_=1 NOTE: There were 1 observations read from the data set WORK.X. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.00 seconds ... View more

Sorry, missprint, should be 9. not 6. ... View more

mmddyy9. not 6. ... View more

I tired the following and it worked for me unless I am misunderstanding what you are asking: p_abday_t1=input('18DEC23:18:48:18',datetime.); dob=input('6/08/2011',mmddyy6.); teen_age=yrdif(dob,datepart(p_abday_t1)); ... View more

There is not a function that will do that directly you will have to take your rules and code each one, for example: data test; do i=0 to 100; y=i*0.05; x=i+0.01; output; end; run; data test; set test end=last; x_obs=7.01; y_obs=0.35; if last then reflabel='.3'; run; data demo; format date weekdatx. sat_start_of_week sat_end_of_week begining_month_date ending_month_date date9.; do date='01jan2016'd to '31mar2016'd; sat_start_of_week=intnx('week.7',date,0,'b'); sat_end_of_week=intnx('week.7',date,0,'e'); begining_month_date=intnx('month',date,0,'b'); ending_month_date=intnx('month',date,0,'e'); wdb=weekday(begining_month_date); wde=weekday(ending_month_date); if wdb =6 then begin_month=begining_month_date+1; if wdb =2 then begin_month=begining_month_date-2; if wde eq 1 then ending_month=ending_month_date-2; if wde eq 2 then ending_month=ending_month_date-3; output; end; drop begining_month_date ending_month_date; run; proc print; format begin_month ending_month date.; run; ... View more

You need to use a shift interval since you want the week to start on Saturday.   Example:   data _null_; x='24Oct2019'd; e=intnx("week.7",x,0,"B"); put e=; format e mmddyy9.; run; ... View more

This is one way to accomplish your task:   data DB; input ID :$20. Index Variable1 Variable2 Variable3 Variable4; cards; 0001 1 . 1 . . 0001 0 1 . . 1 0002 1 1 . . 1 0002 0 . 1 . . 0003 1 . . . . 0003 0 2 . 4 . 0003 0 . 3 . . 0003 0 . . . . 0003 0 . . . 8 ; proc sort out=newdb; by descending id index; run; data new; set newdb; retain tvar1 tvar2 tvar3 tvar4; array vars(*) variable1-variable4; array tempvars(*) tvar1-tvar4; by descending id index; if index=0 then do; do i= 1 to dim(vars); if vars(i) ne . then tempvars(i)=vars(i); vars(i)=.; end; end; else if index=1 then do; do i= 1 to dim(vars); if vars(i)=. then vars(i)=tempvars(i); end; call missing(tvar1,tvar2,tvar3,tvar4); end; drop tvar: i; run; proc sort out=newdb; by id descending index; run; proc print; run; ... View more

I am still not 100% sure what you need.   If you are wanting to run multiple glmselect on a different variable each time, what determines which variable we use and/or exclude?   If you had variables var1 var2 var3 var4, are you wanting to run the glmselect 4 times removing one of the variables each time? ... View more

Can you share what the NOK data set looks like? ... View more

You do not have to create a new variable, that was just an example.  Here is the same code using the same variable:   %let list=var1 var2 var3 var4; %let cnt=%sysfunc(countw(&list)); %macro test(remove); %let list=%cmpres(%sysfunc(tranwrd(&list,&remove,%str()))); %put &list; %mend test; %test(var2) ... View more

You could use TRANWRD to replace the string you want to remove with a blank, for example:   %let list=var1 var2 var3 var4; %let cnt=%sysfunc(countw(&list)); %macro test(remove); %let newlist=%cmpres(%sysfunc(tranwrd(&list,&remove,%str()))); %put &newlist; %mend test; /* Pass in the string you want to remove */ %test(var2) ... View more

You just need to change this: scan("&alparle." ,1,  ",")  to this: scan(&alparle ,1,  ",")  This will give you the output you showed. ... View more