Inhaltsverzeichnis

EVALUATE Statement

Für Syntax siehe hier.

Beispiele

Einfacher EVALUATE: 

  1.                    EVALUATE SNLPPME-T80-VEIN-KNOT-K
  2.       *
  3.                    WHEN K-VEIN-KNOT-RIS
  4.                        PERFORM M03-0-VTL-UEBER-RIS-FINDEN
  5.                        PERFORM M54-SNAPME-RIS-SUCHEN
  6.       *
  7.                    WHEN K-VEIN-KNOT-VEV
  8.                        PERFORM M03-0-VTL-UEBER-VEV-FINDEN
  9.                        PERFORM M55-SNAPME-VEV-SUCHEN
  10.       *
  11.                    WHEN OTHER
  12.                        CONTINUE
  13.       *
  14.                    END-EVALUATE
if (Snlppme.T80VeinKnotK == PraeKonstanten.KVeinKnotRis) {
   M030VtlUeberRisFinden();
   M54SnapmeRisSuchen();
}
else if (Snlppme.T80VeinKnotK == PraeKonstanten.KVeinKnotVev) {
   M030VtlUeberVevFinden();
   M55SnapmeVevSuchen();
}
else {
}

Mehrere WHEN-Zweige für eine Aktion: 

  1.                EVALUATE ZW-PRAETYP-BER
  2.       *
  3.                    WHEN K-INDMPNLAS-NR
  4.                    WHEN K-INDDAUNLAS-NR
  5.                    WHEN K-INDZSCH-NR
  6.                    WHEN K-INDNLAS-NR
  7.                    WHEN K-TBNDNLAS-NR
  8.                    WHEN K-INDBNDNLRZ-NR
  9.                        SET B-BETROFFEN-JA      TO TRUE
  10.       *
  11.                    WHEN OTHER
  12.                        SET B-BETROFFEN-NEIN    TO TRUE
  13.                END-EVALUATE
if (ZwPraetypBer == SnstrPraeNrSkzTab.KIndmpnlasNr || ZwPraetypBer == SnstrPraeNrSkzTab.KInddaunlasNr || ZwPraetypBer == SnstrPraeNrSkzTab.KIndzschNr || ZwPraetypBer == SnstrPraeNrSkzTab.KIndnlasNr || ZwPraetypBer == SnstrPraeNrSkzTab.KTbndnlasNr || ZwPraetypBer == SnstrPraeNrSkzTab.KIndbndnlrzNr) {
   SwBetroffen.IsBBetroffenJa = true;
}
else {
   SwBetroffen.IsBBetroffenNein = true;
}

Komplexer Matrix-EVALUATE (konkreter Code verkürzt um EVALUATE hervorzuheben): 

  1.                EVALUATE ZW-PRE-NR      ALSO ZW-TO-KNOT-TYP
  2.       *        19.07.13 Ticket 31485 ah:
  3.                WHEN K-WERTUNG-NR       ALSO ANY
  4.                    CONTINUE
  5.       *
  6.       *        Wenn individueller Mehrpersonennachlass
  7.                WHEN K-INDMPNLAS-NR     ALSO ANY
  8.       *            Vertrag merken
  9.                    PERFORM SNIP_SNIP
  10.       *
  11.       *        Wenn individueller Dauernachlass, dann bei allen gleich
  12.                WHEN K-INDDAUNLAS-NR    ALSO ANY
  13.                    PERFORM SNIP_SNIP
  14.       *
  15.       *        Gesamtjahresnettoprämie bei Gruppen-Unfall
  16.       *        ==========================================
  17.                WHEN K-JNETGEPRAE-NR    ALSO K-KNOT-TYP-VEL
  18.                    PERFORM SNIP_SNIP
  19.       *
  20.       *        Manuelle Vorgabe Netto-/Bruttoprämie
  21.       *        gem. ZW auf Vertrags-, oder Bündelebene
  22.       *        =======================================
  23.                WHEN K-NETPRAEZW-NR     ALSO K-KNOT-TYP-VEV
  24.                WHEN K-NETPRAEZW-NR     ALSO K-KNOT-TYP-BND
  25.                WHEN K-BRUPRAEZW-NR     ALSO K-KNOT-TYP-VEV
  26.                WHEN K-BRUPRAEZW-NR     ALSO K-KNOT-TYP-BND
  27.                    PERFORM SNIP_SNIP
  28.       *
  29.       *        Korrektur aufgrund manueller Vorgabe der Endprämie
  30.       *        ==================================================
  31.                WHEN K-KORMANVOR-NR     ALSO K-KNOT-TYP-RIS
  32.                    PERFORM SNIP_SNIP
  33.       *
  34.       *        Manuelle Vorgabe auf Vertragselementebene
  35.       *        =========================================
  36.                WHEN K-JNETPRAE-NR      ALSO K-KNOT-TYP-VEL
  37.                    PERFORM M1-2-43-MANVOR-VEL-EINGEGEBEN
  38.       *
  39.       *        Korrektur aufgrund manueller Vorgabe auf VEL-Ebene
  40.       *        ==================================================
  41.                WHEN K-KORMANVEL-NR     ALSO K-KNOT-TYP-RIS
  42.                    PERFORM SNIP_SNIP
  43.                WHEN OTHER
  44.                    CONTINUE
  45.                END-EVALUATE
