GO TO Statement

Für Syntax siehe hier.

Das GO TO Statement als solches wird (noch) nicht unterstützt. Es wird nur ein bestimmter Sonderfall erkannt.

Wenn bei der Analyse festgestellt wird, dass das Ziel einer unconditional GO TO Anweisung lediglich ein EXIT Statement enthält, wird hierfür ein C#-return Anweisung erzeugt.

      ******************************************************************
      *LESEN KEY GEVODATEN
      ******************************************************************
       Z04K-LESENK-GVF                 SECTION.
       Z04K-10.
           EXEC TAA GETINFO FOR LGEVO ITEMS INTO TAB-ANZ END-EXEC
           IF TAB-ANZ = ZERO
              SET TC-STATE-NICHT-OK OF ME TO TRUE
              GO TO Z04K-99
           END-IF
           EXEC TAA GET FIRST LGEVO END-EXEC
           MOVE 1 TO ZGR-NR
           SET ERST TO TRUE
           PERFORM Z04-LESEN-GVF
           CONTINUE.
       Z04K-99.
           EXIT.
      *

		// *****************************************************************
		// LESEN KEY GEVODATEN
		// *****************************************************************
		// Z 0 4 k L e s e n k G v f
		// -------------------------
		// ORIG: Z04K-LESENK-GVF SECTION.
		private void Z04kLesenkGvf()
		{
		// ORIG: Z04K-10.
			// ORIG: EXEC TAA GETINFO FOR LGEVO ITEMS INTO TAB-ANZ END-EXEC
			TabAnz = this.DataLgevo?.Count ?? 0;
			// ORIG: IF TAB-ANZ = ZERO
			// ORIG: THEN
			if (TabAnz == 0) {
				this.State.Active = StateEnum.NichtOk;
				// ORIG: GO TO Z04K-99
				return;
			}
			// ORIG: END-IF
			// ORIG: EXEC TAA GET FIRST LGEVO END-EXEC
			this.DataLgevo.FirstOrDefault()?.CopyLocal(Lgevo);
			// ORIG: MOVE 1 TO ZGR-NR
			ZgrNr = 1;
			// ORIG: SET ERST TO TRUE
			SwNachlesen = NachlesenEnum.Erst;
			// ORIG: PERFORM Z04-LESEN-GVF
			Z04LesenGvf();
			// ORIG: CONTINUE
		// ORIG: Z04K-99.
			// ORIG: EXIT
		}

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

• alle (noch werden für das GO TO Statement nur TODO-Kommentare generiert)