Use Xia Keshan's code but add a keep statement to the want dataset. E.g. data want(keep=week  wt_lbs  ht_in  bmi  brstfeed  supplement); set have; Regards, BPD ... View more

KDA, You could just insert the line IF POT = 1 THEN LEAVE into the do loop. VIZ: data new; set old; array goname{1:54} $ 255 goname1-goname54; flag = "potassium"; POT=0; do i=1 to 54; POT = index(goname{i}, flag); IF POT = 1 THEN LEAVE; end; run; This stops POT subsequently being reset to 0 which may be all that's stopping the code working now. Regards, BPD ... View more

Learner, Just in case you'd prefer not to leave SAS base you could use the following. It generates the macro variables and displays their values in the log. I haven't fully tested it but it should be good for any number of words in the string. Of course you can replace the TRIM/LEFT functions with the appropriate version 9 function. data a; string = 'base macros sql advance'; i=1; DO UNTIL(SCAN(string,i)=''); call symput('VAR'!!put(i,3. -L),SCAN(string,i)); i+1; END; DO j = 1 to (i-1); x = symget('var'!!put(j,3.-l)); putv = 'var'!!TRIM(put(j,3.-l))!!'='!!TRIM(LEFT(x)); put putv; END; RUN; Regards, BPD ... View more

A slight variation on the post from Chris@newzealand. Store the number of obs - 9 into a macro variable. data t; if 0 then set SASHELP.CLASS nobs=NOBS; call symput('nobs',nobs-9); run; Then read the data from that point in the dataset. data t1; set SASHELP.CLASS(firstobs=&nobs); run; Regards, BPD ... View more

A_B_C, I hadn't realised from your original post that you wanted that flexibility. It's a simple step to put the code you require into a macro. For example: data a; input patid week day dose; Infile cards; cards; 1 1 1 10 1 1 3 11 1 2 1 12 1 2 3 13 1 3 1 13 1 4 1 14 1 5 1 15 1 5 3 16 1 6 1 17 1 6 3 18 ; run; /* Now define the macro - note that timst and timend allow you to name the start and stop months that you're interested in. */ %MACRO reread(track=,timst=,timend=,in=a,out=b); DATA &out; SET ∈ %DO i = &timst %TO %EVAL(&timend); IF _n_ > &i THEN SET &in(KEEP = &track RENAME=(&track=&track.min&i)); %END; RUN; %MEND reread; /* now - to track the variable dose for 2 to 3 months ago */ %reread(track=dose,timst=2,timend=3,in=a,out=b); proc print data=b; run; /* the above print gives the following output. */ Obs patid week day dose dosemin2 dosemin3 1 1 1 1 10 . . 2 1 1 3 11 . . 3 1 2 1 12 10 . 4 1 2 3 13 11 10 5 1 3 1 13 12 11 6 1 4 1 14 13 12 7 1 5 1 15 13 13 8 1 5 3 16 14 13 9 1 6 1 17 15 14 10 1 6 3 18 16 15 Perhaps this is addresses your needs more accurately? Regards, BPD ... View more

A_B_C, You could read the data from the prior 2 weeks using multiple set statements. VIZ: data a; input patid week day dose; Infile cards; cards; 1 1 1 10 1 1 3 11 1 2 1 12 1 2 3 13 1 3 1 13 1 4 1 14 1 5 1 15 1 5 3 16 1 6 1 17 1 6 3 18 ; run; data b; set a; if _n_ > 1 then set a(keep = dose rename=(dose=dosemin1)); if _n_ > 2 then set a(keep = dose rename=(dose=dosemin2)); run; proc print data=b; run; This produces the output shown below. Once enough data is present you simply look along the observation to look-up the last and last-1 positions. Obs patid week day dose dosemin1 dosemin2 1 1 1 1 10 . . 2 1 1 3 11 10 . 3 1 2 1 12 11 10 4 1 2 3 13 12 11 5 1 3 1 13 13 12 6 1 4 1 14 13 13 7 1 5 1 15 14 13 8 1 5 3 16 15 14 9 1 6 1 17 16 15 10 1 6 3 18 17 16 Regards, BPD ... View more

Sairam, The following utility macro might solve your problem: %MACRO obs(lib=,mem=); %LET ds = %SYSFUNC(OPEN(&lib..&mem)); %LET noobs = %SYSFUNC(ATTRN(&ds,NOBS)); %LET ds = %SYSFUNC(CLOSE(&ds)); &noobs; %MEND obs; If we generate the following dataset - a1 data a1; do val = 1 to 100; output; end; run; Use the macro statement - %LET to assign a macro variable (obs_in_dset in this example) the output of the %obs macro. In the macro call name the sas library in which your dataset resides (lib=work) and the sas dataset name (mem=a1) e.g. %let obs_in_dset = %obs(lib=work,mem=a1); Now when you want to read the last obs in the a1 dataset use data lastina1; set a1(firstobs=&obs_in_dset); run; I hope you find this useful. Regards, BPD ... View more

