Skip to Content
0
Former Member
Sep 10, 2007 at 01:59 PM

smartforms

16 Views

hi,

I am working with one smartform.My Zprogram is as follows .........but when I am trying to execute it the program is going to dump at the function module.........what is the problem..........?Can anyone help me out.......

Thanks in advance

Zprogram for a smartform

tables:gmgr,proj,prps.

PARAMETERS: p_gnbr like gmgr-grant_nbr.

data:

l_wbs_element like gmgr-wbs_element.

data: t_prps type prps.

data fm_name type RS38L_FNAM.

*Read WBS element

SELECT single wbs_element into l_wbs_element

FROM gmgr

WHERE grant_nbr = p_gnbr.

if sy-subrc = 0.

SELECT single * into t_prps

FROM prps

WHERE pspnr = l_wbs_element.

endif.

call function 'SSF_FUNCTION_MODULE_NAME'

exporting formname = 'ZRMPS_GM_PAF'

  • variant = ' '

  • direct_call = ' '

importing fm_name = FM_NAME

exceptions no_form = 1

no_function_module = 2

others = 3.

if sy-subrc <> 0.

  • error handling

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

exit.

endif.

call function '/1BCDWB/SF00000006'

EXPORTING

  • ARCHIVE_INDEX =

  • ARCHIVE_INDEX_TAB =

  • ARCHIVE_PARAMETERS =

  • CONTROL_PARAMETERS =

  • MAIL_APPL_OBJ =

  • MAIL_RECIPIENT =

  • MAIL_SENDER =

  • OUTPUT_OPTIONS =

  • USER_SETTINGS = 'X'

t_prps = t_prps

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

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.