Example: OO Dynamic data into table2 from corresponding fields in table1

Question

<b>*Parameter definition (copied from public section!)</b>
  class-methods TAB1_TO_TAB2
    importing
      !TAB1 type ANY TABLE
      !METH type BOOLEAN default 'C'
      !REF2 type BOOLEAN default 'X'
    exporting
      !TAB2 type ANY TABLE .
<b>*Method definition</b>
METHOD tab1_to_tab2 .
  FIELD-SYMBOLS: <fs1> TYPE ANY.
  FIELD-SYMBOLS: <fs2> TYPE ANY.
  DATA: lineref  TYPE REF TO data.
  CREATE DATA lineref LIKE LINE OF tab2.
  ASSIGN lineref->* TO <fs2>.
*Refresh if needed
  IF ref2 = 'X'. REFRESH tab2. ENDIF.
*Build Table 2 from table 1
  LOOP AT tab1 ASSIGNING <fs1>.
    MOVE-CORRESPONDING <fs1> TO <fs2>.
    CASE meth.
      WHEN 'C'. COLLECT <fs2> INTO tab2.
      WHEN 'I'. INSERT  <fs2> INTO TABLE tab2.
    ENDCASE.
  ENDLOOP.
ENDMETHOD.
<b>*Example call pgm</b>
REPORT  zrgmtest6                               .
DATA:
vbap_t1 TYPE TABLE OF vbap,
vbak_t1 TYPE TABLE OF vbak.
START-OF-SELECTION.
  SELECT * FROM vbap INTO TABLE vbap_t1.
  z_gen1=>tab1_to_tab2( EXPORTING tab1 = vbap_t1 IMPORTING tab2 = vbak_t1 ).

Answer 1

Yes, aRs - thanks.
Someone in the shop here had an example that I coded from, and it's like yours:
REPORT  ZFOO.
TABLES:
  /sapapo/trprod,
  /sapapo/matkey.
TYPES:
  BEGIN OF tx_trprod_new,
    MATID                TYPE /SAPAPO/MATID,     
    matnr               TYPE /sapapo/matnr,
  END   OF tx_trprod_new.
DATA:
  it_trprod_new          TYPE STANDARD TABLE OF tx_trprod_new,
  v_num          TYPE i.
  SELECT /sapapo/trprod~matid
         /sapapo/matkey~matnr
    FROM /sapapo/trprod
         JOIN /sapapo/matkey ON /sapapo/trprod~matid = /sapapo/matkey~matid
    INTO
   TABLE it_trprod_new
   WHERE /sapapo/trprod~matid LIKE 'H%'.