SQL UDF

[KingofKning]

Hallo *all,
ich habe mir eine UDF geschrieben die mir kundenspezifische Preise ermitteln soll.

Dummerweise läuft das Teil auf Fehler.

Fehlermeldung

 Nachrichten-ID . . . . :   SQL0305       Bewertung  . . . . . . :   30         
 Nachrichtenart . . . . :   Diagnose                                            
 Sendedatum . . . . . . :   15.08.14      Sendezeit  . . . . . . :   15:45:56   
                                                                                
 Nachricht . . . :   Anzeigervariable erforderlich.                             
 Ursache  . . . . :  Eine Anweisung FETCH, eine eingebettete Anweisung SELECT,  
   eine Anweisung CALL, GET DESCRIPTOR, SET oder VALUES INTO hatte einen        
   Nullwert zur Folge, für Host-Variable SQLP_L2.RETURNVAL wurde jedoch keine   
   Anzeigervariable angegeben. Die relative Position der Host-Variablen in der  
   Klausel INTO oder der Parameterliste ist 2. Ist der Name der Host-Variablen

Die UDF sieht so aus:

 CREATE FUNCTION rptrade/artpreis3                       
( ARTIKELNR dec(10),                                    
  Kundennr  dec(10)                                     
 ) RETURNS                                              
CHAR(10) LANGUAGE SQL READS SQL DATA BEGIN              
DECLARE RETURNVAL CHAR ( 10 ) NOT NULL DEFAULT '0,00' ; 
DECLARE preis1 dec ( 10 ) ;                             
DECLARE preis2 dec ( 10 ) ;                             
  FOR CSRC1 AS C1 CURSOR                                
      FOR SELECT SOEIPR                                 
             FROM rptrade/artpreis1                     
             where SOID2 = ARTIKELNR                    
             and   (sodnbi = 99999999                   
             or sodnbi >= YEAR(CURRENT DATE)*10000 +    
                          MONTH(CURRENT DATE)*100 +     
                          DAY(CURRENT DATE))            
             order by soid2, sodnbi                     
                   desc fetch first row only         
      DO SET preis1 = SOEIPR;                        
  END FOR ;                                          
  FOR CSRC1 AS C1 CURSOR                             
    FOR SELECT SOEIPR                                
           FROM rptrade/artpreis2                    
           where SOID4 = ARTIKELNR                   
           and   soid1 = kundennr                    
           and   (sodnbi = 99999999                  
           or sodnbi >= YEAR(CURRENT DATE)*10000 +   
                        MONTH(CURRENT DATE)*100 +    
                        DAY(CURRENT DATE))           
           order by soid4, sodnbi                    
                 desc fetch first row only           
      DO SET preis1 = SOEIPR;                        
  END FOR ;                                          
  if preis2 > 0 then set preis1 = preis2 ; end if ;  
  SET RETURNVAL = cast(preis1 as char(10));  
  RETURN LTRIM(RETURNVAL) ;                  
END

Jetzt vermute ich ja mal das ein SQL Statement kein Ergebniss liefert und daher z.B. Preis2 nicht gefüllt ist.

Was will er mir mit dem Stichwort Anzeigevariable sagen?
Für Hilfe dankbar

[Pikachu]

Guckst du hier

[B.Hauser]

Anzeiger-Variable meint meist, dass ein NULL-Wert irgendwo verwendet oder verglichen wird. Geprüft werden NULL-Werte i.d.R. über Anzeiger-Variablen.

Wo berechnest Du eigentlich Preis2?
Soweit ich das sehen kann nirgends. Preis2 wird mit einem NULL-Wert inititalisiert und anschließend wird dieser NULL-Wert mit 0 verglichen (IF Preis2 > 0) und das funktioniert nicht.

1. Initialisiere alle deklarierte Variablen
2. Anstatt das numerische Tagesdatum in den Cursorn zu berechnen würde ich eine separate variable definieren und nur einmalig initialisieren.
3. Anstatt der Cursor mit For-Schleifen würde ich ein einfaches SELECT ... INTO verwenden.
4. Sicherheitshalber würde ich den Preis über COALESCE in einen Default-Wert (z.B. 0) konvertieren.

Etwa so:

