XCNT
(Ausgeben des Kontext)
Hier noch ein Beispiel wie mit dem
aktiven Kontext gearbeitet werden kann. Voraussetzung: Es ist auch ein
entsprechendes BO aktiv. In dem hier vorgestellten Beispiel läuft das
Script als Auswertung auf dem BO Addr.
...
...
# Hier wird abgefragt, ob der Zugriff auf den BUS möglich ist.
# Wird 1 zurückgegeben, ist das der Fall.
«SYS(MSG INFO BUS Active: «XCNT(busActive)\A»)»
...
...
# Hier wird der Bo-Typ des aktiven Kontext abgefragt.
# Die Rückgabe ist ein String mit dem BO-Typ bzw. dem BO des aktiven Kontext.
«SYS(MSG INFO Kontext BO-Typ: «XCNT(boTypes)\A»)»
...
...
# Nun wird das aktive BO ausgegeben. Dies erfolgt durch Angabe des BO-Typ.
# fix
«SYS(MSG INFO Kontext BO himself: «XCNT(Addr)\A»)»
# oder dynamisch
«SYS(MSG INFO Kontext BO himself: «XCNT(«XCNT(boTypes)\A»)\A»)»
...
...
# Eigene Variable mit dem aktiven BO abfüllen und ausgeben.
# fix
«X(AktiveAdresse=«XCNT(Addr)\A»)»
«SYS(MSG INFO Aktive Adresse - BO-Typ fix: «X(AktiveAdresse)»)»
# oder dynamisch
«X(AktiveAdresse=«XCNT(«XCNT(boTypes)\A»)\A»)»
«SYS(MSG INFO Aktive Adresse - BO-Typ dynamisch: «X(AktiveAdresse)»)»
...
...
...
/