mark下值得思考

libname timu "f:/pp_sas_dataset";

proc import datafile="f:/pp_sas_dataset/shujuyuan.csv"
             out=timu.shujuyuan1
                         DBMS=csv replace;
  getnames=yes;
  guessingrows=2000;
run;

data timu.shujuyuan2;
   set timu.shujuyuan1;
   format _date date7. _time time5. a time5. b time5. c time5. d time5. e time5. f time5. g time5.;
   _date=datepart(transport_time);
   _time=timepart(transport_time);
   a=hms(0,0,0);
   b=hms(9,30,0);
   c=hms(11,30,0);
   d=hms(14,30,0);
   e=hms(16,30,0);
   f=hms(18,30,0);
   g=hms(23,59,0);
   if a<=_time<b then flag=1;
   else if b<=_time<c then flag=2;
   else if c<=_time<d then flag=3;
   else if d<=_time<e then flag=4;
   else if e<=_time<f then flag=5;
   else if f<=_time<g then flag=6;
   drop transport_time a b c d e f g;
run;

proc sql;
  select distinct flag ,count(*) from timu.shujuyuan2;
  group by flag;
quit;