PARAMETERS: pa_bukrs TYPE bkpf-bukrs,
            pa_belnr TYPE bkpf-belnr,
            pa_gjahr TYPE bkpf-gjahr.

PARAMETERS: rb_bkpf  RADIOBUTTON GROUP sel DEFAULT 'X',
            rb_bsis  RADIOBUTTON GROUP sel,
            rb_other RADIOBUTTON GROUP sel.

DATA: lt_bkpf TYPE STANDARD TABLE OF bkpf,
      lt_bsis TYPE STANDARD TABLE OF bsis.

DATA: t_ref TYPE REF TO data.

FIELD-SYMBOLS: <t_data> TYPE table,
               <w_data> TYPE ANY.

CASE 'X'.
  WHEN rb_bkpf.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_bkpf
      FROM bkpf
      WHERE bukrs = pa_bukrs.
    IF sy-subrc IS INITIAL.
      GET REFERENCE OF lt_bkpf INTO t_ref.
    ENDIF.

  WHEN rb_bsis.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_bsis
      FROM bsis
      WHERE bukrs = pa_bukrs.
    IF sy-subrc IS INITIAL.
      GET REFERENCE OF lt_bsis INTO t_ref.
    ENDIF.

  WHEN rb_other.
*   For test only ...

  WHEN OTHERS.
    RETURN.

ENDCASE.

CHECK t_ref IS NOT INITIAL.

ASSIGN t_ref->* TO <t_data>.

READ TABLE <t_data> ASSIGNING <w_data>
                    WITH KEY ('BUKRS') = pa_bukrs
                             ('BELNR') = pa_belnr
                             ('GJAHR') = pa_gjahr.
IF sy-subrc IS INITIAL.
* Something to do:
*   <w_data> TYPE bkpf OR
*   <w_data> TYPE bsis
ENDIF.

select z as A+0(2)   
       x as A+2(2)   
       y as A+4(2) 
       u as A+6(2)   
       v as B+0(2) 
       w as B+2(2)  FROM dbtab 
       INTO CORRESPONDING FIELDS OF TABLE itab
          WHERE <where condition>.

clear: lt_result, lt_itab.

select *
  from dbtab
  into table lt_result
  for all entries in lt_itab
  where f1 = lt_itab-f1
  and   f2 = 1000.

  DATA: ld_output TYPE string.

  CONCATENATE `123    ` `321` INTO ld_output. WRITE / ld_output.
  CONCATENATE '123    ' '321' INTO ld_output. WRITE / ld_output.

READ TABLE <t_data> ASSIGNING <w_data>
                    WITH KEY ('BUKRS') = pa_bukrs
                                   ('BELNR') = pa_belnr
                                   ('GJAHR') = pa_gjahr

call function 'ABAP4_CALL_TRANSACTION' starting new task 'NONE'
            exporting tcode = 'TCODE'.

...
  DATA: lo_struct       TYPE REF TO data.

  FIELD-SYMBOLS:
        <fs_struct>     TYPE ANY,
        <fs_fld>        TYPE ANY,
        <fs_record_tab> LIKE LINE OF record_tab.

  REFRESH record_tab.

  PERFORM make_struct USING shlp CHANGING lo_struct.
  ASSIGN lo_struct->* TO <fs_struct>.
  ...
  LOOP AT prps_tab.
    CLEAR <fs_struct>.
    MOVE-CORRESPONDING prps_tab TO <fs_struct>.
    ...
    ASSIGN COMPONENT 'POST1_H' OF STRUCTURE <fs_struct> TO <fs_fld>.
    <fs_fld> = prps_tab-post1.
    ...
    APPEND INITIAL LINE TO record_tab ASSIGNING <fs_record_tab>.
    <fs_record_tab>-string = <fs_struct>.
    IF callcontrol-maxrecords = LINES( record_tab ).
      EXIT.
    ENDIF.
  ENDLOOP.

