1 *&---------------------------------------------------------------------*
2 *& Report ZHAIM_FORM_TEST
3 *&
4 *&---------------------------------------------------------------------*
5 *&
6 *&
7 *&---------------------------------------------------------------------*
8
9 REPORT ZHAIM_FORM_TEST.
10
11 DATA: FM_NAME TYPE RS38l_FNAM.
12
13 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
14 EXPORTING
15 FORMNAME = 'ZHAIMTEXT_001'
16 * VARIANT = ' '
17 * DIRECT_CALL = ' '
18 IMPORTING
19 FM_NAME = FM_NAME
20 * EXCEPTIONS
21 * NO_FORM = 1
22 * NO_FUNCTION_MODULE = 2
23 * OTHERS = 3
24 .
25 IF SY-SUBRC <> 0.
26 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
27 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
28 ENDIF.
29
30 CALL FUNCTION FM_NAME
31 * EXPORTING
32 * ARCHIVE_INDEX =
33 * ARCHIVE_INDEX_TAB =
34 * ARCHIVE_PARAMETERS =
35 * CONTROL_PARAMETERS =
36 * MAIL_APPL_OBJ =
37 * MAIL_RECIPIENT =
38 * MAIL_SENDER =
39 * OUTPUT_OPTIONS =
40 * USER_SETTINGS = 'X'
41 * IMPORTING
42 * DOCUMENT_OUTPUT_INFO =
43 * JOB_OUTPUT_INFO =
44 * JOB_OUTPUT_OPTIONS =
45 * EXCEPTIONS
46 * FORMATTING_ERROR = 1
47 * INTERNAL_ERROR = 2
48 * SEND_ERROR = 3
49 * USER_CANCELED = 4
50 * OTHERS = 5
51 .
52 IF SY-SUBRC <> 0.
53 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
54 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
55 ENDIF.