Code:
 SQLSTM 3064A VARYING
SQLSTM = 'SELECT FLD1, FLD2, ... FROM MyFILE
SQLSTM = SQLSTM + 'WHERE BED1 AND BED2..'   

EXEC SQL PREPARE STMT1 FROM :SQLSTM
EXEC SQL DECLARE C1 CURSOR FOR STMT1
EXEC SQL OPEN C1 
EXEC SQL FETCH INTO :VAR
EXEC SQL CLOSE C1
So funktioniert es bei mir V6R1 & V7R1 ...