1
*---------------------------------------------------------------------*
2
* FORM SET_PF_STATUS *
3
4
* PF-Status setzen: entweder allgemein oder angegeb. Programm *
5
6
FORM set_pf_status USING value(sps_status).
7
DATA: sps_state LIKE sy-pfkey, sps_stat TYPE state_vector.
8
CASE x_header-gui_prog.
9
WHEN master_fpool.
10
MOVE sps_status TO sps_state.
11
CALL FUNCTION 'VIEW_SET_PF_STATUS'
12
EXPORTING
13
status = sps_state
14
objimp = x_header-importable
15
TABLES
16
excl_cua_funct = excl_cua_funct.
17
WHEN sy-repid.
18
MOVE sps_status TO sps_stat.
19
IF sps_stat-action EQ anzeigen OR
20
sps_stat-action EQ transportieren OR
21
( sy-mandt EQ '000' AND vim_system_type NE 'SAP' ) OR
22
x_header-importable = vim_not_importable.
23
vim_comp_menue_text = svim_text_045.
24
ELSE.
25
vim_comp_menue_text = svim_text_046.
26
ENDIF.
27
vim_pr_stat_txt_ch = svim_text_prb.
28
vim_pr_stat_txt_ta = svim_text_prc.
29
vim_pr_stat_txt_me = svim_text_pri.
30
vim_pr_stat_txt_or = svim_text_prj.
31
SET PF-STATUS sps_status EXCLUDING excl_cua_funct.
32
WHEN OTHERS.
33
RAISE wrong_gui_programm.
34
ENDCASE.
35
ENDFORM. "SET_PF_STATUS