How to Display Multiple Copies of Smartform

 How to Display Multiple Copies of Smartform using SSF_OPEN and SSF_CLOSE function module.

DATA: JOB_OUTPUT_INFO    TYPE SSFCRESCL,

       CONTROL_PARAMETERS TYPE SSFCTRLOP,

       OUTPUT_OPTIONS     TYPE SSFCOMPOP.

   

   DATA: LV_FM_NAME TYPE RS38L_FNAM.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

  EXPORTING

    FORMNAME           = 'ZRP_SF1'

*   VARIANT            = ' '

*   DIRECT_CALL        = ' '

  IMPORTING

    FM_NAME            = LV_FM_NAME

  EXCEPTIONS

    NO_FORM            = 1

    NO_FUNCTION_MODULE = 2

    OTHERS             = 3.

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

CONTROL_PARAMETERS-PREVIEW = 'X'.

CONTROL_PARAMETERS-NO_DIALOG = 'X'.

CONTROL_PARAMETERS-NO_OPEN = 'X'.

CONTROL_PARAMETERS-NO_CLOSE = 'X'.

CALL FUNCTION 'SSF_OPEN'

 EXPORTING

*   ARCHIVE_PARAMETERS =

*   USER_SETTINGS      = 

*   MAIL_SENDER        =

*   MAIL_RECIPIENT     =

*   MAIL_APPL_OBJ      =

*   OUTPUT_OPTIONS     =

   CONTROL_PARAMETERS = 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.

* Implement suitable error handling here

ENDIF.

DATA : I TYPE INT4.

DO 3 TIMES.

I = I + 1.

 IF I = 1.

   WA_HEADER-PTEXT = 'ORIGINAL'.

 ELSEIF I = 2.

   WA_HEADER-PTEXT = 'DUPLICATE'.

 ELSE.

   WA_HEADER-PTEXT = 'TRIPLICATE'.

 ENDIF.

CALL FUNCTION LV_FM_NAME "'/1BCDWB/SF00000144'

  EXPORTING

*   ARCHIVE_INDEX      =

*   ARCHIVE_INDEX_TAB  =

*   ARCHIVE_PARAMETERS =

    CONTROL_PARAMETERS = CONTROL_PARAMETERS

*   MAIL_APPL_OBJ      =

*   MAIL_RECIPIENT     =

*   MAIL_SENDER        =

    OUTPUT_OPTIONS     = OUTPUT_OPTIONS

*   USER_SETTINGS      = 

    WA_HEADER          = WA_HEADER

    IT_ITEM            = IT_ITEM

*  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.

* Implement suitable error handling here

ENDIF.

ENDDO.

CALL FUNCTION 'SSF_CLOSE'

 IMPORTING

   JOB_OUTPUT_INFO        = JOB_OUTPUT_INFO

 EXCEPTIONS

   FORMATTING_ERROR       = 1

   INTERNAL_ERROR         = 2

   SEND_ERROR             = 3

   OTHERS                 = 4

          .

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.