Skip to Content
0
Former Member
Nov 16, 2011 at 06:41 AM

Processing routine ENTRY in program ZRVADIN0111 does not exist for smartfor

1480 Views

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.