About xuelingshu1047

xuelingshu1047 · ‎01-20-2021

Thanks for your response. I am sorry I didn't express my problem clearly. Here I tried to express in a simple way. Whether the value of supd_0d will be copied to nodup_supd_0d depends on if ntdc_0d equals to 0; once ntdc_xd changes to 1, the process of coping will stop and leave the rest variables called nodup_supd_xd blank. I would like to use macro since I have to repeat this process for several variables, not only supd_xd and nodup_supd_xd supd_0d supd_1d supd_2d nodup_supd_0d nodup_supd_1d nodup_supd_2d ntdc_0d ntdc_1d ntdc_2d 1 2 3 1 . . 0 1 0 1 2 3 1 2 . 0 0 1 data wide1; set wide; array ns{4} nodup_supd_0d nodup_supd_1d nodup_supd_2d nodup_supd_3d; array sp {4} supd_0d supd_1d supd_2d supd_3d; array ntdc {4} ntdc_0d ntdc_1d ntdc_2d ntdc_3d; done2 = "no"; m=0; do until (done2 = "yes" or m>3); ns(m)= sp(m); if ntdc(m) = 1 then done2='yes'; m = m+1; end; run;

xuelingshu1047 · ‎01-20-2021

I tried to create new variables called nodup_supd_&m.d when ntdc_&m.d=0 (m could be 0,1,2,3). I used a do-loop which should have stopped once ntdc_&m.d changed to 1. However, it did not stop when ntdc_&m.d=1. It completed the loop until &m>3. It seems neglect the condition of "&done2" = "yes". Could someone help fix it? Thanks! %macro drug_ntdc(type,num,op); data ntdc_&type.&Num.d_wide1; set ntdc_&type.&Num.d_wide ; %let done2=no; %let m=0; %do %until (("&done2" = "yes") or (&m>3)); nodup_supd_&m.d= supd_&m.d; /*this step did not work*/ if ntdc_&m.d=1 then call symput('done2','yes'); %let m = %eval(&m+1); %end; run; %mend; %drug_ntdc(opioid,3,op=1);

Online Status	Offline
Date Last Visited	‎01-26-2021 07:48 PM

Re: How to use IF Then to end a loop in data step

How to use IF Then to end a loop in data step

Re: How to use IF Then to end a loop in data step

How to use IF Then to end a loop in data step