Code: Alles auswählen.
OPEN DATASET w_file_uc FOR INPUT IN TEXT MODE ENCODING NON-UNICODE.
IF sy-subrc = 0.
DO.
READ DATASET w_file_uc INTO zeile.
IF sy-subrc NE 0.
EXIT.
ELSE.
SPLIT zeile AT ';' INTO
.......
source_file = w_file_uc.
CONDENSE source_file NO-GAPS.
to_file-savepath = ****** (neuer Pfad)
to_file-filenameto = w_file_uc+35.
target_file = to_file.
CONDENSE target_file NO-GAPS.
**--- delete before copy
DELETE DATASET target_file.
**--- ok für copy
CONCATENATE source_file target_file INTO cmd SEPARATED BY ' '.
CALL FUNCTION 'SXPG_CALL_SYSTEM'
EXPORTING
commandname = 'ZZCOPY'
.....
DELETE DATASET source_file.
CLOSE DATASET w_file_uc.