Lisam, You seem to have missed the %LET from your macro assignments. Try: %macro test(var); %if &var=1 %then %LET d1_&var=1; %else %LET d1_&var=0; %if &var=2 %then %LET d2_&var=1; %else %LET d2_&var=0; %mend test; You don't need the run statement since it is part of the data step and you're code is purely Macro language. Hope this is enough for you. Regards, BPD ... View more

The following code allows you to specify the ranges you require in the call to %Flatten. Note the use of the %quote function in the macro call that masks the ',' symbols so that the macro knows that there is only one parameter being passed. %macro flatten(inn); %LOCAL lista list i ; %LET i = 1; %DO %UNTIL(%SCAN(&inn,&i,%STR(,)) EQ ); %LET lista = %SCAN(&inn,&i,%STR(,)); %IF %index(&lista,%STR(:)) %THEN %DO x = %SCAN(&lista,1,':') %TO %SCAN(&lista,2,':'); %LET list = &list&x%STR( ); %END; %ELSE %DO; %LET list = &list&lista%STR( ); %END; %let i =%eval(&i+1); %END; data %LET i = 1; %DO %UNTIL(%SCAN(&list,&i,%STR( )) EQ ) ; %unquote(temp%SCAN(&list,&i,%STR( ))(keep=m%SCAN(&list,&i,%STR( )))) %let i =%eval(&i + 1); %END; ; %LET i = 1; %DO %UNTIL(%SCAN(&list,&i,%STR( )) EQ ); m%SCAN(&list,&i,%STR( )) = %SCAN(&list,&i,%STR( )) + 1; %let i =%eval(&i+1); %END; %LET i = 1; %DO %UNTIL(%SCAN(&list,&i,%STR( )) EQ ); output temp%SCAN(&list,&i,%STR( )); %let i =%eval(&i+1); %END; run; %mend flatten; options nomlogic mprint nosymbolgen; %flatten(%quote(1:7,14:16,18,30)) The following log is produced by the macrto call: MPRINT(FLATTEN): data temp1(keep=m1) temp2(keep=m2) temp3(keep=m3) temp4(keep=m4) temp5(keep=m5) temp6(keep=m6) temp7(keep=m7) temp14(keep=m14) temp15(keep=m15) temp16(keep=m16) temp18(keep=m18) temp30(keep=m30) ; MPRINT(FLATTEN): m1 = 1 + 1; MPRINT(FLATTEN): m2 = 2 + 1; MPRINT(FLATTEN): m3 = 3 + 1; MPRINT(FLATTEN): m4 = 4 + 1; MPRINT(FLATTEN): m5 = 5 + 1; MPRINT(FLATTEN): m6 = 6 + 1; MPRINT(FLATTEN): m7 = 7 + 1; MPRINT(FLATTEN): m14 = 14 + 1; MPRINT(FLATTEN): m15 = 15 + 1; MPRINT(FLATTEN): m16 = 16 + 1; MPRINT(FLATTEN): m18 = 18 + 1; MPRINT(FLATTEN): m30 = 30 + 1; MPRINT(FLATTEN): output temp1; MPRINT(FLATTEN): output temp2; MPRINT(FLATTEN): output temp3; MPRINT(FLATTEN): output temp4; MPRINT(FLATTEN): output temp5; MPRINT(FLATTEN): output temp6; MPRINT(FLATTEN): output temp7; MPRINT(FLATTEN): output temp14; MPRINT(FLATTEN): output temp15; MPRINT(FLATTEN): output temp16; MPRINT(FLATTEN): output temp18; MPRINT(FLATTEN): output temp30; MPRINT(FLATTEN): run; NOTE: The data set WORK.TEMP1 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP2 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP3 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP4 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP5 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP6 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP7 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP14 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP15 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP16 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP18 has 1 observations and 1 variables. NOTE: The data set WORK.TEMP30 has 1 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.25 seconds cpu time 0.09 seconds You can see that I've output each of the differently summed/named variables to different named datasets. This may not be quite what you want but you can cherry pick out the bits that you require. Regards, BPD ... View more

To: RaminR Use the informat modifier ':'. This will read the variable content up to the next delimeter and then move the pointer to the next position after the delimeter. For some reason in your code SAS appears to be reading the '.' delimeter that separates values as part of the grade value. In any event the following code works to read in the grade correctly. Be aware that you need to set your informats wide enough to accomodate the largest possible input to be read. data StudentsGradesDot1; infile datalines dlm='.'; input StudentName :$8. CourseName :$9. DateOfExam :Date7. Grade :5.2 Result :$; datalines; George.Math.19Dec05.1750.P Susan.Geography.01Feb05.1101.F ; run; Regards, BPD ... View more