1
*&--------------------------------------------------------------------*
2
*& Form VIM_PROCESS_VIEW_ENTRY *
3
4
* process current function for view entry *
5
6
FORM VIM_PROCESS_VIEW_ENTRY USING VALUE(VPVE_EXIX) TYPE I
7
VALUE(VPVE_OKCODE) LIKE OK_CODE
8
VPVE_RC TYPE I.
9
DATA: FUNCTION_SAFE LIKE FUNCTION.
10
CLEAR VPVE_RC.
11
NEXTLINE = EXIND = VPVE_EXIX.
12
FUNCTION_SAFE = FUNCTION.
13
FUNCTION = OK_CODE = VPVE_OKCODE.
14
PERFORM MOVE_EXTRACT_TO_VIEW_WA.
15
CASE STATUS-TYPE.
16
WHEN EINSTUFIG.
17
* CALL SCREEN LISTE.
18
PERFORM VIM_IMP_CALL_SCREEN USING LISTE.
19
WHEN ZWEISTUFIG.
20
* PERFORM MOVE_EXTRACT_TO_VIEW_WA.
21
PERFORM PROCESS_DETAIL_SCREEN USING 'C'.
22
ENDCASE.
23
IF OK_CODE EQ 'IGN '. VPVE_RC = 4. CLEAR OK_CODE. EXIT. ENDIF.
24
IF FUNCTION EQ 'ABR '. VPVE_RC = 8. CLEAR FUNCTION. EXIT. ENDIF.
25
FUNCTION = FUNCTION_SAFE.
26
ENDFORM. "vim_process_view_entry