Usuarios auditoria

TYPES: BEGIN OF lty_t001w,
werks TYPE t001w-werks,
bwkey TYPE t001w-bwkey,
END OF lty_t001w.
DATA: lth_t001w TYPE HASHED TABLE OF lty_t001w
WITH UNIQUE KEY werks.

SELECT werks bwkey INTO TABLE lth_t001w
FROM t001w
FOR ALL ENTRIES IN gtd_aufk_afpo
WHERE werks = gtd_aufk_afpo-werks.

LOOP AT gtd_aufk_afpo INTO lwa_aufk_afpo.
* Auditoría
lwa_ztbdatcmvprd-cpuus = sy-uname.
lwa_ztbdatcmvprd-cputm = sy-uzeit.
lwa_ztbdatcmvprd-cpudt = sy-datum.
ENDLOOP.