cancel
Showing results for 
Search instead for 
Did you mean: 
Subscribe

Hi Experts,

How to call smartform FM after using SSF_FUNCTION_MODULE_NAME?

I mean, in driver program i called SSF_FUNCTION_MODULE_NAME to get the related FM for my smart form. after that How do I call it(smartform fm) . I tried to call by pressing PATTERN button in Report. but it is showing FM is not exist error.

Call function SSF_FUNCTION_MODULE_NAME

Export

formname = 'zsmartform'

import

fm_name = function_name.

function_name is stored the corresponding smartform fm. then How do i call it to process my smartform?

thanks in advance.

0 Likes
View Entire Topic
Former Member
0 Likes

hi,

Chk this sample.

DATA: p_output_options TYPE ssfcompop, "occurs 0 with header line
p_control_parameters TYPE ssfctrlop. "occurs 0 with header line

p_output_options-TDCOPIES = 3. "number of copies.
p_output_options-tddest = 'LP01'. "def


p_control_parameters-no_dialog = 'X'. "no dilog box
p_control_parameters-preview = 'X'. "no preview


DATA : v_form_name TYPE rs38l_fnam.

*---- Function to get the function module name of the    ----
*---- specified Smart form.                              ----


CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'GIVE YOUR SMART FORM NAME'    
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = v_form_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3 .

*---- Function Module to call the Smart Form          ----


*step 1 - go to ur smart form
*step2 - take environment
*step3-take function module name
*copy that unique number.
*step4 -come back to ur driver program.
*step5 - place ur cursur here. take patter,.give that unique number.
*at that time u will get the below code.
*step6 - rename that unique number with 'v_form_name' in the code generated by pattern.

CALL FUNCTION v_form_name
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_PARAMETERS =
control_parameters = p_control_parameters
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
output_options = p_output_options
user_settings = ' '
* ARCHIVE_INDEX_TAB =
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

for any clarifiaction pls revert.

regards,

Reshma

Former Member
0 Likes

Thanks experts,

I cleared and rewarded marks according to answers