RPG Programmierung

harl3kin@buhaboard.de

1.) Logik des RPG-Zyklus :

• Die Programminitialisierung erfolgt vor dem Beginn des RPG-Zyklus
• Nach der Initialisierung beginnt der RPG-Zyklus mit den Kopf- und Postenausgaben
• Satzbezugszahlen werden angesetzt, wenn der Satzinhalt in die Programmvariablen übertragen wird.
• Gruppenwechsel werden beim Lesen eines Satzes ermittelt
• Der RPG-Zyklus wird so lange wiederholt, bis kein Satz mehr abgerufen werden kann, oder der LR-Anzeiger (Letzter-Satz-Anzeiger) im Programm angesetzt wird.
• Postenberechnungen werden nach der Übertragung der Satzinhalte in die Programmvariablen durchgeführt.

2.) IF/END Logik:

IFxx – Operation:

• Der Operationscode IF wird für die Überprüfung einer Bedingung genutzt
• Der Operationscode END kennzeichnet das Ende der Gruppe von Anweisungen, die ausgeführt werden, wenn die IF-Bedingung wahr ist.
• Die einer IF-Anweisung unmittelbar folgenden Anweisungen werden nur dann ausgeführt, wenn die überprüfte Bedingung wahr ist.
• Das Programm verzweigt zu der Anweisung END, wenn die abgefragt IF-Bedingung falsch ist.
• Werden Anweisungen ausgeführt, die von einer bestimmten Bedingung abhängig sind, spricht man von einer „bedingten“ Verarbeitung.
• In der Umwandlungsliste gibt der Eintrag in der Spalte „DO NUM“ die Verschachtelungsebene von „bedingten“ Verarbeitungsschritten an.
• In dem Abschnitt „Feldreferenzen“ der Umwandlungsliste wird jede Zeilennummer aufgeführt, in der ein bestimmtes Feld angesprochen wird.

3.) Weitere IF-Operationen:

• Werden mehrere Beziehungen logisch miteinander verbunden, spricht man von einer kombinierten oder zusammengesetzten Bedingung.
• Die Operationscodes ANDxx und ORxx werden für die Festlegung weiterer Beziehungen in einer zusammengesetzten Bedingung verwendet.
• Die Vergleichoperatoren, die in Verbindung mit ANDxx und ORxx benutzt werden können, sind dieselben, die im Zusammenhang mit dem Operationscode IF benutzt werden können.
• Bei einer ANDxx-Anweisung müssen beide Bedingungen wahr sein, damit auch die kombinierte Bedingung wahr ist.
• Der Operationscode ELSE kennzeichnet die Anweisungen, die ausgeführt werden, wenn die überprüfte Bedingung nicht erfüllt ist.
• Bei Verwendung des Operationscodes ELSE werden die Anweisungen zwischen der IF- und der ELSE-Operation nur ausgeführt, wenn die abgefragte Bedingung wahr ist.

4.) DO-Schleifen:

Schleifen:

• Abweisende Schleife:                ->         DO WHILE (DOWxx)
• Nichtabweisende Schleife:         ->         DO UNTIL (DOUxx)

• In einer Do-Schleife wird eine Gruppe von Anweisungen mehrmals wiederholt.
• Vor dem Beginn einer DO-Schleife wird der Indexwert mit dem Anfangswert initialisiert.
• Zu Beginn einer Schleife wird der Indexwert mit dem Endwert verglichen.
• Der Operationscode DO wird benutzt, wenn eine Programmschleife eine bestimmte Anzahl von Malen durchlaufen werden soll.
• Eine DOWxx-Anweisung (DO WHILE) fragt eine Bedingung am Anfang einer Schleife ab.
• In einer Do-Anweisung können keine Vergleichsoperatoren angegeben werden.
• Für die Operationscodes DOWxx und DOUxx können dieselben Vergleichsoperatoren benutzt werden wie für den Operationscode IFxx.

5.) CABxx und CASxx:

·         Der Operationscode CABxx prüft eine Bedingung und verzweigt zu einem anderen Programmteil, wenn diese Bedingung wahr (erfüllt) ist.

