1
*&--------------------------------------------------------------------*
2
*& Form BEFORE_LEAVING_FRAME_FUNCTION. *
3
4
* do all the things necessary before leaving the frame function unit *
5
6
FORM before_leaving_frame_function
7
USING value(exit_form) LIKE vimdesc-frm_bf_end.
8
9
DATA: prc TYPE sy-subrc, dummy TYPE c, dummi TYPE i.
10
11
IF <status>-corr_enqud NE space.
12
CALL FUNCTION 'DEQUEUE_E_TRKORR'
13
EXPORTING
14
trkorr = <status>-corr_nbr.
15
* X_TRKORR = E02.
16
CLEAR <status>-corr_enqud.
17
ENDIF.
18
CLEAR <status>-corr_nbr.
19
CLEAR <status>-initializd.
20
CLEAR <initial>. <vim_client_initial> = sy-mandt.
21
IF ( maint_mode EQ anzeigen OR maint_mode EQ transportieren ) AND
22
vim_corr_obj_viewname NE space.
23
CLEAR vim_corr_obj_viewname.
24
25
PERFORM vim_reset_texttab USING view_name. "SW Texttransl
26
CALL FUNCTION 'VIEW_RESET_LANGUAGES'."SW Texttransl
27
IF exit_form NE space.
28
PERFORM (exit_form) IN PROGRAM.
29
30
CLEAR function.
31
FREE vim_bc_entry_list.
32
CLEAR: <status>-bcfixnochg, vim_bc_chng_allowed,
33
<status>-bcfixdelinfosent.
34
** test getting profiles: begin
35
* IF SY-UNAME = 'FRENZELU' OR SY-UNAME = 'ROSENTHAL' "UF Profile
36
* OR SY-UNAME = 'BUEHLERM'.
37
* CALL FUNCTION 'SCPR_MEMORY_DELETE'.
38
* ENDIF.
39
** test getting profiles: end
40
CLEAR vim_oc_inst.
41
* refresh vim_dba_sel_kept. "UF210200
42
*delete after_nonkey flag in check_range.
43
PERFORM check_range IN PROGRAM saplsvix
44
USING space 0 'E' space space space
45
CHANGING dummy prc.
46
ENDFORM. "before_leaving_frame_function