1
*---------------------------------------------------------------------*
2
* FORM LISTE_ADDRESS_MAINTAIN *
3
4
* ........ *
5
6
FORM LISTE_ADDRESS_MAINTAIN.
7
IF X_HEADER-ADRNBRFLAG EQ SPACE.
8
MESSAGE E001(SV).
9
EXIT.
10
ENDIF.
11
LOOP AT EXTRACT.
12
CHECK <XMARK> EQ MARKIERT.
13
MOVE SY-TABIX TO EXIND.
14
PERFORM MOVE_EXTRACT_TO_VIEW_WA.
15
PERFORM ADDRESS_MAINTAIN.
16
PERFORM UPDATE_TAB.
17
ENDLOOP.
18
ENDFORM.