Datas in Application Server file is not aligned

Question

Dear all,
           I have created a program in SE38 and transfer the data to the Application server file using Transfer statement.
           The datas are transferd to Application Server file , but datas are not aligned.
           In out Application server file thd datas are displaied one after another..
           But i want to display the datas in single row.
          I have include program for your reference.
With Regards,
Baskaran.
report  zsutest34 message-id ztcpo.
                DATA AND VARIABLES DECLARATION
data: begin of leban occurs 0.
        include structure eban.
data end of leban.
data new(1).
                SELECTION-SCREEN
selection-screen begin of block 001 with frame title text-001.
selection-screen skip 1.
parameters filename(128) default '
192.168.100.33\SAPMNT\IDS\dvebmgs00\data\santhosh.dat'. "\SYS\GLOBAL\testfile1.txt' LOWER CASE.
select-options ldat for sy-datum.
parameters lwerks type eban-werks.
selection-screen skip 1.
selection-screen end of block 001.
START-OF-SELECTION
select * from eban into leban where erdat in ldat and werks = lwerks.
  append leban.
endselect.
sort leban by banfn bnfpo.
clear leban.
                REGARDING DATASET
perform value1.
form value1.
open dataset filename for output in text mode encoding default. " MESSAGE D_MSG_TEXT.
data: l_msg(255) type c.
    if sy-subrc ne 0.
      message i001.
      exit.
    endif.
concatenate 'The following file was opened:'(002) filename into l_msg separated by space.
        write: l_msg.
uline.
                TRANSFORMING TO APPLICATION SERVER FILE
loop at leban.
      transfer leban-banfn to filename.
      transfer leban-bnfpo to filename.
      transfer leban-ekgrp to filename.
      transfer leban-matnr to filename.
      transfer leban-werks to filename.
AT FIRST.
   WRITE: /10 TEXT-001, 30 TEXT-002, 45 TEXT-003, 50 TEXT-004, 65 TEXT-005.
   '            ITEMNO GRP MATERIAL           PLANT           QTY ' COLOR = 2.
ENDAT.
  at new banfn.
    uline.
    write:/1 'PRNO-',leban-banfn.
    new = 'x'.
    uline.
    skip.
  endat.
  if new = 'x'.
    WRITE:/ '            ITEMNO GRP MATERIAL           PLANT           QTY ' color = 2.
    write:/14 leban-bnfpo,  leban-ekgrp, leban-matnr, leban-werks, leban-menge.
    clear new.
  else.
    write:/14 leban-bnfpo,  leban-ekgrp, leban-matnr, leban-werks, leban-menge.
  endif.
endloop.
                DATASET CLOSING
close dataset filename.
endform.

Answer 1

wa_string type string
loop at leban.
concatenate leban-banfn
          leban-bnfpo
          leban-ekgrp
             leban-matnr
             leban-werks into wa_string
             separated by CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
transfer wa_string to filename.
endloop.