RPG Beispiele

[linguin]

Hallo,

gibt es im Netz irgendwo einfache RPG Beispiele ?

z.B. wie ich in RPG Parameter entgegennehme und dann ein SQL ausführe ?

Beispiel:

das Programm soll mit dem Parameter '10' aufgerufen werden.

Dann sollen folgende SQLs laufen

Delete from tabelle1 where firma='10'
Delete from tabelle2 where firma='10'
......

wobei 10 der o.g. übergebene Parameter ist.


Wenn ihr da ein paar Links für mich hättet wär nicht schlecht.

Im Moment mach ich das über ein CLP was 4 verschiedene QMQRYs aufruft.
Hätte das aber gerne in einem Programm und im Moment fehlt mir (noch) das RPG Know How.

Bin aber lernfähig.

Gruß

Christian

[B.Hauser]

Hallo Christian,

schau Dich doch mal in der Online Bibliothek und unter den Rebooks um:
Modernizing IBM eServer iSeries Application Data Access - A Roadmap Cornerstone
Kapitel 7
Embedded SQL Programming

Ansonsten ist Google dein Freund:
Such nach Embedded SQL in RPG
z.B. Jump-Start Embedded SQL into RPG
oder
Embedding SQL in RPGIV - Episode I
Embedding SQL in RPGIV - Episode II

zu Deinem Problem:
Parameter werden in Programmen mit embedded SQL genauso empfangen wie in normalem RPG (also über *Entry PLIST oder Procedure Interface)

Variablen, die in SQL-Statements verwendet werden sollen (Host-Variablen) werden wie gewöhnliche Variablen in den D- (oder früher auch C-)Bestimmungen definiert. Sie können aber auch als Parameter empfangen werden.

In SQL-Statements müssen solche Variablen mit einem vorangestellten Doppelpunkt gekennzeichnet werden.

C/EXEC SQL
C+ Delete From MyTable Where Firma = :MyVar
C/END-EXEC

Birgitta