1
*---------------------------------------------------------------------*
2
* FORM SHOW_FUNCTION_DOCU *
3
4
FORM SHOW_FUNCTION_DOCU.
5
CALL FUNCTION 'IWB_HTML_HELP_OBJECT_SHOW'
6
EXPORTING
7
* DEVCLASS =
8
* TCODE =
9
PROGRAM = VIM_DOCU_PROG
10
* DYNPRONR =
11
EXTENSION = VIM_DOCU_EXTENSION
12
* IMPORTING
13
* ACTION =
14
EXCEPTIONS
15
OBJECT_NOT_FOUND = 1
16
RFC_ERROR = 2
17
NO_PROFIL_PARAMETER = 3
18
IMPORT_PARAMETER_IS_INVALID = 4
19
OTHERS = 5.
20
21
* CALL FUNCTION 'DSYS_SHOW'
22
* EXPORTING
23
** APPLICATION = 'SO70'
24
* DOKCLASS = 'WINH'
25
** DOKLANGU = SY-LANGU
26
* DOKNAME = 'CATAB.HLP'
27
* DOKTITLE = ' '
28
* HOMETEXT = ' '
29
* OUTLINE = ' '
30
* VIEWNAME = 'STANDARD'
31
* Z_ORIGINAL_OUTLINE = ' '
32
* CALLED_FROM_SO70 = ' '
33
34
* APPL =
35
* PF03 =
36
* PF15 =
37
* PF12 =
38
* EXCEPTIONS
39
* CLASS_UNKNOWN = 1
40
* OBJECT_NOT_FOUND = 2
41
* OTHERS = 3.
42
IF SY-SUBRC NE 0.
43
MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO
44
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
45
ENDIF.
46
ENDFORM.