So, ich konnte mein Problem jetzt folgendermaßen lösen:

dcl-ds datenDS;
tempStr char(32000) pos(1);
tempDS like(s1) pos(1);
end-ds;

chain i bvsjse1d.sfl1 s1;
tempDS = s1;

==> Danach steht in tempStr der volle String mit allen Daten von s1.

Danke an alle für die Tipps.

Dieter