WOW, das war mal ne schnelle Antwort.
Vielen Dank Birgitta!

Dann sieht das ganze schon besser aus:
D Ok C 0
D MyData E Ds Extname(CXLAGPF)

Exec Sql Set Option Datfmt=*Iso, Commit=*None;
EXEC SQL Declare Mycursor Cursor For
select * from scw_data/CXLAGPF
where cxfirm =DRFIRM
and cxekvk = 'S'
and cxsart = 'S'
and cxmeng <> 0
and cxrest <> 0
For Fetch Only;
Exec Sql Open Mycursor;

Dow Sqlcode = Ok;
Exec Sql Fetch Mycursor Into :Mydata;
If Sqlcode = Ok;
Exsr SchreibInPRTF;
Endif;
Enddo;

Soweit so klar
Meine Daten stehen jetzt in Mydata. Da habe ich aber leider direkt eine "Folgefrage".
Wie spreche ich die einzelnen Feldinhalte aus Mydata an, um diese in die Felder der Printerfile zu übertragen?
Sagen wir mal in der Datei CXLAGPF gibt es die Felder KFirma, KKunde, KUmsatz und in der PRTF PKunde, PFirma, PUmsatz.

Mag sein, dass meine Fragen sehr, naja, unverständlich rüber kommen. Das Problem ist nur, dass ich grad mit SQL in RPG Programmen anfange und nur wenig(eigentlich keine) Zeit zum einarbeiten habe, da der Abgabetermin recht kurzfristig ist.

Darum Danke schonmal für alle hilfreichen Antworten!

LG Vigi