[Jesicka_21]

Buenas tardes,

Lo que se me ocurre que podes llegar a hacer es lo siguiente:
Deberias realizarte un types de la siguiente manera.

TYPES: BEGIN OF TY_ITAB,
KAPPL TYPE A690-KAPPL,
KSCHL TYPE A690-KSCHL,
WERKS TYPE A690-WERKS,
INCO1 TYPE A690-INCO1,
INCO2 TYPE A690-INCO2,
MFRGR TYPE A690-MFRGR,
VRKME TYPE A690-VRKME,
KFRST TYPE A690-KFRST,
DATBI TYPE A690-DATBI,
DATAB TYPE A690-DATAB,
KBSTAT TYPE A690-KBSTAT,
KNUMH TYPE A690-KNUMH,
TABNAME TYPE CHAR20,
END OF TY_ITAB.

Agregamos un campo llamado TABNAME que contendrá el nombre de la tabla.

Realizas tu consulta:

CLEAR itab.
REFRESH itab.

SELECT KAPPL KSCHL WERKS INCO1 INCO2 MFRGR VRKME KFRST DATBI DATAB
KBSTAT KNUMH
INTO CORRESPONDING FIELDS OF TABLE itab
FROM A690
WHERE werks in werks.

SELECT KAPPL KSCHL WERKS INCO1 INCO2 KONDM VRKME KFRST DATBI DATAB KBSTAT KNUMH
INTO CORRESPONDING FIELDS OF TABLE itab1
FROM A694
WHERE werks in werks.

Luego, realizas lo siguiente:

*Loopeo de los datos de tabla A694.
LOOP ITAB1.

ITAB1-TABNAME = 'A694'.

APPEND ITAB1 TO ITAB.

ENDLOOP.

* Los registros que tengan el campo TABNAME vacio, no vienen de la A694.
LOOP ITAB
WHERE TABNAME EQ SPACE.

ITAB-TABNAME = 'A690'.

MODIFY ITAB.

ENDLOOP.

No sabría decirte si hay otra manera, pero es lo mas sencillo que se me ocurrió.