SQL Function aus RPGLE aufrufen...

[Bratmaxxe]

Hallo liebe RPG Gemeinde,

ist es möglich aus einem RPG Programm heraus eine SQL Function aufzurufen ?

Habe mal etwas rumprobiert:




D PgmCALL PR ExtPGM(FU074)
D Parm1 3 INZ(*blanks)
D Parm2 4 0 INZ(*zeros)
D Parm3 1 inz(*blank)
D Parm4 21 Inz(*blanks)
*
*
D string S 21 inz(*blanks)
*
*
C CALLP pgmCALL('100':1234:'1':string)

C if string > *blanks
* //
C ENDIF
*
C eval *inlr = *on




FU074 ist die erstellte Function (Modul), ein Serviceprogramm mit dem Namen FU074 gibt es auch...

Function wurde wie folgt erstellt:




CREATE FUNCTION PGM/FU074
( MANDANT CHAR(3),
KST DEC(4, 0),
ART CHAR(1)
) RETURNS CHAR(21)
LANGUAGE RPGLE
EXTERNAL NAME 'PGM/FU074(SQL_FUNC)'
NO SQL
NO EXTERNAL ACTION



Der Compiler teilt mir 7030 er Fehler mit, FU074 ist nicht definiert und Parameter kann nicht nach Referenz übergeben werden, wenn er
beim Aufruf geändert werden kann.

Umgewandelt habe ich mein Testprogramm mit dftactgrp *no

Hoffe auf Eure Antworten,
Gruß
Mäxxchen

[mwithake]

Hallo,

SQL-Funktionen lassen sich per embedded SQL aufrufen:



C/EXEC SQL
C+ SET :ERGEBNIS = SQLFUNKTION(:parm1, :parm2, ...)
C/END_EXEC


Gruß
M.Withake

[holgerscherer]

Hallo liebe RPG Gemeinde,

ist es möglich aus einem RPG Programm heraus eine SQL Function aufzurufen ?

VIelleicht stehe ich grade auf dem Schlauch (nein, ich sitze), aber wie wäre es mit embeddet SQL? Dazu finden sich hier doch einige Artikel, und Experten und Expertinnen liegen auf der Lauer, um Dir zu helfen ;-)

-h

[Fuerchau]

c/exec-sql
c+ set myvar = mysqlfunc(parm1, parm2, ...)
c/end exec

Da es eine SQL-Funktion ist, musst du auch SQL bemühen.

[Bratmaxxe]

der code der function ist wie folgt:




H NOMAIN

FT3TABPK IF E K DISK

DSQL_FUNC PR 21A
D MANDANT 3
D KST 4 0
D ART 1

PSQL_FUNC B EXPORT
DSQL_FUNC PI 21A
D MANDANT 3
D KST 4 0
D ART 1

C* //Initialisierung Work-Felder
D TEXT3 S 3 INZ(*BLANKS)
D TABELLE S 10 INZ('N0210')
D VERSION S 1 INZ('1')
D KST15 S 15
D STRING S 21 INZ(*BLANKS)
C*

// Datei lesen..... usw.

C RETURN STRING
C* -----------------------------------------------------------------
C* ENDE der Prozedur
C* -----------------------------------------------------------------
C CLOSE T3TABPK
PSQL_FUNC E



Es gibt dazu ein Modul und ein Serviceprogramm.

Die Function an sich ist ja kein SQL, sondern normal RPG, ich verstehe nur nicht, warum man die nicht anders aufrufen kann ?

MfG
Mäxxchen

[B.Hauser]

Hallo,

Eine (RPG-)Funktion ist eine Prozedur mit Rückgabe-Wert, die nicht mit CALLP sondern z.B. über EVAL oder IF oder DOU ... usw. wie eine Built-In-Funktion aufgerufen wird.

Also z.B.



/Free
Ergebnis = MyFunc(Param1: Param2: ... ParamX);
If MyFunc2(Parm) > *Zeros;
EndIf;
/End-Free

Auch wenn eine RPG-Funktion als SQL-Funktion registriert ist, kann ich sie immer noch native aufrufen.

Bei der Registrierung einer externen Funktion als SQL-Funktion wird dieser Funktion lediglich eine SQL-Kennung zugeordnet, über die diese Funktion aus SQL heraus aufgerufen werden kann.

Birgitta

[Fuerchau]

Die Funktion steckt in einem Service-Programm, also musst du die Funktion als externe Funktion und nicht als Programm deklarieren und anschließend mit dem Serviceprogramm binden.

1. CRTRPGMOD
2. CRTPGM ... BNDSRVPGM(...)

[Bratmaxxe]

Vielen lieben Dank !

Gruß
Mäxxchen