// 19.07.13 Ticket 31485 ah:
if (ZwPreNr == SnstrPraeNrSkzRs.KWertungNr) {
}
// Wenn individueller Mehrpersonennachlass
else if (ZwPreNr == SnstrPraeNrSkzTab.KIndmpnlasNr) {
   // Vertrag merken
   SnipSnip();
}
// Wenn individueller Dauernachlass, dann bei allen gleich
else if (ZwPreNr == SnstrPraeNrSkzTab.KInddaunlasNr) {
   SnipSnip();
}
// Gesamtjahresnettoprämie bei Gruppen-Unfall
// ==========================================
else if (ZwPreNr == SnstrPraeNrSkzTab.KJnetgepraeNr && ZwToKnotTyp == KKnotTypVel) {
   SnipSnip();
}
// Manuelle Vorgabe Netto-/Bruttoprämie
// gem. ZW auf Vertrags-, oder Bündelebene
// =======================================
else if (ZwPreNr == SnstrPraeNrSkzTab.KNetpraezwNr && ZwToKnotTyp == KKnotTypVev || ZwPreNr == SnstrPraeNrSkzTab.KNetpraezwNr && ZwToKnotTyp == KKnotTypBnd || ZwPreNr == SnstrPraeNrSkzTab.KBrupraezwNr && ZwToKnotTyp == KKnotTypVev || ZwPreNr == SnstrPraeNrSkzTab.KBrupraezwNr && ZwToKnotTyp == KKnotTypBnd) {
   SnipSnip();
}
// Korrektur aufgrund manueller Vorgabe der Endprämie
// ==================================================
else if (ZwPreNr == SnstrPraeNrSkzTab.KKormanvorNr && ZwToKnotTyp == KKnotTypRis) {
   SnipSnip();
}
// Manuelle Vorgabe auf Vertragselementebene
// =========================================
else if (ZwPreNr == SnstrPraeNrSkzTab.KJnetpraeNr && ZwToKnotTyp == KKnotTypVel) {
   M1243ManvorVelEingegeben();
}
// Korrektur aufgrund manueller Vorgabe auf VEL-Ebene
// ==================================================
else if (ZwPreNr == SnstrPraeNrSkzTab.KKormanvelNr && ZwToKnotTyp == KKnotTypRis) {
   SnipSnip();
}
else {
}

Sonderfälle

Operation-Switch

Falls erkannt wird, dass die EVALUATE Anweisung eine direkte Auswahl der ausgelösten TAA-Operation darstellt, wird eine dementsprechende switch-Anweisung erzeugt. 

  1.       *------------------------------------------OPERATION ANSTEUERN
  2.            EVALUATE TRUE
  3.       *
  4.            WHEN TC-EVENT-BERECHNEN
  5.                PERFORM E01-BERECHNEN
  6.       *
  7.            WHEN TC-EVENT-DO-SPEZIAL
  8.                PERFORM E02-DO-SPEZIAL
  9.       *
  10.            WHEN TC-EVENT-OFFENEPOSTEN
  11.                PERFORM SNLPPME-GETINFO
  12.                IF (ITEMS-SNLPPME > ZERO) THEN
  13.                    PERFORM E03-OFFENEPOSTEN
  14.                ELSE
  15.                    SET TC-STATE-OK OF ME    TO TRUE
  16.                END-IF
  17.       *
  18.            WHEN OTHER
  19.       *---------------------------------------------FALSCHE OPERATION
  20.                SET TC-STATE-FEHLER OF ME    TO TRUE
  21.                EXEC TAA
  22.                    SET AND RAISE SEVERE
  23.                    GROUP STOSTR
  24.                    CODE 03
  25.                    ARGUMENTS = (TC-MODULE-NAME, TC-EVENT)
  26.       *
  27.                        OBER            = 1
  28.                        TYP             = '01'
  29.                        SACH-ID         = ZEROS
  30.                        PRIM-ETI-ID     = ZEROS
  31.                        PRIM-ETI-KURZ   = ZEROS
  32.                        SEKD-ETI-ID     = ZEROS
  33.                        SEKD-ETI-KURZ   = ZEROS
  34.                        VMKSCHREIBEN    = 04
  35.                END-EXEC
  36.            END-EVALUATE