·         Der Operationscode CASxx prüft eine Bedingung und verzweigt zu einem Unterprogramm wenn diese Bedingung wahr (erfüllt) ist.

·         Falls die von einer CABxx-Anweisung geprüfte Bedingung falsch ist, fährt das Programm mit der Ausführung der nächsten Anweisung fort.

·         Es können n Verbindung mit den Operationscodes CABxx und CASxx dieselben Vergleichsoperatoren verwendet werden, die auch in Ifxx-Anweisungen benutzt werden können.

·         Wird für die letzte Anweisung in einer CAS-Gruppe kein Vergleichsoperator angegeben, wird das angesprochene Unterprogramm unbedingt ausgeführt, wenn alle vorher abgefragten Bedingungen falsch waren.

·         Das Ergebnisfeld einer CASxx-Anweisung muss den Namen eines Unterprogramms enthalten.

6.) Benutzung extern beschriebener Dateien:

·         RPG-Programme können sich auf die Dateibeschreibung einer extern beschrieben Datei beziehen und diese benutzen.

·         Schlüssellänge und – position werden in einer F-Bestimmung nicht angegeben, wenn die externe Beschreibung dieser Datei in einem Programm benutzt werden soll.

·         Wird keine Satzbezugszahl benutzt, muss für eine extern beschriebene Datei keine Eingabebestimmung auf Satzebene definiert werden.

·         Die Felddefinitionen werden automatisch in das Programm übernommen, wenn die externe Beschreibung einer Datei benutzt wird.

·         Die Schlüsselfelder werden automatisch in das Programm übernommen, wenn eine extern beschriebene Datei in Schlüsselfolge verarbeitet wird.

·         Der Satzformatname extern beschriebenen Datei wird in den Eingabebestimmungen auf Satzebene benutzt.

7.) Schlüssellisten und zusammengesetzte Schlüssel:

·         Wird eine CHAIN-Anweisung benutzt, um Sätze aus einer extern beschriebenen Datei abzurufen, muss das Suchargument in Faktor1 dieser Anweisung dieselben Attribute aufweisen wie der entsprechende Schlüssel in der Datei.

·         Werden mehrere Felder für die Definition eines Schlüssels verwendet, spricht man auch von einem „zusammengesetzten Schlüssel.

·         Mit dem Operationscode KLIST kann man einer Liste von Schlüsselwörtern einen bestimmten Name zuordnen.

·         Der Operationscode KFLD wird benutzt, um die einzelnen Schlüsselfelder einer Schlüsselliste zu definieren.

·         Der Name einer Schlüsselliste kann als Suchargument in Faktor1 einer CHAIN-Anweisung verwendet werden.

·         Mit dem Schlüsselwort *IN können Bezugszahlen in einem Programm als Programmvariable behandelt werden.

·         Die Attribute der Felder einer Schlüsselliste müssen mit den Attributen der korrespondierenden Felder in extern beschriebenen Dateien übereinstimmen.

8.) Verarbeitung von Teilschlüsseln:

·         Wird nur der Teil eines zusammengesetzten Dateischlüssels in einer Schlüsselliste definiert, spricht man von einer „Teil-Schlüsselliste“.

·         Eine READE-Anweisung liest den nächsten Satz in einer Datei, wenn der Inhalt des Satzschlüssels mit dem in der Schlüsselliste definierten Wert übereinstimmt.

·         Wenn die Inhalte der Schlüsselfelder des nächsten Satzes nicht mit den in den in der Schlüsselliste definierten Werten übereinstimmen, wird kein weiterer Satz durch die READE-Anweisung gelesen.

·         In einer Schlüsselliste müssen die Schlüsselfelder streng fortlaufend definiert werden, wobei mit dem ersten Schlüsselfeld der Datei begonnen werden muss und kein Schlüsselfeld der Datei ausgelassen werden darf.

·         Bei einer CHAIN-Anweisung, die eine Teil-Schlüsselliste benutzt, wird der erste Satz gelesen, dessen Teil-Schlüssel mit den Werten in der Schlüsselliste übereinstimmt.

