/* 2. gyakorlat */
/* valtozo atnevezese */
data m.kekjo ;
set m.kekszalag ;
rename Befut_si_id___________pp_ss_ = ido 
		f2= yarstik ;
run ;

/* uj valtozo kepzese karakteres valtozo felhasznalasaval,
   adatok szetvalogatasa tobb adatallomanyba egy DATA lepesben */
data m.kekgyors m.kekek m.keklassu;
set m.kekjo ;
if _N_ lt 5 then 
 do ;
  futottmp= 46800+substr(ido,4,2)*60+
		substr(ido,7,2) ;
		output m.kekgyors ;
 end ;
else if _N_ lt 525 then 
 do ;
   futottmp= 54000+substr(ido,1,2)*3600 +
      substr(ido,4,2)*60+
		substr(ido,7,2) ;
   output m.kekek ;
 end ;
else
 do ;
		futottmp=140400+
		substr(ido,1,2)*3600+
		substr(ido,4,2)*60+
		substr(ido,7,2) ;
		output m.keklassu ;
 end ;
run ;

/*IF helyett SELECT */
data m.kekjo2 ;
set m.kekjo ;
select ;
  when ( _N_ lt 5) 
       futottmp= 46800+substr(ido,4,2)*60+
		substr(ido,7,2) ;
  when ( _N_ lt 525 )   
       futottmp= 54000+substr(ido,1,2)*3600 +
        substr(ido,4,2)*60+
		substr(ido,7,2) ;
  otherwise
		futottmp=140400+
		substr(ido,1,2)*3600+
		substr(ido,4,2)*60+
		substr(ido,7,2) ;
 end;
run ;