1
*---------------------------------------------------------------------*
2
* FORM SET_TITLE *
3
4
* Titel setzen: entweder allgemein oder angegeb. Programm *
5
6
FORM set_title USING st_title st_title_text.
7
DATA: st_state LIKE sy-pfkey.
8
CASE x_header-gui_prog.
9
WHEN master_fpool.
10
MOVE st_title TO st_state.
11
CALL FUNCTION 'VIEW_SET_PF_STATUS'
12
EXPORTING
13
status = st_state
14
title = 'X'
15
title_text = st_title_text
16
objimp = x_header-importable
17
TABLES
18
excl_cua_funct = excl_cua_funct.
19
WHEN sy-repid.
20
SET TITLEBAR st_title WITH st_title_text.
21
WHEN OTHERS.
22
RAISE wrong_gui_programm.
23
ENDCASE.
24
ENDFORM. "SET_TITLE