URGENT: Regarding CALL FUNCTION 'GET_FIELDNAME_TEXT_1

Question

hi,
i have made a report in which i am displaying changes to material and it is giving runtime error and it is saying :-
A RAISE statement in the program "SAPLMASS_GENERAL_UTILITIES" raised the
exception
condition "NOT_FOUND".
Since the exception was not intercepted by a superior
program, processing was terminated..
as i am using FUNCTION 'GET_FIELDNAME_TEXT_1.
plzz help me out by providing solution of it as help will be definately rewarded.

Answer 1

hi venkat,
i had tried what u said but it is still giving runtime error.
here is code which i had developed and letme know is dere any problem ? It is displaying the changes made to material ina month.
*& Report  ZNEW02
REPORT  ZNEW02 no standard page heading LINE-SIZE 200.
TABLES:   MARA,CDHDR,CDPOS.
DATA: BEGIN OF ITSTPO OCCURS 0,
     MATNR   LIKE STPO-STLNR,
     WERKS LIKE MAST-WERKS,
      MATNR LIKE MARA-MATNR,
      MAKTX LIKE MAKT-MAKTX,
      WERKS LIKE MARC-WERKS,
      objectid like cdhdr-objectid,
      changenr like cdhdr-changenr,
      udate like cdhdr-udate,
      TCODE LIKE CDHDR-TCODE,
      USERNAME LIKE CDHDR-USERNAME,
      NEW_VALUE LIKE CDPOS-VALUE_NEW,
      OLD_VALUE LIKE CDPOS-VALUE_OLD,
      FNAME LIKE CDPOS-FNAME,
      DDTEXT LIKE DD04V-DDTEXT,
      TABNAME LIKE CDPOS-TABNAME,
      END OF ITSTPO.
DATA: E_DD04V LIKE DD04V OCCURS 0 WITH HEADER LINE.
DATA: E_DD03L LIKE DD03L OCCURS 0 WITH HEADER LINE.
data: begin of itcdhdr occurs 0,
      objectid like cdhdr-objectid,
      changenr like cdhdr-changenr,
      udate like cdhdr-udate,
      TCODE LIKE CDHDR-TCODE,
      USERNAME LIKE CDHDR-USERNAME,
      end of itcdhdr.
DATA: BEGIN OF ITCDPOS OCCURS 0,
      OBJECTID LIKE CDPOS-OBJECTID,
      CHANGENR LIKE CDPOS-CHANGENR,
      NEW_VALUE LIKE CDPOS-VALUE_NEW,
      OLD_VALUE LIKE CDPOS-VALUE_OLD,
      FNAME LIKE CDPOS-FNAME,
      TABNAME LIKE CDPOS-TABNAME,
      END OF ITCDPOS.
****************end of all internal table declarations************************************************
parameters: werks like MARC-werks obligatory.
select-options: date for cdhdr-udate obligatory.
select objectid changenr udate TCODE USERNAME into table itcdhdr from cdhdr
      where objectclas = 'MATERIAL'AND UDATE IN DATE and ( tcode = 'MM02').
     or tcode = 'MM01' ).
if sy-subrc <> 0.
  message 'No record exist' type 'E'.
endif.
DELETE ADJACENT DUPLICATES FROM ITCDHDR COMPARING CHANGENR.
SELECT OBJECTID CHANGENR VALUE_NEW VALUE_OLD FNAME TABNAME FROM CDPOS INTO TABLE ITCDPOS
  FOR ALL ENTRIES IN ITCDHDR WHERE OBJECTID = ITCDHDR-OBJECTID AND CHANGENR = ITCDHDR-CHANGENR  AND FNAME NOT IN ('AENDERER', 'AEDAT', 'AEUZEIT','AENDERDAT').
WRITE: / 'ITEMID                   DESCRIPTION                    CHG.PERSON          CHG.DATE     TCODE                   NEW VALUE                                 OLD VALUE             CHANGE MADE TO'.
ULINE.
DATA V_STLNR LIKE MARA-MATNR.
  LOOP AT ITCDPOS.
  CLEAR V_STLNR.
  V_STLNR = ITCDPOS-OBJECTID+4(11).
  READ TABLE ITCDHDR WITH KEY OBJECTID = ITCDPOS-OBJECTID CHANGENR = ITCDPOS-CHANGENR.
  SELECT SINGLE AMATNR BMAKTX C~WERKS FROM MARA AS A
     INNER JOIN MAST AS B ON BSTLNR = ASTLNR
            INNER JOIN MAKT AS B ON BMATNR = AMATNR
              INNER JOIN MARC AS C ON CMATNR = AMATNR
    INTO ITSTPO
    WHERE A~MATNR = V_STLNR.
  ITSTPO-OBJECTID = ITCDPOS-OBJECTID.
  ITSTPO-CHANGENR = ITCDPOS-CHANGENR.
  ITSTPO-NEW_VALUE = ITCDPOS-NEW_VALUE.
  ITSTPO-OLD_VALUE = ITCDPOS-OLD_VALUE.
  ITSTPO-UDATE = ITCDHDR-UDATE.
  ITSTPO-TCODE = ITCDHDR-TCODE.
  ITSTPO-USERNAME = ITCDHDR-USERNAME.
  ITSTPO-FNAME = ITCDPOS-FNAME.
  ITSTPO-TABNAME = ITCDPOS-TABNAME.
    IF ITCDPOS-FNAME <> 'KEY'.
clear e_dd04v.
    CALL FUNCTION 'GET_FIELDNAME_TEXT_1'
      EXPORTING
       I_AS4LOCAL                = 'A'
      I_AS4VERS                 = '0000'
       I_FIELDNAME               = ITCDPOS-FNAME
       I_TABNAME                 = ITCDPOS-TABNAME
      TABLES
       E_DD03L                   = E_DD03L
       E_DD04V                   = E_DD04V
    EXCEPTIONS
    ERROR_IN_PARAMETERS       = 1
    NOT_FOUND                 = 2
    OTHERS                    = 3
  ENDIF.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  CLEAR E_DD04V-DDTEXT.
ENDIF.
  IF ITCDPOS-FNAME = 'KEY'.
    ITSTPO-DDTEXT = 'New Entry Made'.
  ELSE.
    ITSTPO-DDTEXT = E_DD04V-DDTEXT.
  ENDIF.
  CLEAR E_DD04V.
  APPEND ITSTPO.
SORT ITSTPO BY MATNR OBJECTID CHANGENR FNAME.
DELETE ADJACENT DUPLICATES FROM ITSTPO COMPARING MATNR OBJECTID CHANGENR FNAME.
*DELETE ITSTPO WHERE MATNR EQ SPACE.
WRITE : /  ITSTPO-OBJECTID+11(11),16 ITSTPO-MAKTX,66 ITSTPO-USERNAME,83 ITSTPO-UDATE,97 ITSTPO-TCODE,110 ITSTPO-OLD_VALUE,164 ITSTPO-NEW_VALUE,184 ITSTPO-DDTEXT.
ENDLOOP.