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
(http://www.redbooks.ibm.com/abstracts/sg246393.html?Open) Kapitel 7
Embedded SQL Programming (http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzajp/rzajp.pdf)

Ansonsten ist Google dein Freund:
Such nach Embedded SQL in RPG
z.B. Jump-Start Embedded SQL into RPG (http://www.metromidrange.org/Jump-Start%20Embedded%20SQL%20into%20RPG.ppt)
oder
Embedding SQL in RPGIV - Episode I (http://www.itjungle.com/fhg/fhg081005-story01.html)
Embedding SQL in RPGIV - Episode II (http://www.itjungle.com/fhg/fhg082405-story01.html)

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