; App. Array hoofdnodes #Define aaApp 1 #Define aaError 2 #Define aaIndex 3 ; Application Index (hoort bij $$$aaIndex) #Define aiViaJob 1 #Define aiViaClassName 2 #Define aiViaExtra 3 ; Application MasterFields (hoofdniveau $$$aaApp) #Define amfApplicationType 1 #Define amfStartUpTime 2 ;Application ExtraFields #Define aexfInsertTime 1 #Define aexfExtraStr 2 ;Application ClassNameFields #Define acnfCreationTime 1 ;Application ErrorFields #Define aerfDetectTime 1 #Define aerfJob 2 #Define aerfJobStatus 3 ;Application Close Specs #Define acsfMailTo 1 #Define acsfMailMsg 2 ;Application Types #Define atMakova 1 ;Detail-nodes #Define dnExtra 1 #Define dnClassName 2 #Define dnError 3 #Define dnCloseSpecs 4 ; Opbouw ^Apps array ; === DATA === ; ^Apps($$$aaApp,IP,Job)=$LB($$$amfApplicationType,$$$amfStartUpTime,) ; ^Apps($$$aaApp,IP,Job,$$$dnCloseSpecs)=$LB($$$acsfMailTo,$$$acsfMailMsg) ; ^Apps($$$aaApp,IP,Job,$$$dnExtra)=Counter ; ^Apps($$$aaApp,IP,Job,$$$dnExtra,VolgNr)=$LB($$$aexfInsertTime,$$$aexfExtraStr) ; ^Apps($$$aaApp,IP,Job,$$$dnClassName,ClassName)=$LB($$$acnfCreationTime) ; === ERROR === ; ^Apps($$$aaError,IP)=Counter ; ^Apps($$$aaError,IP,VolgNr) => merge van ^Apps($$$aaApp,IP,Job) ; + ^Apps($$$aaError,IP,VolgNr,$$$dnError)=$LB($$$aerfDetectTime,$$$aerfJob,$$$aerfJobStatus) ->DetectTime=$H ; === INDEX === ; ^Apps($$$aaIndex,$$$aiViaJob,Job)=IP ; ^Apps($$$aaIndex,$$$aiViaClassName,ClassName,IP,Job)=Counter (# maal deze form aangemaakt) ; ^Apps($$$aaIndex,$$$aiViaExtra,Extra,IP,Job)=Counter (# maal deze extrastr toegevoegd aan zelfde log) ;------------------------------------------------------------------------------- ;Job Status ($ZU(67,0,$J)) #Define jsDead 0 #Define jsDeadAndInPID 1 #Define jsActive 2