UNSTRING Statement

Für Syntax siehe hier.

UNSTRING T-PRUEF-64 DELIMITED BY ALL SPACE INTO
         T-KDUB-NAM-TL-ELE (1)
         T-KDUB-NAM-TL-ELE (2)
         T-KDUB-NAM-TL-ELE (3)
         T-KDUB-NAM-TL-ELE (4)
         T-KDUB-NAM-TL-ELE (5)
         T-KDUB-NAM-TL-ELE (6)
END-UNSTRING

var parts = TPruef64.Split(new [] {" "}, StringSplitOptions.RemoveEmptyEntries);
if (parts.Length > 0) TKdubNamTlEle[0] = parts[0];
if (parts.Length > 1) TKdubNamTlEle[1] = parts[1];
if (parts.Length > 2) TKdubNamTlEle[2] = parts[2];
if (parts.Length > 3) TKdubNamTlEle[3] = parts[3];
if (parts.Length > 4) TKdubNamTlEle[4] = parts[4];
if (parts.Length > 5) TKdubNamTlEle[5] = parts[5];

Mit Pointer und Count ¹⁾

           MOVE 1 TO L-UNSTRING-POINTER
           PERFORM VARYING L-PO-IXI FROM 1 BY 1
                UNTIL L-PO-IXI > 32
                INITIALIZE L-TRUST-ZELLE-INHALT(L-PO-IXI)
                  UNSTRING TRUST-FFB-DATEN DELIMITED BY ';'
                      INTO L-TRUST-ZELLE-INHALT(L-PO-IXI)
                      COUNT IN L-TRUST-ZELLE-LAENGE(L-PO-IXI)
                      WITH POINTER L-UNSTRING-POINTER
                  END-UNSTRING
           END-PERFORM

LUnstringPointer = 1;
for (LPoIxi = 1; LPoIxi <= 32; LPoIxi++) {
	LTrustZelleInhalt[(int) (LPoIxi - 1)] = String.Empty;
	{
		var parts = TrustFfbDaten.ToString().Split(new [] {";"}, StringSplitOptions.None);
		if (parts.Length > 0) {
			LTrustZelleInhalt[(int) (LPoIxi - 1)] = parts[0];
			LTrustZelleLaenge[(int) (LPoIxi - 1)] = parts[0].Length;
			LUnstringPointer  = parts[0].Length;
		}
	}
}

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

• (NOT) ON OVERFLOW