‎2019 Mar 22 12:04 PM
REPORT ZTEST.
TABLES : LFA1,LFBK,ACDOCA.
TYPES : begin of TY_FINAL,
DATE type LFA1-ERDAT,
BENIF_NAME TYPE LFA1-NAME1,
BENIF_ACNO TYPE LFBK-BANKN,
CONF_BENIF_ACNO TYPE LFBK-BANKN,
BENIF_BANK TYPE LFA1-NAME1,
BENIF_BRANCH TYPE LFA1-NAME1,
BENIF_IFSC TYPE LFBK-BANKL,
BENIF_CITY TYPE LFA1-ORT01,
BENIF_AMT_RS TYPE PC207-BETRG,
BENIF_AMT_WRD(100) TYPE c,
end of TY_FINAL.
DATA : IT_FINAL TYPE TABLE OF TY_FINAL,
WA_FINAL TYPE TY_FINAL.
DATA: FNAME TYPE rs38l_fnam.
SELECTION-SCREEN:BEGIN OF BLOCK TEST2 WITH FRAME TITLE text-002.
PARAMETERS : P_DATE TYPE LFA1-ERDAT,
P_B_NAME TYPE LFA1-NAME1,
P_ACNO TYPE LFBK-BANKN,
P_CACNO TYPE LFBK-BANKN,
P_BANK TYPE LFA1-NAME1,
P_BRAN TYPE LFA1-NAME1,
P_IFSC TYPE LFBK-BANKL,
P_CITY TYPE LFA1-ORT01,
P_AMRRS TYPE PC207-BETRG.
SELECTION-SCREEN : END OF BLOCK TEST2.
AT SELECTION-SCREEN.
IF NOT P_ACNO EQ P_CACNO.
MESSAGE 'Beneficiary A/C Number & Confirm A/c Number Not Same !!!' TYPE 'E'.
ENDIF.
DATA WORDS(100) TYPE C.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM = P_AMRRS
IMPORTING
AMT_IN_WORDS = WORDS
EXCEPTIONS
DATA_TYPE_MISMATCH = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
WA_FINAL-DATE = P_DATE.
WA_FINAL-BENIF_NAME = P_B_NAME.
WA_FINAL-BENIF_ACNO = P_ACNO.
WA_FINAL-CONF_BENIF_ACNO = P_CACNO.
WA_FINAL-BENIF_BANK = P_BANK.
WA_FINAL-BENIF_BRANCH = P_BRAN.
WA_FINAL-BENIF_IFSC = P_IFSC.
WA_FINAL-BENIF_CITY = P_CITY.
WA_FINAL-BENIF_AMT_RS = P_AMRRS.
WA_FINAL-BENIF_AMT_WRD = WORDS.
INSERT WA_FINAL INTO TABLE IT_FINAL.
*WA_FINAL-BENIF_AMT_RS = P_AMRRS.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZRTGS_PRINTING'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = FNAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
CALL FUNCTION FNAME
* EXPORTING
* WA_FINAL = WA_FINAL
TABLES
LT_FINAL = IT_FINAL
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.
IN THE STAMART FORMS I HAD JUST ADDED :
FORM INTERFACE->IMPORT
IT_FINAL LIKE ZRTGS
‎2019 Mar 22 1:23 PM
Where exactly are you getting this issue? It could be simple mistake, if you debug or by looking at the FM import/tables parameters you could solve it yourself.
‎2019 Mar 23 3:35 AM
‎2019 Mar 25 1:49 AM
it said parameter missing, did you check your smartform interface yet?
‎2019 Mar 25 3:32 AM
‎2019 Mar 26 6:44 AM
you define it in import tab but you call it under table parameter so you got dump.
‎2019 Mar 25 10:20 AM