Code: Alles auswählen.
filename = 'C:\CIDUE.XLS'.
OPEN DATASET filename FOR UPDATE in BINARY MODE.
loop at satz.
transfer satz to filename.
endloop.
close dataset filename.
Oft ist der Schreibzugriff auf das C-Rootverzeichnis gesperrt. Sonst mal mit C:\TEMP\CIDUE.XLS probieren?KlausB hat geschrieben:Code: Alles auswählen.
filename = 'C:\CIDUE.XLS'.
Code: Alles auswählen.
move dl-pernr to satz+000(006).
move dl-name to satz+006(030).
move dl-endda to satz+036(008).
move dl-h5sh to satz+044(012).
move dl-h4sh to satz+056(012).
move dl-qualiid to satz+068(008).
move dl-quali to satz+076(040).
collect satz.
h-flag = 'X'.
ENDselect.
OPEN DATASET filename FOR UPDATE.
loop at satz.
concatenate satz(006) satz+006(030) satz+036(008) satz+044(012)
satz+056(012) satz+068(008) satz+076(040)
into satz2 separated by ';'.
transfer satz2 to filename.
endloop.
close dataset filename.