/* SZTE - SAS - 2015-02-08 */

/* Változó átnevezése */
data la.keksz;
 set la.keksz;
 rename sorren = sor
		kormányos = korm
        befut = ido;
run;

/* új változó képzése karakteres változó felhasználásával,
   adatok szetválogatása több adatállományba egy DATA lépésben */
data la.kekgyors la.kekek la.keklassu;
 set la.keksz;
 /* 22 órások: 13 órával 9 után: 13*60*60s = 46800s 
   15*60*60=54000
   39*60*60=140400 
 */
 if _N_ lt 5 then 
  do ;
   futottmp= 46800 + substr(ido,4,2)*60 + substr(ido,7,2) ;
   output la.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 la.kekek ;
  end ;
 else
  do ;
   futottmp=140400 + substr(ido,1,2)*3600 + substr(ido,4,2)*60 + substr(ido,7,2) ;
   output la.keklassu ;
  end ;
run ;

/*IF helyett SELECT */
data la.kekjo ;
 set la.keksz ;
 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 ;

/* Változók törlése egyszerre tól--ig */
data x;
 set la.kekszalag (drop=J--BN);
run;