Abgeschickt von Datei auf Application-Server mit Tabulator schreiben am 24 Maerz, 2005 um 13:44:52:
FIELD-SYMBOLS <spalte> TYPE ANY.
DATA: l_feld(100).
DATA: n_spalte TYPE i.
DATA: typ TYPE c.
CONSTANTS: c_tabulator TYPE x VALUE '09'.
* Spalten zählen
DESCRIBE FIELD gt_out TYPE typ COMPONENTS n_spalte.
OPEN DATASET dsn FOR OUTPUT IN TEXT MODE.
LOOP AT gt_out.
CLEAR g_output.
DO n_spalte TIMES.
* eine Spalte in das Feldsymbol einlesen
ASSIGN COMPONENT sy-index
OF STRUCTURE gt_out TO <spalte>.
* den Typ der Spalte ermitteln
DESCRIBE FIELD <spalte> TYPE typ.
* wenn nich Type C, dann linksbündig schreiben
IF typ = 'c' OR typ = 'C'.
CONCATENATE g_output <spalte> INTO g_output.
ELSE.
WRITE <spalte> TO l_feld LEFT-JUSTIFIED.
CONCATENATE g_output l_feld INTO g_output.
ENDIF.
* wenn die letzte Spalte noch nicht erreicht ist,
* dann Trennzeichen anhängen
IF sy-index < n_spalte.
CONCATENATE g_output c_tabulator INTO g_output.
ENDIF.
ENDDO.
TRANSFER g_output TO p_b_name.
ENDLOOP.
CLOSE DATASET dsn.