KEMBAR78
Smartform Program | PDF | Computers | Technology & Engineering
Scribd
Upload
34 views2 pages

Smartform Program

This document contains an ABAP report that retrieves data from the ZMSI_ADDR and ZMSI_FORM tables based on input parameters for city and start date. It calls functions to get the name of the form module and then calls that module to process the retrieved form and address data.

Uploaded by

Subodh Kant
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
34 views2 pages

Smartform Program

This document contains an ABAP report that retrieves data from the ZMSI_ADDR and ZMSI_FORM tables based on input parameters for city and start date. It calls functions to get the name of the form module and then calls that module to process the retrieved form and address data.

Uploaded by

Subodh Kant
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 2

*&---------------------------------------------------------------------*

*& Report ZMSI_FORM


*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZMSI_FORM.

data : it_form type TABLE OF ZMSI_FORM,


wa_form type ZMSI_Form.
Data : wa_addr type zmsi_addr.

PArameter city type ort01.


parameter sdate type datum.
data : FMODULE type rs38l_FNAM.

select SINGLE * from ZMSI_ADDR into Wa_addr where city = city.

select * from ZMSI_FORM into TABLE IT_FORM where sdate = sdate.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'


EXPORTING
FORMNAME = 'ZMSI_SMARTFORTM'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = FMODULE
* 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 FMODULE


EXPORTING
WA_ADDR = wa_addr
IT_FORM = IT_form
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

You might also like