[NEWSboard IBMi Forum]
Seite 2 von 2 Erste 1 2
  1. #13
    Registriert seit
    Aug 2001
    Beiträge
    2.869
    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 seit 2020 - 4. Jahr in Folge
    Birgitta Hauser - Modernization - Education - Consulting on IBM i

  2. #14
    Registriert seit
    May 2004
    Beiträge
    444
    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
    444
    Vielen Dank an alle für die Unterstützung

Similar Threads

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

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •