SQL Function aus RPGLE aufrufen...

[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