// ------------------------------------------OPERATION ANSTEUERN
switch (this.Operation.Active) {
case OperationEnum.Berechnen:
   E01Berechnen();
   break;
case OperationEnum.DoSpezial:
   E02DoSpezial();
   break;
case OperationEnum.Offeneposten:
   SnlppmeGetinfo();
   if (ItemsSnlppme > 0) {
      E03Offeneposten();
   }
   else {
     this.State.Active = StateEnum.Ok;
   }
   break;
default:
   // ---------------------------------------------FALSCHE OPERATION
   this.State.Active = StateEnum.Fehler;
   {
      var cnd = this.Condition.New<Mldg_Aarch.Stostr.Message3>(SeverityEnum.Severe, this.Name, this.OperationName(this.Operation.Active));
      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;
      cnd.Raise();
   }
   break;
}

Zustands-Switch

Wenn erkannt wird, dass die EVALUATE-Anweisung eine Auswahl über den Rückkehrwert eines gerufenen TAA-Bausteins darstellt, wird eine dementsprechende switch-Anweisung generiert: 

  1.            EVALUATE TRUE
  2.       *
  3.                WHEN TC-STATE-OK                OF Z0AAX50
  4.       *
  5.                    CONTINUE
  6.       *
  7.                WHEN TC-STATE-NICHT-OK          OF Z0AAX50
  8.                WHEN TC-STATE-NICHT-GEFUND      OF Z0AAX50
  9.                WHEN TC-STATE-DUPKEY            OF Z0AAX50
  10.                WHEN TC-STATE-FEHLERLISTE       OF Z0AAX50
  11.                WHEN TC-STATE-ABBRUCH           OF Z0AAX50
  12.       *
  13.                    SET TC-STATE-NICHT-OK OF ME TO TRUE
  14.                    EXEC TAA
  15.                        SET AND RAISE ERROR
  16.                        GROUP SNPRAEMIE
  17.       *                PRAEMIENTYP-SCHLUESSELTABELLE KANN NICHT AUSGE-
  18.       *                LESEN WERDEN -> PRAEMIE KANN NICHT BERECHNET
  19.       *                WERDEN!
  20.                        CODE 92
  21.                    END-EXEC
  22.       *
  23.                WHEN OTHER
  24.       *
  25.                    SET TC-STATE-FEHLER OF ME TO TRUE
  26.                    EXEC TAA
  27.                        SET AND RAISE SEVERE
  28.                        GROUP STOSTR
  29.                        CODE 06
  30.                        ARGUMENTS = ("Z0AAX50", TC-EVENT)
  31.                    END-EXEC
  32.       *
  33.            END-EVALUATE
switch (LastCall.Z0aax50State) {
case Base.Ezug.Aarch.Z0aax50.StateEnum.Ok:
   break;
case Base.Ezug.Aarch.Z0aax50.StateEnum.NichtOk:
case Base.Ezug.Aarch.Z0aax50.StateEnum.NichtGefund:
case Base.Ezug.Aarch.Z0aax50.StateEnum.Dupkey:
case Base.Ezug.Aarch.Z0aax50.StateEnum.Fehlerliste:
case Base.Ezug.Aarch.Z0aax50.StateEnum.Abbruch:
   this.State.Active = StateEnum.NichtOk;
   this.Condition.New<Mldg_Privat.Snpraemie.Message92>(SeverityEnum.Error).Raise();
   break;
default:
   this.State.Active = StateEnum.Fehler;
   this.Condition.New<Mldg_Aarch.Stostr.Message6>(SeverityEnum.Severe, "Z0AAX50", this.OperationName(this.Operation.Active)).Raise();
   break;
}

TODO Liste