Comparación De Tablas A Nivel De Datos
* Comparando tablas
* ztbsd es tipo tabla
DATA: g_ind,
wa TYPE ztbsd_zterm,
itab1 TYPE STANDARD TABLE OF ztbsd WITH HEADER LINE ,
itab2 TYPE STANDARD TABLE OF ztbsd WITH HEADER LINE.
CLEAR: wa. wa-vkorg = '200'. APPEND wa TO itab1.
CLEAR: wa. wa-vkorg = '100'. APPEND wa TO itab1.
CLEAR: wa. wa-vkorg = '200'. APPEND wa TO itab1.
CLEAR: wa. wa-vkorg = '200'. APPEND wa TO itab2.
CLEAR: wa. wa-vkorg = '200'. APPEND wa TO itab2.
CLEAR: wa. wa-vkorg = '200'. APPEND wa TO itab2.
clear g_ind.
IF itab1[] NE itab2[]. "Compara DATOS ALL
g_ind = 'X'.
WRITE:/'gi_ind = ', g_ind .
ENDIF.
write:/ 'fin'.
|