Lattwein GmbH

Beispiele der Lattwein-Produkte ...
CPG ... Communication Program Generator

Das folgende Beispiel zeigt, wie einfach man mit CPG eine VSAM-KSDS-Datei online im CICS an einem 3270- Bildschirm anzeigen kann.
Beispiel_1

Programmbeschreibung:

1: In der Options-Anweisung werden die programmspezifischen Optionen festgelegt. In diesem Beispiel wird der Programmname mit TTT000 festgesetzt. Die Option MAIN sagt aus, dass dieses Programm über die CICS PPT oder CICS PCT definiert wird.
2: Im Statement 2 wird die VSAM-Datei KUNDEN definiert. Alle weiteren Merkmale der Datei werden dem Data Dictionary entnommen.
3+4: Alle Variablen und Feldgruppen werden in der Data Division deklariert.
5+6; In der Input Division werden die Dateistrukturen festgelegt. In diesem Beispiel sind diese Informationen im Data Dictionary hinterlegt. Es werden nur die Variablen definiert, die im Programm oder in der Bildschirmmaske benutzt werden.
7-17: Hier befinden sich alle Programmbefehle (Procedure Division).
8: Der Befehl TWA-LOAD holt alle Variablen aus Temporary Storage, wenn vorher die Daten dort von diesem Programm abgestellt wurden.
9: Nur wenn die Programmfunktionstaste 'CL' nicht betätigt wurde, werden die Befehle 10 bis 14 durchlaufen.
10: Wenn am Bildschirm eine Eingabe vorgenommen wurde, werden die modifizierten Variablen eingelesen und in die Programmvariablen übertragen.
11: Beginnend mit dem Wert, der in der Variablen KDNRA steht, wird die Datei KUNDEN gelesen. Bei jedem gelesenen Satz werden die Datenfelder KDNRA, FIRMA, BRANCH, SYSTEM, DATUM auf das in der Output Division beschriebene Feldgruppenelement PAGE gesetzt. Dies wiederholt sich so oft, wie Elemente für die Feldgruppe PAGE definiert wurden.
12: Die Map: TTT000 wir auf dem Bildschirm ausgegeben. Diese Map wurde mit QSF erstellt.
13: Alle Variablen des Programms werden auf Temporary Storage unter dem Namen Terminal-id + 'TT00' gespeichert. Also auch der Inhalt des Feldes KDNRA. Somit kann beim nächsten Programmaufruf mit dieser Kundennummer weitergelesen werden.
14: Das Programm transaktionsorientiert verlassen, und als nächste Transaktion wird 'TT00' aufgerufen. Für Experten bedeutet dies: Es wird ein EXEC CICS RETURN TRANSID('TT00') durchgeführt.
15-17: Wurde die Löschtaste gedrückt, so wird die QSF-Maske ENDE aufgerufen und das Programm wird normal beendet.
18-23: Output Division. Hier wird die Ausgabe von Variablen in Dateien oder andere Variable beschrieben. In diesem Beispiel werden die Felder KDNRA, FIRMA, BRANCH, SYSTEM, DATUM in das jeweilige Element der Feldgruppe PAGE gesetzt. Die Zahl hinter den Feldnamen gibt jeweils die letzte Position im Ausgabebereich an. Wenn das Feld KDNRA auf der Position 5 ausgegeben wurde, so befindet sich das Feld KDNRA auf den Stellen 1-5 des jeweiligen Feldgruppenelementes der Feldgruppe PAGE.

Maske: TTT000
Beispiel_2