EXEC TAA SET Statement

Für Syntax siehe hier.

Set ohne Arguments:

EXEC TAA
     SET WARNING
     GROUP SNPRAEMIE
     CODE 0
END-EXEC

this.Condition.New<Mldg_Privat.Snpraemie.Message0>(SeverityEnum.Warning);

Raise mit Argumenten:

EXEC TAA
     SET SEVERE
     GROUP STOSTR
     CODE 04
     ARGUMENTS = (TXT-CODE,TXT-SRC-NAME,TXT-MSG)
END-EXEC

this.Condition.New<Mldg_Aarch.Stostr.Message4>(SeverityEnum.Severe, TxtCode, TxtSrcName, TxtMsg);

Set mit beiden Versionen

EXEC TAA
     SET ERROR
         GROUP SNALLGEMEIN
         CODE 58
         ARGUMENTS = (  TC-MODULE-NAME
                      , TC-EVENT
                      , L-OM-CND-ARG-1)
                   OBER            = 1
                   TYP             = '01'
                   SACH-ID         = ZEROS
                   PRIM-ETI-ID     = ZEROS
                   PRIM-ETI-KURZ   = ZEROS
                   SEKD-ETI-ID     = ZEROS
                   SEKD-ETI-KURZ   = ZEROS
                   VMKSCHREIBEN    = 04
END-EXEC

var cnd = this.Condition.New<Mldg_Privat.Snallgemein.Message58>(SeverityEnum.Error, this.Name,    
                           this.OperationName(this.Operation.Active), LOmCndArg1);
				cnd.Associations["OBER"] = 1;
				cnd.Associations["TYP"] = "01";
				cnd.Associations["SACH-ID"] = 0;
				cnd.Associations["PRIM-ETI-ID"] = 0;
				cnd.Associations["PRIM-ETI-KURZ"] = 0;
				cnd.Associations["SEKD-ETI-ID"] = 0;
				cnd.Associations["SEKD-ETI-KURZ"] = 0;
				cnd.Associations["VMKSCHREIBEN"] = 4;

Für die Migration von Cobol wird das Member CurrentCondition generiert, welches wie im Wiki beschrieben auf die aktuelle oder die zuletzt gesetzte Condition verweist.
Sollte kein ConditonHandler installiert sein (siehe Wiki, wird der Standard Conditon-Handler verwendet.

Syntaktisch erkannt, aber von den Generatoren derzeit nicht unterstützt sind folgende Bestandteile: