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
Bookmarks