1
*----------------------------------------------------------------------*
2
* INCLUDE LSVIMF51 *
3
4
*&---------------------------------------------------------------------*
5
*& Form VIM_ADD_IMG_NOTICES_PBO
6
7
* text
8
9
* -->P_DYNPRO Dynpro number
10
11
FORM vim_add_img_notices_pbo USING value(p_dynpro) TYPE list_scr.
12
13
DATA: progname LIKE sy-repid, exit, dynpro TYPE sydynnr.
14
15
CHECK vim_special_mode <> vim_upgrade AND vim_import_profile = space.
16
progname = sy-repid.
17
dynpro = p_dynpro.
18
CALL FUNCTION 'SPROJECT_CONTROL_PBO'
19
EXPORTING
20
repid = progname
21
dynnr = dynpro.
22
ENDFORM. " VIM_ADD_IMG_NOTICES_PBO
23
24
25
*& Form VIM_ADD_IMG_NOTICES_PAI
26
27
28
29
* -->P_MODE text
30
* <--P_EXIT_OK text
31
32
FORM vim_add_img_notices_pai USING p_mode TYPE char1
33
CHANGING exit_ok TYPE char1.
34
35
DATA: leave TYPE char1, save TYPE char1.
36
37
38
CASE p_mode.
39
WHEN 'S'. "Save notices
40
save = 'X'.
41
WHEN 'E'. "Exit and eventually save changes
42
leave = 'X'.
43
ENDCASE.
44
CALL FUNCTION 'SPROJECT_CONTROL_PAI'
45
46
i_exit = leave
47
save_note = save
48
IMPORTING
49
e_exit = exit_ok.
50
ENDFORM. " VIM_ADD_IMG_NOTICES_PAI