proc sql noprint;
select count(*) into :num
from &TD;
quit;
data temp2;
set &TD;
call symputx('TP'left(_n_),prize);
run;
%let num=#
data &OD;
set &FD;
%do i=1 %to #
if index(status, "&TP&i")>0 then output;
%end;
run;
proc sort data=&OD nodupkey;
by EmpID;
proc print data=&OD;
run;
%mend test;
options mprint symbolgen;
%test(TD=temp, FD=new, OD=Output)
-------------------------------------------
Search: Exhaust all possibilitiesMatch: Identify those fit your requirement within the frame
Remarks: Life would be much easier and less pain if all stuffs work like the program shown here.
7 comments:
妳呢篇 "恰" 我呀?!!!??!?!
"%macro test (TD=temp, FD=new, OD=Output);
proc sql noprint;
select count(*) into :num
from &TD;
quit;
data temp2;
set &TD;
call symputx('TP'left(_n_),prize);
run;
%let num=#
data &OD;
set &FD;
%do i=1 %to #
if index(status, "&TP&i")>0 then output;
%end;
run;
proc sort data=&OD nodupkey;
by EmpID;
proc print data=&OD;
run;
%mend test;
options mprint symbolgen;
%test(TD=temp, FD=new, OD=Output)"
@@
XQYZ##$%&XXQQY!!%XYZ&%
咩意思嚟?!
I hate writing procs.
LDD: "妳呢篇 "恰" 我呀?!!!??!?!"
i think so.
XQYZ##$%&XXQQY!!%XYZ&%" <= 咩意思嚟?!
冬冬: it's something that still can be managed.
Ruth: I don't think so ar, don't be midled by someone here. Please pay ur attention at the posting end. What I am trying to forward is the following message...
Search: Exhaust all possibilities
Match: Identify those fit your requirement within the frame
Remarks: Life would be much easier and less pain if all stuffs work like the program shown here.
Hyacinthus: I read the whole thing. I got your point.
When possible, I will satisfy people's wants. So, if that's what he thinks, I don't mind agreeing.
o胡~~~~~~~~~~
一人力頂風子黨!!!!!!!!!
巔巔<------ 力拔山兮氣蓋世~~~~~
"巔巔<---力拔山兮氣蓋世~~~" 噢!!!真的嗎?
力拔山兮氣蓋世，時不利兮騅不逝。
騅不逝兮可奈何，虞兮虞兮奈若何!
- 垓下歌 項羽 -
此乃項羽在垓下一戰，楚軍瓦解,感懷藉詩抒 胸臆,這是一種英雄末路的感情的作品，最終項羽烏江自刎!
難道你...
Post a Comment