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.