Hallo,

eigentlich sollte das ganz normal gehen. Probier es mal so:

Code:
D wert            DS                  DIM(99) QUALIFIED  
D we                             7S 0                    

C     *ENTRY        PLIST                          
C                   PARM                    FeWe   
C                   PARM                    WERT 

Exec Sql Declare c1 Cursor for
	select xxwert from DateiA                               
	where (xxa, xxb)                                  
	in(select yya, yyb from DateiB where feld=:FeWe)
	group by xxwert;

Exec Sql open c1;

Exec Sql Fetch c1 For 99 Rows Into :wert;
lg Andreas