·         Stößt eine READE-Anweisung auf einen Satz, dessen Schlüsselwerte nicht mehr mit den Werten in der Schlüsselliste übereinstimmen, wird die angegebene Bezugszahl für das Dateiende angesetzt.

·         Die Attribute der in einer Teil-Schlüsselliste definierten Felder müssen mit den Attributen der entsprechenden Schlüsselfelder in der extern beschriebenen Datei übereinstimmen.

9.) Weitere Techniken der Datenverarbeitung:

·         READP liest den ersten Satz vor dem Dateizeiger

·         Mit einer WRITE-Anweisung kann man eine Datei ,die als ausgabefähige Datei definiert wurde, Sätze hinzufügen.

·         Die Operation DELET entfernt einen Satz physisch aus einer Datei.

·         Bei einer EXCPT-Ausgabe kann jeder in den Ausgabebestimmungen definierte Ausgabesatz mit einem Namen angesprochen werden.

Operationscodes:

10.) Druckerdateien/Berichtsentwurfsprogramm (RLU – Report Layout Utility):

·         Interaktives Dienstprogramm zum Entwurf von Berichten

·         Erstellt:

-          Quellenteildatei mit DDS für die Druckerdatei

-          Druckerdatei als Objekt

-          Wahlweise einen Beispielbericht

Arbeitsschritte beim Berichtsentwurf:

1.)     Definition von Text:

Einbeziehen von Konstanten und benannten Feldern als Text

2.)    Definition von Satzanfang und –ende:

RLU weist anfangs einen Standardnamen zu.

3.)    Definition von Konstanten und benannten Feldern:

RLU weist Standardnamen für Texte hinzu, die durch 2 oder mehr Leerstellen voneinander getrennt sind.

• Man kann das Format von Druckausgaben außerhalb eines Programms in einer externen Druckerdatei beschreiben
• SKIPA(3) veranlasst den Drucker, nach dem Drucken bei Zeile 3 aufzusetzen
• Mit dem Operationscode WRITE wird die Listenausgabe erzeugt, die in einer Druckerdatei beschrieben wurde.
• Die Fehlerbezugszahl an den Stellen 55-57 wird angesetzt, wenn ein Überlauf erfolgt.
• Bei EDTCDE (Edit Code) handelt es sich um ein Schlüsselwort auf Feldebene, das für die Zuordnung von bestimmten Editierungscodes zu numerischen Variablen benutzt wird.

• Das Berichtsentwurfsprogramm (RLU) ermöglicht den interaktiven Entwurf von Berichten
• RLU generiert in einer Quellendatei anhand Ihrer Definitionen die Datendefinitionsspezifikationen (DDS) für eine Druckerdatei.
• Die Breite der Druckerdatei muss vor Beginn einer RLU-Sitzung angegeben werden.
• Im Rahmen von RLU kann ein benanntes Feld in ein konstantes Feld umgesetzt werden und umgekehrt.
• Bei RLU stehen für die Durchführung bestimmter Funktionen Zeilenbefehle und Befehlstasten zur Verfügung.
• Die Zeile mit Feldinformationen wird zur Manipulation von Daten in der Anzeige „Bericht entwerfen“ genutzt.
• Beim Verlassen von RLU kann u.a. bestimmt werden, ob eine Druckerdatei oder ein Beispielbericht erstellt werden soll.

11.) Feldgruppen und Datenstrukturen:

                   Vor der MOVE-Operation:

Datenstruktur

Feldschablone

Unterfelder

                        Nach der MOVE-Operation:

·         Bei einer Feldgruppe handelt es sich um eine Reihe von Feldern, die dieselben Attribute und meist auch dieselbe Verwendung haben.

·         Die einzelnen Felder einer Feldgruppe werden Elemente genannt

·         Mit dem Operationscode XFOOT werden die einzelnen Elemente einer Feldgruppe addiert und deren Summe wird in das angegebene Ergebnisfeld übertragen.

·         Man kann eine ganze Feldgruppe mit einer einzigen Operation auf einen bestimmten Wert setzen.

