Help with the ABAP code

Question

Hi "Friends",
I have small problem, but i don't know how to solve it.
I changed an old program which had just executable report function. The display was written with "WRITE" sentence.
here is the code:
           WRITE: / OUTPUT-MATKL(4), '|',
                   T023T-WGBEZ, '|',
                  AT 30 OUTPUT-MATNR+12(6), '|',
                  AT 39 OUTPUT-MAKTX, '|',
                  AT 90 OUTPUT-LABST, '|',
                  AT 110 OUTPUT-OMENG, '|',
                  AT 135 OUTPUT-BMENG, '|',
                  AT 165 VERFUEGBAR, '|'.
How can I set in new code that the columns will start at the same point?
New code:
FORM BUILD_LINE USING  IW_DATA.                             "$001 start
  FIELD-SYMBOLS: <L_VALUE>,                                 "$001
                 <L_DATUM_EX>.                              "$001
  DATA: L_LEN TYPE I.                                       "$001
  DATA: L_STRLEN TYPE I.                                    "$001
  DATA: L_TYPE.                                             "$001
  DATA: H_DATE_EXTERNAL(10) TYPE C.                         "$001
  CLEAR: G_TRANSFER.                                        "$001
  REFRESH:  GTW_FIELDS.                                     "$001
  APP_NAME 'MATKL'.                                        
  APP_NAME 'WGBEZ'.                                        
  APP_NAME 'MATNR'.                                        
  APP_NAME 'MAKTX'.                                        
  APP_NAME 'LABST'.                                        
  APP_NAME 'OMENG'.                                        
  APP_NAME 'BMENG'.                                        
  APP_NAME 'VERFUEGBAR'.
And my question is how to set in new code that the A column starts AT 30, second AT 90.... How to set this?
I put the AT 30 infront of the APP_NAME, but doesn't work!! Please help.
Thanks for the help,
<b><REMOVED BY MODERATOR></b>... and it is urgent )
BR
saso
Message was edited by: Saso
        Saso Poljansek
Message was edited by:
        Alvaro Tejada Galindo

Answer 1

Uf, but I would like to write on unix file now and this write is'n possible anymore...
Here is the code I need to change... At this piece of code i need to change that the columns will be a the same place as was before when I used write sentance... There is another external program behind and I need to have the same structure as I have before....
*&      Form  build_line
      text
     -->P_I_DATA  text
FORM BUILD_LINE USING  IW_DATA.                             "$001 start
  FIELD-SYMBOLS: <L_VALUE>,                                 "$001
                 <L_DATUM_EX>.                              "$001
  DATA: L_LEN TYPE I.                                       "$001
  DATA: L_STRLEN TYPE I.                                    "$001
  DATA: L_TYPE.                                             "$001
  DATA: H_DATE_EXTERNAL(10) TYPE C.                         "$001
  CLEAR: G_TRANSFER.                                        "$001
  REFRESH:  GTW_FIELDS.                                     "$001
  APP_NAME 'MATKL'.                                         "$001
*****************write also this from the customizing table
  APP_NAME 'WGBEZ'.                                         "$001
  APP_NAME 'MATNR'.                                         "$001
  APP_NAME 'MAKTX'.                                         "$001
  APP_NAME 'LABST'.                                         "$001
  APP_NAME 'OMENG'.                                         "$001
  APP_NAME 'BMENG'.                                         "$001
*****************write also this from the customizing table
  APP_NAME 'VERFUEGBAR'.                                    "$001
  LOOP AT GTW_FIELDS.                                       "$001
    CLEAR SY-SUBRC.                                         "$001
    ASSIGN COMPONENT GTW_FIELDS-NAME OF STRUCTURE IW_DATA   "$001
                                            TO <L_VALUE>.   "$001
    CHECK SY-SUBRC = 0.                                     "$001
    DESCRIBE FIELD <L_VALUE> OUTPUT-LENGTH L_LEN.           "$001
    DESCRIBE FIELD <L_VALUE> TYPE L_TYPE.                   "$001
    CASE L_TYPE.                                            "$001
      WHEN 'D'.                                             "$001
        CLEAR: H_DATE_EXTERNAL.                             "$001
        ASSIGN H_DATE_EXTERNAL TO <L_DATUM_EX>.             "$001
        CALL 'DATE_CONV_INT_TO_EXT'                         "$001
          ID 'DATINT' FIELD <L_VALUE>                       "$001
          ID 'DATEXT' FIELD <L_DATUM_EX>.                   "$001
        UNASSIGN: <L_VALUE>.                                "$001
        ASSIGN <L_DATUM_EX> TO <L_VALUE>.                   "$001
    ENDCASE.                                                "$001
    L_STRLEN = STRLEN( G_TRANSFER ).                        "$001
    WRITE <L_VALUE> TO G_TRANSFER+L_STRLEN(L_LEN).          "$001
    L_STRLEN = L_STRLEN + L_LEN.                            "$001
    WRITE '|' TO G_TRANSFER+L_STRLEN.                       "$001
    AT LAST.                                                "$001
      SHIFT G_TRANSFER BY 1 PLACES RIGHT.                   "$001
      WRITE '|' TO G_TRANSFER+0(1).                         "$001
    ENDAT.                                                  "$001
    CLEAR: L_STRLEN.                                        "$001
  ENDLOOP.                                                  "$001
ENDFORM.                    " build_line                    "$001 end