sap调用smartforms

DATA: lv_formname TYPE tdsfname  VALUE 'ZSF_094',
        lv_fmname   TYPE  rs38l_fnam.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname = lv_formname
      IMPORTING
        fm_name  = lv_fmname.

    DATA: ls_control_param TYPE ssfctrlop,
          ls_output_option TYPE ssfcompop.
    CLEAR: ls_control_param,ls_output_option.
    ls_control_param-preview  = abap_true.
    ls_control_param-no_open  = abap_true.
    ls_control_param-no_close = abap_true.

    CALL FUNCTION 'SSF_OPEN'
      EXPORTING
        output_options     = ls_output_option
        control_parameters = ls_control_param
      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.

     CALL FUNCTION lv_fmname
       EXPORTING
         control_parameters = ls_control_param
         it_data           = lt_print
       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.
     CLEAR lt_out.
    CALL FUNCTION 'SSF_CLOSE'.