open datset

Hi,

is there any changes for the following code to be done.

very urgent please.

form writefile.

data: msg(100).

data: todir like rsmrgstr-path value '/apps/B2B/B2Bprog/'.

data: tofile like edi_path-pthnam.

clear msg.

concatenate todir 'abc' sy-datum sy-uzeit w_seqno '.xml'

into tofile.

open dataset tofile for output in text mode encoding default

message msg.

if sy-subrc ne 0.

message e122(j4) with tofile.

else.

loop at wlines.

transfer wlines to tofile.

endloop.