[NEWSboard IBMi Forum]
Seite 2 von 2 Erste 1 2
  1. #13
    Registriert seit
    Aug 2001
    Beiträge
    2.625
    Du must eine Datenstruktur definieren mit sovielen Elementen wie Spalten und diese Feldgruppe dann nach der Datenstruktur getrennt durch ein Blank angeben.

    Birgitta
    Birgitta Hauser

    Anwendungsmodernisierung, Beratung, Schulungen, Programmierung im Bereich RPG, SQL und Datenbank
    IBM Champion 2020
    Virtuelle SQL und RPG Schulungen

  2. #14
    Registriert seit
    May 2004
    Beiträge
    351
    Ich habs gefunden. Es funktioniert jetzt alles.

    Für alle die es interessiert. Nachfolgend meine Quellenzusammenfassung

    Code:
    d rsWR            s                   sqltype(result_set_locator)         
    d DsWR            ds                                                      
    d   Row_Key                    250                                        
    d   Commission_Number...                                                  
    d                              250                                        
    d   Commission_Number_Year...                                             
    d                              250                                        
    d   Vin                        250                                        
    d   Invoice_Number...                                                     
    d                              250                                        
    d   Invoice_Date...                                                       
    d                              250                                        
    d   Amount                     250                                        
    d   Currency                   250                                        
    d   Invoicing_Dealer...                                                   
    d                              250                                        
    d   Sales_Category...                 
    d                              250                                         
    d   CDC_Valid_From...                                                      
    d                                9  0                                      
    d   CDC_DelFrom...                                                         
    d                                9  0                                      
    d myNulls         s              5i 0 dim(12)   
    ***************************************************************************
    ** Hauptprogramm                                                           
    ***************************************************************************
    c/exec sql                                                                 
    c+ call EXP.P_REQUEST_SST('NCONS', 'XXX', 'VERSAND',     
    c+ 0, 0, '', 0, 0)                                                         
    c/end-exec                                                                 
    c/exec sql                                                                 
    c+ ASSOCIATE RESULT SET LOCATOR(:rsWR) with specific procedure             
    c+ P_REQUEST_SST                                                           
    c/end-exec                                                                 
    c/exec sql                                                                 
    c+ ALLOCATE cWR CURSOR FOR RESULT SET :rsWR                                
    c/end-exec                                                                 
    c                   do        *hival                                       
    c/exec sql                                                                 
    c+ FETCH NEXT FROM cWR into :DsWR:myNulls                                  
    c/end-exec                                                                 
    c                   if        SqlCod = 100 or SqlCod < *zeros              
    c                   leave          
    c                   endif                                                  
    **                                                                         
    c                   enddo                                                  
    c/exec sql                                                                 
    c+ CLOSE cWR                                                               
    c/end-exec                                                                 
    **                                                                         
    c                   eval      *inlr = *on
    An die Prozedur selbst komme ich leider nicht ran. Aber so wie oben funktioniert es im RPG

  3. #15
    Registriert seit
    May 2004
    Beiträge
    351
    Vielen Dank an alle für die Unterstützung

Ähnliche Themen

  1. Aufruf SQL Prozedur von SQLRPGLE
    Von Dschainers im Forum NEWSboard Programmierung
    Antworten: 3
    Letzter Beitrag: 28-08-19, 11:09
  2. Embedded SQL Cursor updaten
    Von Tschabo im Forum NEWSboard Programmierung
    Antworten: 11
    Letzter Beitrag: 23-10-16, 19:12
  3. RPG-Prozedur aus C# aufrufen
    Von svit im Forum NEWSboard Programmierung
    Antworten: 2
    Letzter Beitrag: 03-03-16, 11:11
  4. telnet - rückgabe im ebcdic
    Von sargejogi im Forum IBM i Hauptforum
    Antworten: 1
    Letzter Beitrag: 22-09-15, 12:09
  5. CLLE als Prozedur ins Serviceprogramm
    Von Etherion im Forum NEWSboard Programmierung
    Antworten: 6
    Letzter Beitrag: 30-09-14, 13:36

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •