data eail;
infile cards dlm='09'x truncover;
input NO 1-2 Code $ Stn_Name: $25.;
input Zone $ Div $ Arr $ Dep $ Halt PF Dist Day $ Remark $;
/*ARRRIVAL=input(cats(Arr, "00"), hhmm5.);
*DEPARTURE=input(Dep, ?? hhmmss5.);
DEPARTURE=input(cats(Dep, "00"), hhmm5.);
lag_N_dep=lag(DEPARTURE);
DURv1=(DEPARTURE-lag_N_dep);
/* Tried Different versions to get time difference */
DURv2=intck('Minute', DEPARTURE, lag_N_dep);
/* Tried Different versions to get time difference */
DURRdiff_in_Min = intck('minute',lag_N_dep,DEPARTURE);
/* Tried version to get time difference in hours and minutes */
*format lag_N_dep DEPARTURE ARRRIVAL hhmmss5.;
DDIST=(pf- lag(pf));
*/
/* tried to get difference from above row to below */
drop Zone Div PF Day Remark halt dist;
Cards;
1 XUR Xolapier
CR XUR First 06.25 0 0 1
2 HG Ghofti
CR XUR 06.43 06.45 2 15 1
3 IDR Indixl
ALE BMX 07.24 07.25 1 58 1
4 BJP Viyaura
ALE BMX 08.15 08.20 5 109 1
5 BXRX BaBagead
ALE BMX 09.08 09.10 2 153 1
6 LMT Almanxti
ALE BMX 09.29 09.30 1 171 1
7 BGK Bavapgok
ALE BMX 10.18 10.20 2 206 1
8 GED Guldegua
ALE BMX 10.24 10.25 1 219 1
9 BDM Bamani
ALE BMX 10.39 10.40 1 232 1
10 HLAR Hilre Aut
ALE BMX 11.09 11.10 1 251 1
11 MLP Maltar
ALE BMX 11.29 11.30 1 268 1
12 GDG Gagduma
ALE BMX 12.23 12.25 2 299 1
13 NGR Anniton
ALE BMX 13.14 13.15 1 321 1
14 BMX Hujatig
ALE BMX 14.25 Last 0 357 1
;
run;
proc print data=eail;
run; Hi, Thank you all for all the replies , I tried most of the suggestions with little luck . however i am posting the SAS code in a proper format . Thanks
... View more