·         Durch eine Datenstruktur wird ein Arbeitsbereich für ein Programm definiert.

·         Felder, die in den Eingabebestimmungen für eine Datenstruktur definiert wurden, werden auch Unterfelder genannt.

12.) Datenstrukturen mit Mehrfachvorkommen:

·         Datenstrukturen mit Mehrfachvorkommen definieren einen programminternen Arbeitsbereich der entsprechend der definierten Anzahl an Vorkommen mehrere Male vorkommt.

·         Man kann nur ein bestimmtes Vorkommen einer Datenstruktur mit Mehrfachvorkommen zu einem Zeitpunkt ansprechen.

·         Der Operationscode OCUR wird verwendet, um das Vorkommen der Datenstruktur zu identifizieren, das bearbeitet werden soll.

·         Die Anzahl der Vorkommen für eine Datenstruktur mit Mehrfachvorkommen wird in den Eingabebestimmungen für diese Datenstruktur festgelegt.

·         Eine Datenstruktur mit Mehrfachvorkommen muss einen Namen haben, der an Stelle 7 der ersten Eingabebestimmung für diese Datenstruktur beginnt.

·         Der Faktor 2 des Operationscodes OCUR muss den Namen der Datenstruktur mit Mehrfachvorkommen enthalten.

12.) Datenbereiche:

·         Datenbereiche enthalten nur ein Datenfeld

·         Ein Datenbereich, der in einer Datenbereichsdatenstruktur definiert wurde, wird bei der Initialisierung des Programms an dieses übertragen.

·         Ein Datenbereich, der in einer Datenbereichsdatenstruktur definiert wurde, wird fortgeschrieben, wenn das Anwendungsprogramm normal endet.

·         Datenbereiche können mit dem Operationscode IN abgerufen werden.

·         Der Operationscode OUT kann nur benutzt werden, wenn der angesprochene Datenbereich vorher von dem Programm „gesperrt“ wurde.

·         Eine UNLCK-Anweisung gibt einen vorher „gesperrten“ Datenbereich frei, ohne diesen fortzuschreiben.

14.) Parameter:

• Man nennt Werte, die beim Aufruf eines Programms an dieses übergeben werden, „Parameter“.
• Der Operationscode PARM definiert die Reihenfolge und die Attribute von Parametern.
• Der Operationscode PLIST fasst mehrere Parameter in einer Liste zusammen, der sogenannten Parameterliste.
• Eine bezeichnete Parameterliste enthält die Parameter, die an ein anderes Programm übergeben werden.
• Die RETRN-Operation führt zur Beendigung eines Programms, wobei die Daten geöffnet bleiben und die benutzten Programmvariablen weiterhin zur Verfügung stehen.
• Mit dem Operationscode CALL können andere Programme unmittelbar aus einem RPG-Programm heraus aufgerufen werden.

 15.) Testhilfe (DEBUG):

• Zur Benutzung der Testhilfe muss zuerst der Testhilfemodus mit dem Befehl STRDEBUG (Starten DEBUG) aufgerufen werden.
• Zum Beenden des Testhilfemodus muss der Befehl ENDDBG (BEENDEN DEBUG) ausgeführt werden.
• Bei einem Teststop können beliebige Programmvariablen angezeigt werden.
• Die Werte von Variablen können mit dem Befehl CHGPGMVAR (CHANGE PROGRAM VARIABLE) geändert werden, solange sich das Programm an einem Teststop befindet.
• Mit dem Befehl ADDBKP (ADD BREAKPOINT) können weitere Teststops hinzugefügt werden.
• Die Betätigung der Funktionstaste F3 führt in der Teststop-Anzeige zur sofortigen Beendigung der Ausführung des Programms, für das die Testhilfe aufgerufen wurde.

16.) Testhilfe (DEBUG):

