Hallo liebe RPG Gemeinde,

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

Habe mal etwas rumprobiert:

Code:
 
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:

Code:
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