Inhaltsverzeichnis SEU-Exit (PPHSEU) Zeilenbefehle T.. Beispiele | ||||||||
Durchlaufen einer Feldgruppe | ||||||||
vorige Seite | nächste Seite | |||||||
Durchlaufen einer FeldgruppeIn 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 erstellenFolgenden Befehl eingeben: STRSEU PPHTPL DO SEUTYPE(RPGLE) 2. Schritt: Variable definierenUm 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.
Schritt 3: Inhalt der Vorlage eingebenDaran 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.
Schritt 4: Test der VorlageStrseu qrpglesrc test
Schritt 5. Eingabe der VariablenHK.Err
Ergebnis
| ||||||||
vorige Seite | nächste Seite |