Leerzeichen ausgeben

Code: Alles auswählen.

TYPES:
  BEGIN OF ts_itab, "gedachte Struktur in ITAB
*...
    nachname TYPE c LENGTH 10,
    vorname  TYPE c LENGTH 10,
*...
  END   OF ts_itab,
  BEGIN OF ts_neufeld, "gedachte Struktur in GS_NEUFELD
*...
    vorname  TYPE c LENGTH 10,
    nachname TYPE c LENGTH 10,
*...
  END   OF ts_neufeld.

DATA:
  gs_itab    TYPE char255, "beide CHAR255
  gs_neufeld TYPE char255.

FIELD-SYMBOLS:
  <gs_itab>   TYPE ts_itab,
  <gs_neufeld TYPE ts_neufeld.

* mittels Feldsymbol geänderte Bedeutung auf jeweiliges Feld legen
ASSIGN:
 gs_itab    TO <gs_itab>    CASTING,
 gs_neufeld TO <gs_neufeld> CASTING.

* feldweise Übertragung
gs_neufeld-vorname = gs_itab_vorname.
*...

Code: Alles auswählen.

*'AName   Vorname       '
*'BStraße 11            '
*'C12345Musterstadt     '

TYPES: 
  BEGIN OF ts_typ, "Name
    type     TYPE c LENGTH 1, 
    data     TYPE c LENGTH 20, 
  END   OF ts_type, 
  BEGIN OF ts_a, "Name
    nachname TYPE c LENGTH 10, 
    vorname  TYPE c LENGTH 10, 
  END   OF ts_a, 
  BEGIN OF ts_b, "Straße
    strasse  TYPE c LENGTH 20, 
  END   OF ts_b, 
  BEGIN OF ts_b, "Straße
    plz      TYPE c LENGTH 5, 
    ort      TYPE c LENGTH 15, 
  END   OF ts_b. 

DATA: 
  gs_zeile TYPE ts_typ. 

FIELD-SYMBOLS: 
  <gs_a> TYPE ts_a, 
  <gs_b> TYPE ts_b, 
  <gs_c> TYPE ts_c. 

* mittels Feldsymbol geänderte Bedeutung auf jeweiliges Feld legen 
ASSIGN: 
  gs_zeile-data TO <gs_a>    CASTING, 
  gs_zeile-data TO <gs_b>    CASTING,
  gs_zeile-data TO <gs_c>    CASTING. 

LOOP AT gt_itab INTO gs_zeile.
* Zeile besorgen
  CASE gs_zeile-typ.
    WHEN 'A'.
* Name
      WRITE:
        / <gs_a>-vorname,
          <gs_a>-nachname.
    WHEN 'B'.
* Straße
      WRITE:
        / <gs_b>-strasse.
    WHEN 'C'.
* Ort
      WRITE:
        / <gs_c>-plz,
          <gs_c>-ort.
  ENDCASE.
ENDLOOP.