Inhaltsverzeichnis SEU-Exit (PPHSEU)   Zeilenbefehle T..   Beispiele  

Durchlaufen einer Feldgruppe

Durchlaufen einer Feldgruppe

In diesem Beispiel wollen wir eine Vorlage erstellen, die eine DO-Schleife für alle Elemente einer Feldgruppe durchläuft.

Der Inhalt der DO-Schleife soll später zugefügt werden

1. Schritt: Vorlagen-Teildatei erstellen

Folgenden Befehl eingeben: STRSEU PPHTPL DO SEUTYPE(RPGLE)

2. Schritt: Variable definieren

Um eine Feldgruppe zu durchlaufen benötigen wir den Namen der Feldgruppe und eine Indexvariable. Wir definieren daher zwei Platzhalter &a und &i am Anfang der Vorlage. Damit wir keine Sysntaxfehler erhalten schreiben wir diese Anweisungen als Kommentare mit einem * in Spalte 7. Dann fügen wir eine Zeile mit /TPL ein womit die eigentliche Vorlage beginnt.
SEU==>                                                                      DO
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+.
***************** Datenanfang *****************************************
0001.00
0002.00 * &A=Feldgruppe,8
0003.00 * &I=Index,8,iX
0004.00 */TPL

Schritt 3: Inhalt der Vorlage eingeben

Daran schließen wir eigentliche Vorlage an. Den Feldgruppenindex zählen wir hier selbst. Hinter den Platzhaltern fügen wir das Zeichen < an. Dieses < hinter dem Platzhalter ist kein Operator sondern bewirkt, dass alles nach der Variablen entsprechend der Länge verschoben wird.
SEU==>                                                                      DO
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+.
***************** Datenanfang *****************************************
0001.00
0002.00 * &A=Feldgruppe,8
0003.00 * &I=Index,8,iX
0004.00 */TPL
0005.00 C EVAL &i< = 0
0006.00 C DOW &i< < %ELEM(&a<)
0007.00 C EVAL &i< = &i< + 1
0008.00 C IF &a<(&i) <> *BLANKS
0009.00 * Hier Verarbeitung des Feldgruppenelements
0010.00 C ENDIF
0011.00 C ENDDO

Schritt 4: Test der Vorlage

Strseu qrpglesrc test
SEU==>                                                                    TEST
FMT H HSchlüsselwörter+++++++++++++++++++++++++++++++++++++++++++++++++++++++
***************** Datenanfang *****************************************
TDO

Schritt 5. Eingabe der Variablen

HK.Err
BSRPMT 12.07.06              DO - Schleife mit Zähler                          

Auswahl eingeben und Eingabetaste drücken.

Feldgruppe . . . . . . . . . . . Arr
Index . . . . . . . . . . . . . . IX

F3=Verlassen F4=Bedienerführung F12=Abbrechen

Ergebnis
SEU==>                                                                    TEST
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+.
***************** Datenanfang *****************************************
0001.00
0002.00 C EVAL iX = 0
0003.00 C DOW iX < %ELEM(ArrTest)
0004.00 C EVAL iX = iX + 1
0005.00 C IF ArrTest(iX) <> *BLANKS
0006.00 * Hier Verarbeitung des Feldgruppenelements
0007.00 C ENDIF
0008.00 C ENDDO