*&---------------------------------------------------------------------*
*&      Form  make_struct
*&---------------------------------------------------------------------*
FORM make_struct USING    shlp     TYPE shlp_descr_t
                 CHANGING p_struct TYPE REF TO data.

  DATA: lo_type         TYPE REF TO cl_abap_elemdescr,
        lo_struct       TYPE REF TO cl_abap_structdescr,
        lt_comp         TYPE cl_abap_structdescr=>component_table,
        i_length        TYPE i,
        i_decimals      TYPE i.

  FIELD-SYMBOLS:
        <fs_fieldprop>  LIKE LINE OF shlp-fieldprop,
        <fs_fielddescr> LIKE LINE OF shlp-fielddescr,
        <fs_comp>       LIKE LINE OF lt_comp.

  LOOP AT shlp-fieldprop ASSIGNING <fs_fieldprop>
                         WHERE NOT shlplispos IS INITIAL.

    READ TABLE shlp-fielddescr ASSIGNING <fs_fielddescr>
               WITH KEY fieldname = <fs_fieldprop>-fieldname.

    IF sy-subrc = 0.

*     i_length   = <fs_fielddescr>-leng. " при повторном вызове LENG увеличивается в 2 раза :(
      i_length   = <fs_fielddescr>-intlen.
      PERFORM unicode_byte2char(saplsdsd) CHANGING i_length.

      i_decimals = <fs_fielddescr>-decimals.

      FREE lo_type.
      CASE <fs_fielddescr>-inttype.
        WHEN cl_abap_typedescr=>typekind_string.  lo_type = cl_abap_elemdescr=>get_string( ).
        WHEN cl_abap_typedescr=>typekind_xstring. lo_type = cl_abap_elemdescr=>get_xstring( ).
        WHEN cl_abap_typedescr=>typekind_int.     lo_type = cl_abap_elemdescr=>get_i( ).
        WHEN cl_abap_typedescr=>typekind_float.   lo_type = cl_abap_elemdescr=>get_f( ).
        WHEN cl_abap_typedescr=>typekind_date.    lo_type = cl_abap_elemdescr=>get_d( ).
        WHEN cl_abap_typedescr=>typekind_time.    lo_type = cl_abap_elemdescr=>get_t( ).
        WHEN cl_abap_typedescr=>typekind_char.    lo_type = cl_abap_elemdescr=>get_c( p_length = i_length ).
        WHEN cl_abap_typedescr=>typekind_num.     lo_type = cl_abap_elemdescr=>get_n( p_length = i_length ).
        WHEN cl_abap_typedescr=>typekind_hex.     lo_type = cl_abap_elemdescr=>get_x( p_length = i_length ).
        WHEN cl_abap_typedescr=>typekind_packed.  lo_type = cl_abap_elemdescr=>get_p( p_length = i_length p_decimals = i_decimals ).
      ENDCASE.

      IF lo_type IS BOUND.
        APPEND INITIAL LINE TO lt_comp ASSIGNING <fs_comp>.
        <fs_comp>-name       = <fs_fieldprop>-fieldname.
        <fs_comp>-type       = lo_type.
*       <fs_comp>-as_include
        <fs_comp>-suffix     = <fs_fielddescr>-offset. " <fs_fieldprop>-shlplispos.
      ENDIF.

    ENDIF.
  ENDLOOP.

* отсортировать поля в порядке вывода на экран
  SORT lt_comp BY suffix.

  LOOP AT lt_comp ASSIGNING <fs_comp>.
    CLEAR <fs_comp>-suffix.
  ENDLOOP.

* Create new type from component table
  lo_struct = cl_abap_structdescr=>create( lt_comp ).

* Create dynamic structure and assign to Field Symbol
*  FIELD-SYMBOLS: <fs_struct>  TYPE ANY.
  CREATE DATA p_struct TYPE HANDLE lo_struct.
*  ASSIGN lo_struct->* TO <fs_struct>.

ENDFORM.                    "make_struct