Hi ,
This is the log , I am getting in vf02 ..
==========log==============
Message Text
Processing routine ENTRY in program ZRVADIN0111 does not exist
Technical Data
Message type__________ E (Error)
Message class_________ VN (Output control)
Message number________ 068
Message variable 1____ ENTRY
Message variable 2____ ZRVADIN0111
Message variable 3____
Message variable 4____
Message Attributes
Level of detail_______
Problem class_________ 0
Sort criterion________
Number________________ 1
======================================end log========================
My driver program is same as below and form is ZSUNDRY_INVOICES_VENU'
================my driver program ===================
&----
*& Report ZRVADIN0111
*&
&----
*&
*&
REPORT ZRVADIN0111.
TABLES : nast.
*TYPES : BEGIN OF ty_header,
vbeln TYPE vbeln_vf,
fkdat TYPE fkdat,
XBLNR TYPE XBLNR_V1,
STCEG TYPE STCEG,
kunrg TYPE KUNRG,
name1 TYPE AD_NAME1,
city1 TYPE AD_CITY1,
post_code1 TYPE AD_PSTCD1,
street TYPE AD_STREET,
total TYPE NETWR_FP,
END OF ty_header.
DATA : sum TYPE i VALUE '0'.
*
*TYPES : BEGIN OF ty_item,
matnr TYPE matnr,
arktx TYPE arktx,
fkimg TYPE fkimg,
VRKME TYPE VRKME,
netwr TYPE NETWR_FP,
MWSBP TYPE MWSBP,
unipr TYPE NETWR_FP,
*
*
END OF ty_item.
DATA : gs_header TYPE zsd_inv_header,
it_item TYPE STANDARD TABLE OF zsd_inv_items.
FIELD-SYMBOLS : <fs_item> TYPE zsd_inv_items.
DATA : gv_adrnr TYPE adrnr.
*data: s_vbeln type vbeln_vf.
*
*select-options : so_vbeln for s_vbeln.
*START-OF-SELECTION.
*form entry.
*--- Get header
SELECT SINGLE vbeln fkdat xblnr stceg kunrg bukrs
FROM vbrk INTO gs_header
WHERE vbeln = nast-objky.
SELECT matnr arktx fkimg vrkme netwr mwsbp
INTO CORRESPONDING FIELDS OF TABLE it_item
FROM vbrp WHERE vbeln = gs_header-vbeln.
LOOP AT it_item ASSIGNING <fs_item>.
<fs_item>-unipr = <fs_item>-netwr / <fs_item>-fkimg.
sum = sum + <fs_item>-netwr.
ENDLOOP .
gs_header-total = sum.
CLEAR : gv_adrnr.
SELECT SINGLE adrnr FROM kna1 INTO gv_adrnr WHERE kunnr = gs_header-kunrg.
SELECT SINGLE name1 city1 post_code1 street FROM adrc
INTO (gs_header-name1,gs_header-city1,gs_header-post_code1,gs_header-street)
WHERE ADDRNUMBER = gv_adrnr.
*end-OF-SELECTION.
data: fm_name type rs38l_fnam.
***********
****calling entry routine
**
*FORM entry USING return_code us_screen.
*
CLEAR retcode.
xscreen = us_screen.
PERFORM processing USING us_screen.
CASE retcode.
WHEN 0.
return_code = 0.
WHEN 3.
return_code = 3.
WHEN OTHERS.
return_code = 1.
ENDCASE.
*
*ENDFORM. "entry
*
calling smartfrom from ABAP
*
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSUNDRY_INVOICES_VENU'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
if sy-subrc <> 0.
WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
CALL FUNCTION fm_name
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IS_HEADER = gs_header
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
IT_ITEMS = it_item
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.
*
*call function FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
GS_MKPF = INT_MKPF
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.
end of call function module from abap
*endform.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
can any body help me with proper code , i have to insert in driver program ..to retify error ...
thanks
Regards,
Venu.