Inhaltsverzeichnis

EXEC TAA SET Statement

Für Syntax siehe hier.

Beispiele

Set ohne Arguments:

  1. EXEC TAA
  2. SET WARNING
  3. GROUP SNPRAEMIE
  4. CODE 0
  5. END-EXEC
this.Condition.New<Mldg_Privat.Snpraemie.Message0>(SeverityEnum.Warning);

Raise mit Argumenten:

  1. EXEC TAA
  2. SET SEVERE
  3. GROUP STOSTR
  4. CODE 04
  5. ARGUMENTS = (TXT-CODE,TXT-SRC-NAME,TXT-MSG)
  6. END-EXEC
this.Condition.New<Mldg_Aarch.Stostr.Message4>(SeverityEnum.Severe, TxtCode, TxtSrcName, TxtMsg);

Set mit beiden Versionen

  1. EXEC TAA
  2. SET ERROR
  3. GROUP SNALLGEMEIN
  4. CODE 58
  5. ARGUMENTS = ( TC-MODULE-NAME
  6. , TC-EVENT
  7. , L-OM-CND-ARG-1)
  8. OBER = 1
  9. TYP = '01'
  10. SACH-ID = ZEROS
  11. PRIM-ETI-ID = ZEROS
  12. PRIM-ETI-KURZ = ZEROS
  13. SEKD-ETI-ID = ZEROS
  14. SEKD-ETI-KURZ = ZEROS
  15. VMKSCHREIBEN = 04
  16. 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;

Beschreibung

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.

TODO Liste

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