Array mit Sql befüllen

[tarkusch]

Hallo,

ich fülle per Sql ein Array.

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

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

[B.Hauser]

Ab Release 7.1 ist ein %LookUp auf eine Array-Datenstruktur, bzw. ein Unterfeld in einer solchen Datenstruktur möglich.
Solange Du noch nicht auf Release 7.1 bist, musst Du halt die 2. Datenstruktur aus der 1. befüllen, oder über Cursor die Sätze einzeln lesen und in die entsprechenden Datenstruktur-Unterfelder füllen.

Birgitta

[Fuerchau]

Durch geschickte Definition mit Based-Pointern kannst du das auch hinkriegen:

D MYDS DS DIM(nnn)
D F1 10

D MyPtr s * inz(MyDS(0))
D MyArray DS based(MyPtr)
D FX 10 dim(nnn)
D FX1 10 overlay(FX:1)

Falls der inz-Ptr so nich geht, kannst du in auch per "eval MyPtr = %addr(Myds(0));" initialisieren.