How to pull the data into smartform after designing layout?

Question

how to pull the data into smartform after designing layout?

Answer 1

call the smartform in your Driver program and pass your output internal tables in the smartforms paramaters
Check the below Sample code.
FORM label_print.
  DATA : g_fm_name TYPE rs38l_fnam,
         g_output  TYPE ssfcompop,
         g_control TYPE ssfctrlop,
         g_form TYPE tdsfname VALUE 'ZPRINT_LABELS',
         g_dest TYPE rspopname,
         g_printer TYPE rspoptype..
  REFRESH : i_out[],i_qals[].
  SELECT matnr maktx
         INTO TABLE i_out
         FROM makt
         FOR ALL ENTRIES IN i_mseg
         WHERE matnr = i_mseg-matnr
         AND   spras = sy-langu.
  SELECT prueflos objnr ersteldat erstelzeit matnr revlv charg mengeneinh
         INTO TABLE i_qals
         FROM qals
         FOR ALL ENTRIES IN i_mseg
         WHERE matnr = i_mseg-matnr
         AND   charg = i_mseg-charg.
*FM to accept the device type and returns the short name of the output device
  CALL FUNCTION 'EFG_GET_PRINTER'
    EXPORTING
      x_no_dialog  = ' '
      x_obligatory = 'X'
    IMPORTING
      y_tddest     = g_dest
    EXCEPTIONS
      cancelled    = 1
      failed       = 2
      OTHERS       = 3.
*device type name for the output device
  SELECT SINGLE patype                                  "#EC CI_NOFIELD
         FROM tsp03d
         INTO g_printer
         WHERE padest = g_dest.
*printer setting
  g_control-no_dialog = 'X'.
  g_output-tdarmod = '1'.
  g_output-tdcopies = '001'.
  g_output-tddest = g_dest.
  g_output-tdprinter = g_printer.
  g_output-tdnewid = 'X'.
  g_output-tdimmed = 'X'.
  CLEAR wa_mseg.
  LOOP AT i_mseg INTO wa_mseg.
    READ TABLE i_out INTO wa_out WITH KEY matnr = wa_mseg-matnr.
check for the status and filter the records
    CLEAR : wa_qals.
    LOOP AT i_qals INTO wa_qals WHERE matnr = wa_mseg-matnr
                                AND charg = wa_mseg-charg.
      CALL FUNCTION 'STATUS_TEXT_EDIT'
        EXPORTING
          objnr            = wa_qals-objnr
          spras            = sy-langu
        IMPORTING
          line             = l_status
        EXCEPTIONS
          object_not_found = 1
          OTHERS           = 2.
      IF l_status CS 'LTCA' OR l_status CS 'SKIP'.
        DELETE i_qals.
      ENDIF.
    ENDLOOP.
    SORT i_qals BY ersteldat DESCENDING erstelzeit DESCENDING.
    IF i_qals IS INITIAL.
      l_msg = text-002.
    ELSE.
      READ TABLE i_qals INTO wa_qals INDEX 1.
      SELECT prueflos vbewertung
             INTO TABLE i_qave
             FROM qave
             WHERE prueflos = wa_qals-prueflos
             AND   kzart = 'L'.
      IF sy-subrc <> 0.
        l_msg1 = text-003.
      ENDIF.
      SORT i_qave.
      CLEAR : wa_qave.
      IF NOT i_qave IS INITIAL.
        READ TABLE i_qave INTO wa_qave INDEX 1.
        IF wa_qave-vbewertung = 'A'.
          l_msg = text-002.
        ELSEIF wa_qave-vbewertung = 'R'.
          l_msg1 = text-003.
        ELSE.
          l_msg1 = text-003.
        ENDIF.
      ENDIF.
    ENDIF.
    CLEAR : wa_ser03.
    READ TABLE i_ser03 INTO wa_ser03 WITH KEY mblnr = wa_mseg-mblnr.
*Calling Smartform
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = g_form
      IMPORTING
        fm_name            = g_fm_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.
    LOOP AT i_objk INTO wa_objk WHERE obknr = wa_ser03-obknr.
*Calling FM generated from the smartform
      DATA : l_date(10) TYPE c,
             l_date1(10) TYPE c,
             l_date2(10) TYPE c,
             l_date3(10) TYPE c,
             l_hyphen(1) TYPE c VALUE '-'.
      CLEAR : l_date,l_date1,l_date2,l_date3.
      l_date1 = wa_mseg-vfdat+0(4).
      l_date2 = wa_mseg-vfdat+4(2).
      l_date3 = wa_mseg-vfdat+6(2).
      CONCATENATE l_date1 l_hyphen l_date2 l_hyphen l_date3 INTO l_date.
      CALL FUNCTION g_fm_name
        EXPORTING
          control_parameters = g_control
          output_options     = g_output
          user_settings      = ' '
          g_matnr            = wa_mseg-matnr
          g_mat_text         = wa_out-maktx
          g_batch            = wa_mseg-charg
          g_rev              = wa_qals-revlv
          g_edate            = l_date
          g_lot              = wa_qals-prueflos
          g_qty              = wa_mseg-erfmg
          g_uom              = wa_mseg-erfme
          g_serial           = wa_objk-sernr
          g_smsg             = l_msg
          g_fmsg             = l_msg1
        EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          OTHERS             = 5.
      CLEAR  g_output-tdnewid.
    ENDLOOP.
    IF sy-subrc <> 0.
      CLEAR : l_date,l_date1,l_date2,l_date3.
      l_date1 = wa_mseg-vfdat+0(4).
      l_date2 = wa_mseg-vfdat+4(2).
      l_date3 = wa_mseg-vfdat+6(2).
      CONCATENATE l_date1 l_hyphen l_date2 l_hyphen l_date3 INTO l_date.
      CALL FUNCTION g_fm_name
        EXPORTING
          control_parameters = g_control
          output_options     = g_output
          user_settings      = ' '
          g_matnr            = wa_mseg-matnr
          g_mat_text         = wa_out-maktx
          g_batch            = wa_mseg-charg
          g_rev              = wa_qals-revlv
          g_edate            = l_date
          g_lot              = wa_qals-prueflos
          g_qty              = wa_mseg-erfmg
          g_uom              = wa_mseg-erfme
          g_serial           = wa_objk-sernr
          g_smsg             = l_msg
          g_fmsg             = l_msg1
        EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4
          OTHERS             = 5.
      CLEAR g_output-tdnewid.
    ENDIF.
  ENDLOOP.
  IF sy-subrc = 0.
    MESSAGE i000(zm).
  ENDIF.
ENDFORM.                    " label_print