Collect data for active SAP users - program

 REPORT ZCOLLECT.

TABLES: UINFO, YUINFO.

DATA: OPCODE TYPE X VALUE 2, DATUM TYPE D, IDOPONT TYPE T.

DATA: BEGIN OF USR_TABL OCCURS 10.
        INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.

CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE
  ID 'TAB' FIELD USR_TABL-*SYS*.

DATUM = SY-DATUM.
IDOPONT = SY-UZEIT.

LOOP AT USR_TABL.
MOVE-CORRESPONDING USR_TABL TO YUINFO.
YUINFO-DATUM   = DATUM.
YUINFO-IDOPONT = IDOPONT.
YUINFO-SORSZAM = YUINFO-SORSZAM + 1.
INSERT YUINFO.
ENDLOOP.
COMMIT WORK.