Warum machst du es nicht so...

Code:
dcl-ds   s1 likerec(bvsjse1d.sfl1:*all);       // Alle Felder von sfl1
dcl-ds   save1 likerec(bvsjse1d.sfl1:*all);
 
save1 = s1;