• Mit der Funktion der Programmablaufverfolgung können Inhalte von bestimmten Variablen über eine Folge von Anweisungen angezeigt werden.
• Ablaufverfolgungsdaten können mit dem Befehl DSPTRCDTA (DISPLAY TRACE DATA) angezeigt werden.
• In dem Parameter TRCFULL (Bei vollem Bereich) in den Befehlen STRDBG und CHGDBG (CHANGE DEBUG) wird bestimmt, was geschehen soll, wenn die maximale Anzahl an Ablaufverfolgungsanweisungen gesichert wurde.
• Ablaufverfolgungsdaten können mit dem Befehl DSPTRCDTA (Anzeigen Ablaufverfolgungsdaten) angezeigt werden.

17.) Weitere RPG/400 Techniken:

• Benannte Konstanten werden in den Eingabebestimmungen definiert.
• Die Initialisierung einer Datenstruktur wird durch ein „I“ an Stelle 18 der Eingabebestimmungen für die betreffende Datenstruktur festgelegt.
• Über den Operationscode CLEAR können alternativ Satzformate, Datenstrukturen, Feldgruppen, Tabellen oder einzelne Variablen mit Nullen oder Leerstellen initialisiert werden.

Benannte Konstanten:

• Ein symbolischer Name, der zur Kennzeichnung von Zeichen oder numerischen Konstanten benutzt wird.
• Benannte Konstanten können in einer beliebigen Zeile der Eingabe ( „I“)- Bestimmungen definiert werden.
• Die zulässigen Werte für benannte Konstanten entsprechen den Regeln für Literale.

• Die Länge des Feldes ergibt sich aus der Anzahl der in Apostrophe eingeschlossenen Zeichen.

Initialisierung von Datenstrukturen:

·         Bei der Initialisierung des Programms werden alle Felder in der Datenstruktur mit Nullen oder Leerstellen vorbesetzt.

• Die Initialisierung einer Datenstruktur wird über ein „I“  an Stelle 18 der Datenstruktur-(DS)-Anweisung festgelegt.

• In dem obenstehenden Beispiel wird das Feld KONTNR mit Nullen und das Feld NAME mit Leerstellen initialisiert.

Initialisierung von Unterfeldern einer Datenstruktur:

• Wird benutzt um den Unterfeldern einer Datenstruktur einen Anfangswert zuzuweisen.
• Die Unterfelder werden bei der Initialisierung des Programms oder über den Operationscode RESET mit den gewünschten Werten vorbesetzt.
• Die Initialisierung des Unterfeldes einer Datenstruktur wird über ein „I“ an Stelle 8 der Eingabebestimmungen für das betreffende Feld festgelegt.

Operationscode RESET:

·         Wird zum Zurücksetzen der Inhalte von Sätzen, Datenstrukturen, Feldgruppen, Tabellen oder Variablen auf die Werte benutzt, die am Ende der Programminitialisierung aktuell waren.

·         Kann auch zum Zurücksetzen der Inhalte von Unterfeldern einer Datenstruktur auf die Werte benutzt werden, die in den Eingabebestimmungen angegeben sind.

·         Kann auch zum zurücksetzen der Werte von Variablen benutzt werden, deren Inhalte in der Subroutine *INZR geändert wurden.

·         Die Inhalte der Felder etc., die in Verbindung mit dem Operationscode RESET im Programm benutzt werden, werden nach erfolgter Programminitialisierung in einem besonderen Bereich gespeichert.

Operationscode CLEAR:

·         Wird zum Vorbesetzen von Sätzen, Datenstrukturen, Feldgruppen, Tabellen oder Variablen mit Nullen, Leerstellen oder dem Wert „0“ benutzt.

·         Der Wert ergibt sich aus der jeweiligen Datenart:

Numerische Felder        =          Nullen

Zeichenfelder                =          Leerstellen

Bezugszahlen               =          „0“

·         Wird der Operationscode CLEAR in Verbindung mit einem Satzformatnamen benutzt, werden nur die reinen Ausgabefelder mit den entsprechenden Werten vorbesetzt.

·         Wird der Operationscode in Verbindung mit einer Datenstruktur mit Mehrfachvorkommen benutzt, wird nur das aktuelle Vorkommen mit den entsprechenden Werten vorbesetzt.