Beispiel Block-Funktion XSER

Block-Funktion XSER

/XSER_BLOCK
«
{
    // Ermittelt, ob ein bestimmtes XSER-Objekt existiert.
    if(XSER.IsDefined('GetData') = TRUE)
    {
       // XSer-Objekt zurücksetzen. Insbesondere adressierter Service und 
       // Argumente werden zurückgesetzt. Objekt selber existiert jedoch weiterhin.
       XSER.Clear('GetData')
    }
    // XSer-Objekt für einen bestimmten Service-Aufruf erzeugen (falls nötig).
    // Allfällig vormals vorhandene Argumente bleiben erhalten.
    XSER.SetService('GetData', 'Biz.GetBo')
    // Service-Argumente hinzufügen
    XSER.AddArg('GetData','Addr')
    XSER.AddArg('GetData','1000')
    // Service-Argumente hinzufügen (mehrere).
    XSER.AddArgs('GetData','ne','1','3','0','')
    XSER.AddArg('GetData','Addr.Number,')
    // Wert zum letzten Service-Argument hinzufügen. Fehler, wenn noch kein Argument vorhanden ist.
    XSER.AppendArg('GetData','Addr.LastName,')
    // Service ausführen, Resultat in XRes speichern und 'Erfolgreich'-Info als Rückgabewert.
    XSER.Execute('GetData', 'resGetData')
    // Service ausführen, Resultat in 'XFAS-Direct-Response' zurückgeben, Header-Infos auch via 
    // XRes mit Namen 'XFAS' verfügbar und 'Erfolgreich'-Info als Rückgabewert liefern.
    XSER.ExecuteToXFasDirectResponse('GetData')
}
»
/