tablas internas

[Tonnyman]

Creo que lo que necesitas seria algo como esto:

TYPES: BEGIN OF t_table,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
vbeln TYPE vbak-vbeln,
vbtyp TYPE vbak-vbtyp,
index TYPE i,
END OF t_table,

BEGIN OF t_vbak,
vbeln TYPE vbak-vbeln,
vbtyp TYPE vbak-vbtyp,
index TYPE i,
END OF t_vbak.

DATA: gwa_vbak TYPE t_vbak,
gi_table TYPE TABLE OF t_table,
gi_vbak TYPE TABLE OF t_vbak,
gv_count TYPE i.

FIELD-SYMBOLS: <fs_table> TYPE t_table,
<fs_vbak> TYPE t_vbak.

SELECT belnr gjahr
INTO TABLE gi_table
FROM bkpf.

LOOP AT gi_table ASSIGNING <fs_table>.
add 1 to gv_count.
<fs_table>-index = gv_count.
ENDLOOP.

CLEAR gv_count.

SELECT vbeln vbtyp
INTO TABLE gi_vbak
FROM vbak.

LOOP AT gi_vbak ASSIGNING <fs_vbak>.
add 1 to gv_count.
<fs_vbak>-index = gv_count.
ENDLOOP.

sort gi_table by index.
SORT gi_vbak by index.

LOOP AT gi_table ASSIGNING <fs_table>.
READ TABLE gi_vbak WITH KEY index = <fs_table>-index INTO gwa_vbak.
IF sy-subrc = 0.
<fs_table>-vbeln = gwa_vbak-vbeln.
<fs_table>-vbtyp = gwa_vbak-vbtyp.
ENDIF.
ENDLOOP.

Pero, me parece que para ello necesitarias tener la certeza de que en ambas tablas internas tengas la misma cantidad de registro.

Saludos.