danke,
leider hilft mir das nicht weiter - ich will es mal als Beispiel bringen:


eval abfrage = 'select * from myfile where feld1 = sel1 and
feld2 = sel2 order by key1'

/exec sql prepare s1 from :abfrage
/end-exec

/exec sql declare c1 cursor for s1
/end-exec


/exec sql open c1
/end-exec


dow sqlcod <> 100

/exec sql fetch c1 into :myfile
/end-exec

if sqlcod = 100
/exec sql close c1
/end-exec
leavesr
endif

write subfile

....


exfmt sfcontrol

wenn neue Selektion:

eval abfrage = 'select * from myfile where feld2 = sel2 and
feld4 = sel4 order by key2, key4'

danach schicke ich das Pgm wieder zum "prepare s1"
und lasse es da weiter laufen (ist in meinem Pgm. eine Subroutine)