27 lines
690 B
ABAP
27 lines
690 B
ABAP
PROCESS BEFORE OUTPUT.
|
|
MODULE LISTE_INITIALISIEREN.
|
|
LOOP AT EXTRACT WITH CONTROL
|
|
TCTRL_/DESO/DH_C_OBJ CURSOR NEXTLINE.
|
|
MODULE LISTE_SHOW_LISTE.
|
|
ENDLOOP.
|
|
*
|
|
PROCESS AFTER INPUT.
|
|
MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.
|
|
MODULE LISTE_BEFORE_LOOP.
|
|
LOOP AT EXTRACT.
|
|
MODULE LISTE_INIT_WORKAREA.
|
|
CHAIN.
|
|
FIELD /DESO/DH_C_OBJ-CHECK_VIEW .
|
|
FIELD /DESO/DH_C_OBJ-OBJECT .
|
|
FIELD /DESO/DH_C_OBJ-DESCRIPT .
|
|
MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.
|
|
ENDCHAIN.
|
|
FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.
|
|
CHAIN.
|
|
FIELD /DESO/DH_C_OBJ-CHECK_VIEW .
|
|
FIELD /DESO/DH_C_OBJ-OBJECT .
|
|
MODULE LISTE_UPDATE_LISTE.
|
|
ENDCHAIN.
|
|
ENDLOOP.
|
|
MODULE LISTE_AFTER_LOOP.
|