Dynamischer Select

Code: Alles auswählen.

LOOP AT lt_fieldcat INTO lwa_fieldcat.
  CLEAR ls_component.
  ls_component-name = lwa_fieldcat-fieldname.
  CONCATENATE lwa_fieldcat-tabname lwa_fieldcat-fieldname
    INTO tablefield SEPARATED BY '-'.
  ls_component-type ?= cl_abap_typedescr=>describe_by_name( tablefield ).
  INSERT ls_component INTO TABLE lt_component.
ENDLOOP.

IF lt_component IS NOT INITIAL.
  kr_strucdescr = cl_abap_sctructdescr=>create( lt_component ).
ENDIF.

lr_tabledescr = cl_abap_tabledescr=>create( p_line_type = lr_strucdescr ).

CREATE DATA lr_data_struct TYPE HANDLE lr_strucdescr.
ASSIGN lr_data_struct->* TO <fs_struct>.

CREATE DATA lr_data_table TYPE HANDLE lr_tabledescr.
ASSIGN lr_data_table->* TO <fs_table>.

Code: Alles auswählen.

SELECT (fields)
FROM (table) UP TO p_max ROWS
INTO TABLE <fs_table> PACKAGE SIZE p_clust.

  LOOP AT <fs_table> INTO <fs_struct>.
    TRANSFER <fs_struct> TO filename.
    CLEAR <fs_struct>.
  ENDLOOP.
  REFRESH <fs_table>.

ENDSELECT.

Code: Alles auswählen.

TRANSFER <fs_struct> TO filename.

Code: Alles auswählen.

Directory:  /usr/sap/trans/tmp
Name:       F04_903_20080225_1040_BSEG.txt

# # # # # # # # # # # # # # # # # #0#0#0#0#0#0#0# #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0# # # # # # # # # # # # # # # # # # # # # # # # # # # # # ############################# # # # # #

Code: Alles auswählen.

90310001600000000200700100.00.000000.00.000011DHAN20,0020,00
90310001600000000200700200.00.000000.00.000040SSAN17,2417,24
903100016000000002007003T00.00.000000.00.000040SSAN2,762,76
90310001600000001200700100.00.000000.00.000011DHAN10,0010,00
90310001600000001200700200.00.000000.00.000040SSAN8,628,62
903100016000000012007003T00.00.000000.00.000040SSAN1,381,38
90310001600000002200700100.00.000000.00.000011DHAN1.299,781.299,78
90310001600000002200700200.00.000000.00.000040SSAN1.120,501.120,50
903100016000000022007003T00.00.000000.00.000040SSAN179,28179,28

Code: Alles auswählen.

ASSIGN COMPONENT sy-index OF STRUCTURE <fs_table> TO <fs_struct>.

Code: Alles auswählen.

ASSIGN COMPONENT sy-index OF STRUCTURE <fs_struct> TO <fs_comp>.

Code: Alles auswählen.

SELECT (ob_select->n_t_where)
  FROM (ob_from->n_t_where) UP TO p_max ROWS
  INTO TABLE <fs_table> PACKAGE SIZE p_clust
  WHERE (ob_where->n_t_where).

  LOOP AT <fs_table> INTO <fs_struct>.
    DO.
      ASSIGN COMPONENT sy-index OF STRUCTURE <fs_struct> TO <fs_comp>.
      IF sy-subrc NE 0. EXIT. ENDIF.
      fragment = <fs_comp>.
      CLEAR <fs_comp>.
      SHIFT fragment LEFT DELETING LEADING space.
      CONCATENATE line fragment INTO line SEPARATED BY separator.
      CLEAR fragment.
    ENDDO.
    SHIFT line LEFT DELETING LEADING separator.

    TRY.
        TRANSFER line TO filename.
      CATCH cx_sy_conversion_codepage.
        result = 'Eine Zeichensatzkonvertierung ist nicht möglich'.
        CLEAR count.
    ENDTRY.
    CLEAR line.
    ADD 1 TO count.
  ENDLOOP.
  REFRESH <fs_table>.

ENDSELECT.