Former Member

Jun 11, 2007 at 12:22 PM

smartforms-avoid the form if no values are there

29 Views

Hi All,

iam printing 6 different forms at a time by writing the code in se38 like this.<b>But if any form doesnt have any value then i should avoid that form</b>. My total code is developed in forms only.Just by calling forms in se38 iam printing.

**********************************************************************

PROGRAM ID : YIBRK_TERMINATION_FORMS *
TITLE : Termination Statement Forms *
CREATE DATE: 15.02.2007 *
AUTHOR : SREDDY5(SRINIVAS REDDY) *

----

*

----

CHANGE HISTORY *

----

DATE | NAME | DESCRIPTION | REFERENCE *

----

*
*

----

*
*

**********************************************************************

REPORT yibrk_smartforms.

DATA: fm_name1 TYPE rs38l_fnam,

fm_name2 TYPE rs38l_fnam,

fm_name3 TYPE rs38l_fnam,

fm_name4 TYPE rs38l_fnam,

fm_name5 TYPE rs38l_fnam,

fm_name6 TYPE rs38l_fnam.

DATA: w_control LIKE ssfctrlop.

SELECTION-SCREEN : BEGIN OF BLOCK s_blk WITH FRAME TITLE text-000.

PARAMETERS : p_gin LIKE pa0002-pernr.

SELECTION-SCREEN : END OF BLOCK s_blk.

START-OF-SELECTION.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_SMARTFISPP'

IMPORTING

fm_name = fm_name1

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_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_SMARTFAVC'

IMPORTING

fm_name = fm_name2

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_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_SMARTFISPS'

IMPORTING

fm_name = fm_name3

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_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_SMARTFDMP'

IMPORTING

fm_name = fm_name4

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_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_SMARTFCSI_CTI'

IMPORTING

fm_name = fm_name5

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_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'YIBRK_TERMINATION_BANKING'

IMPORTING

fm_name = fm_name6

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.

w_control-no_open = 'X'.

w_control-no_close = 'X'.

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 =

.

CALL FUNCTION fm_name1

EXPORTING