Hallo,
ich fülle per Sql ein Array.
Code:
D SqlArray DS Qualified inz DIM(999)
D QQTEXT 10A
D QQKZ1 1A
D QQKZ2 1A
D QQKZ3 1A
D ArraySize S 5I 0 inz(%Elem(SqlArray))
D Index S 5 0 inz(0)
D SqlEof c const('02000')
:
:
exec sql
declare Input cursor for
select W1TXT, W1KZ1, W1KZ2, W1KZ3
from ZW1
WHERE Z1KZA = 'J' AND Z1AUF = :QQAUF
order by Z1LFD#;
exec sql
open Input;
dou sqlstt >= SqlEof
exec sql
fetch next from Input
for :ArraySize rows
into :SqlArray;
enddo;
Anschließend hätte ich gerne mit der BIF %LOOKUP das Feld QQTEXT in der Datenstruktur/Array abgefragt.
Aber leider weiss ich nicht wie ich das richtig angehen soll.
Ich hätte es auch so probiert, aber leider ohne Erfolg
Die DS verträgt sich mit dem Sql-Fetch nicht
Code:
D MyDS DS Qualified INZ
D SqlArray DIM(999)
D QQTEXT 10A Overlay(SqlArray)
D QQKZ1 1A Overlay(SqlArray: *Next)
D QQKZ2 1A Overlay(SqlArray: *Next)
D QQKZ3 1A Overlay(SqlArray: *Next)
Dank im Voraus und besinnliche Feiertage
Tarki
Bookmarks