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