INSPECT Statement

Für Syntax siehe hier.

Tallying mit Before:

INSPECT Z0AAX50-X50-PRAE-TYP-LBZ TALLYING L-BUF-ANZ
   FOR CHARACTERS BEFORE INITIAL K-LBZ-EBEI-JAHRES

LBufAnz += Z0aax50.X50PraeTypLbz.Upto(KLbzEbeiJahres).Length;

Replacing:

INSPECT L-BT-NK-9 REPLACING ALL ' ' BY '0'

LBtVk9.Replace(" ", "0");

Converting:

INSPECT L-VSN CONVERTING ' ' TO '0'

LVsn = LVsn.Replace(" ", "0");

Tallying mit Literal:

INSPECT SNLPPME-PME-PRAE-LBZ TALLYING H-ANZAHL FOR ALL '2'

HAnzahl += Snlppme.PmePraeLbz.Count(c => c == '2');

Tallying mit Leading:

INSPECT L-BT-1-STR TALLYING L-LEN FOR LEADING SPACE

LLen += LBt1Str.TakeWhile(c => c == ' ').Count()

Replacing mit Literal:

INSPECT DS-RESULTS-TEXT-1 REPLACING
                          ALL X"25" BY X"40"
                          ALL X"0D" BY X"40"

DsResultsText1 = DsResultsText1.ToString().Select(r => r == '%' ||  r == '\r' ? '@' : r).ToString();

Die Replacings werden wen möglich als Lamda Expression erzeugt da sie schneller sind als eine Kette aus Replaces.

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

• REPLACING mit Mehrfachangaben
• CONVERTING mit BEFORE AFTER
• TALLYING and REPLACING