Skip to Content
0
Oct 03, 2011 at 11:31 AM

Raise_Excetion "NO_TVDIR_ENTRY"

161 Views

Hello All,

Friends I am getting Raise_Excetion Dump Regularly with u201CNO_TVDIR_ENTRYu201D. But this entry is exist in the Function module u201CVIEW_GET_DDIC_INFOu201D under Exceptions Option, which I am using in the Main Program.

Program Name: Z_XS_QMS_MAINT

Include Name: SAPLSVIX

Function Module Name: VIEW_GET_DDIC_INFO

Coding Part:

000080 FORM read_tvdir USING table CHANGING maintview LIKE tvdir-tabname.

000090 DATA: rt_objtyp LIKE objh-objecttype,

000100 missing_tvdir_entry(1) TYPE c.

000110 SELECT SINGLE * FROM tvdir WHERE tabname EQ table.

000120 IF sy-subrc NE 0. "Subviews ..

000130 missing_tvdir_entry = 'X'.

000140 IF dd25l-viewname <> table.

000150 SELECT * FROM dd25l WHERE viewname = table AND as4local = 'A'.

000160 EXIT.

000170 ENDSELECT.

000180 ELSEIF dd25l-viewclass = 'V'.

000190 CLEAR sy-subrc.

000200 ENDIF.

000210 IF sy-subrc = 0 AND dd25l-viewclass = 'V'.

000220 SELECT SINGLE * FROM tvdir WHERE tabname EQ dd25l-roottab.

000230 IF sy-subrc = 0. CLEAR missing_tvdir_entry. ENDIF.

000240 ENDIF.

000250 ENDIF. ".. Subviews

000260 * if sy-subrc ne 0.

000270 IF missing_tvdir_entry = 'X'.

000280 CLEAR last_tvdir_view.

-


> RAISE no_tvdir_entry.

000300 ELSE.

000310 maintview = tvdir-tabname. "Subviews

000320 ENDIF.

000330 rt_objtyp = tvdir-bastab. TRANSLATE rt_objtyp USING ' VXS'.

000340 SELECT SINGLE * FROM objh WHERE objectname = table

000350 AND objecttype = rt_objtyp.

000360 IF sy-subrc NE 0. CLEAR objh. ENDIF.

000370 ENDFORM. "read_tvdir

Kindly help me to solve this issue. If any one has any SAP Note Regarding this Issue Please tells me.

Thanks and Regards,

Rahul Asthana.