CREATE FUNCTION rptrade/artpreis3 ( ARTIKELNR dec(10),                                    
                                     Kundennr  dec(10)  )                                   
        RETURNS CHAR(10) 
        LANGUAGE SQL 
        READS SQL DATA 
BEGIN              
   DECLARE RETURNVAL CHAR ( 10 ) NOT NULL DEFAULT '0,00' ; 
   DECLARE preis1  dec ( 10, 0 ) NOT NULL Default 0;                             
   DECLARE Preis2  dec ( 10, 0 ) Not NULL Default 0;   
   Declare DateNum Dec( 8, 0 )  Not NULL Default 0;

   Set DateNum = Dec(VarChar_Format(Current_Timestamp, 'YYYYMMDD'), 8, 0);

   Select Coalesce(SOEIPR, 0) into Preis1
     From RPTRADE/ArtPreis1
     Where        SOID2 = ARTIKELNR                    
           and (   sodnbi  = 99999999                   
                or sodnbi >= DateNum)            
     order by sodnbi desc 
  fetch first row only;

   Select Coalesce(SOEIPR, 0) into Preis2
     From RPTRADE/ArtPreis2
     where      SOID4 = ARTIKELNR                   
           and  soid1 = kundennr                    
           and (   sodnbi = 99999999                  
                or sodnbi >= DateNum)           
           order by sodnbi desc 
   fetch first row only;           
                                         
  if Preis2 > 0 then set preis1 = Preis2; 
  end if ;  
  SET RETURNVAL = cast(preis1 as char(10));  
  RETURN LTRIM(RETURNVAL) ;                  
END

Birgitta

[KingofKning]

Soviel zum Thema Copy & Paste. Beim 2. Select sollte natürlich Preis2 den Wert erhalten

Ich werde morgen versuchen Deine Vorschläge umzusetzen, erstmal Danke für Deine Hinweise

GG

[KingofKning]

Hallo Birgitta,
danke für Deine Hilfe, beim testen bekomme ich jetzt die Meldung

Nachrichten-ID . . . . : SQL0171 Bewertung . . . . . . : 30
Nachrichtenart . . . . : Diagnose
Sendedatum . . . . . . : 16.08.14 Sendezeit . . . . . . : 08:01:5

Nachricht . . . : Argument 2 der Funktion VARCHAR_FORMAT ungültig.
Ursache . . . . : Datenart, Länge oder Wert des Arguments 2 der Funktion
VARCHAR_FORMAT ist ungültig.

Das müßte sich ja jetzt auf dieses Statement beziehen.
Wo kann ich die richtige Syntax nachschauen?

Set DateNum = Dec(VarChar_Format(Current_Timestamp, 'YYYYMMDD')
8, 0);

GG

Ich habe jetzt nochmal hier im Forum geschaut und h´gehofft das ich das ,8,0 weglassen könnte, das funktioniert aber leider nicht

[B.Hauser]

Unter welchem Release arbeitest Du?
Kannst Du den VarChar_Format-Befehl interaktiv (z.B. mit STRSQL) ausführen?
In älteren Releasen ist die VarChar_Format-Funktion vielleicht noch nicht vorhanden.
Etwa so:

select Dec(VarChar_Format(Current_Timestamp, 'YYYYMMDD'), 8, 0)  
From sysibm/sysdummy1

Sofern die Ausführung nicht möglich ist, musst Du das numerische Tagesdatum anderweitig ermittelt, evtl. auch so wie in Deinem ersten Beispiel, nur halt im SET-Statement.
Etwa so:

Set DateNum = Dec(Year(Current_Date) * 10000 + Month(Current_Date) * 100 + Day(Current_Date), 8, 0);

[KingofKning]

Hallo Birgitta,
ich habe das einzig wahre OS

V5R4

vermutlich noch für 2 Jahre. TöTö TöTö TöTö Tschingbumm.
Also das 1. Statement funktioniert dort nicht.
Das 2. läuft wie angenommen
GG

[KingofKning]

Heavy standing on the wire....

gelöst, falsche Parameterreihenfolge

[Fuerchau]

Dann bist du ja schon mal weiter als ich.
Ich schlage mich noch auf unabsehbare Zeit mit V5R2 und da noch nicht mal mit den letzten PTF's herum da keiner die Kiste mehr wartet.