Skip to Content
1
Former Member
Feb 24, 2009 at 08:15 AM

What is the use of fms SSF_OPEN and SSF_CLOSE

5751 Views

hi to all experts,

im printing one material id per page .i want the dialog box for printing appear just once and all the records should be printed for that i have used ssf_open and ssf_close. but still the dialog box is coming.Is my code correct

form print_smartform1X3.

 DATA : fm_name TYPE RS38L_FNAM.
*
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname                 = 'ZMM_IM_001'

   IMPORTING
     FM_NAME                  = fm_name
   EXCEPTIONS
     NO_FORM                  = 1
     NO_FUNCTION_MODULE       = 2
     OTHERS                   = 3
            .
  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 'SSF_OPEN'
*   EXPORTING
*     ARCHIVE_PARAMETERS       =
*     USER_SETTINGS            = 'X'
*     MAIL_SENDER              =
*     MAIL_RECIPIENT           =
*     MAIL_APPL_OBJ            =
*     OUTPUT_OPTIONS           =
*     CONTROL_PARAMETERS       =
*   IMPORTING
*     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.


LOOP AT it_smart INTO wa_smart.



CALL FUNCTION fm_name
  EXPORTING
    wa_display                 = wa_smart

 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 wa_smart.
ENDLOOP.

CALL FUNCTION 'SSF_CLOSE'
* IMPORTING
*   JOB_OUTPUT_INFO        =
* EXCEPTIONS
*   FORMATTING_ERROR       = 1
*   INTERNAL_ERROR         = 2
*   SEND_ERROR             = 3
*   OTHERS                 = 4
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endform.                    " print_smart

form2x4

Edited by: mozam khan on Feb 24, 2009 9:15 AM