persistent BL.Sys.FOP.Common 1 SysFOP %Persistent,VHSys.Scheduler.Logging 0 97 %Integer 1 Set {*}=({Datum}*1000000)+{SubID} 1 1 1 Datum,SubID 1 Do ##class(Sys.FOP.Logging).GetMailFields(.From,.lbTo,.Subj, "Error") 1 " Set lbTo = $$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("FOP_Mail_FOPSysOp"), ";") Quit ]]> Write ##class(Sys.FOP.Logging).GetJobInfo() 1 blnMultiLine:%String,Indent:%String %String Write ##class(Sys.FOP.Logging).GetFopQueueURL() 1 QueryString:%String="FOPNOW=1" %String Returns the nearest LogID (e.g. "60792||51") for the requested LogTime, specified in $H-format. 1 LogTime:%String,blnDatumExact:%Boolean=1 %String =:Time ORDER BY Tijd, SubID) Quit:($L(LogID)) LogID Quit:(blnDatumExact) LogID // Else ; Look in earlier days ; ... TO DO ... ; Create a SQL-statement with Date/time calculation : (Date*100000 + Time) Quit LogID ]]> %Library.CacheStorage ^Sys.FOP.LoggingD LoggingDefaultData ^Sys.FOP.LoggingD ^Sys.FOP.LoggingI ^Sys.FOP.LoggingS %%CLASSNAME Tijd Niveau Groep Actie Detail ProgLabel