|
%_N_ZEIT_SPF ;$PATH=/_N_SPF_DIR DEF STRING[70] Zeit_Dat="/_N_WKS_DIR/_N_PROTOKOLL_WPD/_N_ZEITEN_MPF" DEF INT error
R99=$AC_CYCLE_TIME ; = LAUFZEIT IN SEKUNDEN
R98= TRUNC(R99/3600) ; = STUNDEN R97= TRUNC(TRUNC(R99-R98*3600)/60) ; = MINUTEN R96= R99-R97*60-R98*3600 ; = SEKUNDEN
Write (error,Zeit_Dat,"Prog: "<<$P_PROG[0]<<" - "<<$A_DAY<<":"<<$A_MONTH<<":"<<$A_YEAR<<" - LAUFZEIT = "<<R98<<":"<<R97<<":"<<R96<<"")
M17
|