ABAP 程序调用FORM

 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.