Regarding field description in report

Question

HI,
I had made a report in which i am displaying the changes made to a material in a purticular month.
it is working fine but 1 field i am looking for is d description which is similar to MM04 tcode when we execute there is field called field description and i want to display it my report also.plzz help me out as it is really urgent to me..
here is d code:-
REPORT ZNEW01 no standard page heading LINE-SIZE 310.
TABLES: cdhdr,cdpos.
DATA : BEGIN OF itab OCCURS 0,
objectclas LIKE cdhdr-objectclas,
objectid LIKE cdhdr-objectid,
username LIKE cdhdr-username,
udate LIKE cdhdr-udate,
utime LIKE cdhdr-utime,
tcode LIKE cdhdr-tcode,
change_ind LIKE cdhdr-change_ind,
changenr LIKE cdhdr-changenr,
END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
objectid LIKE cdpos-objectid,
changenr LIKE cdpos-changenr,
fname LIKE cdpos-fname,
chngind LIKE cdpos-chngind,
value_new LIKE cdpos-value_new,
value_old LIKE cdpos-value_old,
TABKEY LIKE CDPOS-TABKEY,
END OF itab1.
DATA : BEGIN OF it_final OCCURS 0,
        objectclas LIKE cdhdr-objectclas,
        objectid   LIKE cdhdr-objectid,
        username   LIKE cdhdr-username,
        udate      LIKE cdhdr-udate,
        utime      LIKE cdhdr-utime,
        tcode      LIKE cdhdr-tcode,
        change_ind LIKE cdhdr-change_ind,
        changenr   LIKE cdhdr-changenr,
        fname LIKE cdpos-fname,
        chngind LIKE cdpos-chngind,
        value_new LIKE cdpos-value_new,
        value_old LIKE cdpos-value_old,
        TABKEY LIKE CDPOS-TABKEY,
     end of it_final.
select-options : m_date for cdhdr-udate.
SELECT objectclas objectid username udate utime tcode change_ind changenr
      FROM cdhdr
      INTO TABLE itab WHERE objectclas = 'MATERIAL' AND
                            change_ind = 'U' AND
                                 udate IN m_date.
IF NOT itab[] IS INITIAL.
SELECT objectclas objectid changenr fname chngind value_new value_old TABKEY
        FROM cdpos
        INTO TABLE itab1
        FOR ALL ENTRIES IN itab
        WHERE changenr = itab-changenr and chngind = itab-change_ind.
ENDIF.
LOOP AT itab1.
READ TABLE itab WITH KEY changenr = itab1-changenr.
it_final-objectid = itab-objectid.
it_final-username = itab-username.
it_final-udate    = itab-udate.
it_final-utime     = itab-utime.
it_final-tcode    =  itab-tcode.
it_final-fname    =  itab1-fname.
it_final-chngind  = itab1-chngind.
it_final-value_old =  itab1-value_old.
it_final-value_new =  itab1-value_new.
it_final-TABKEY = itab1-TABKEY.
APPEND it_final.
CLEAR it_final.
ENDLOOP.
uline.
write: / 'ITEMID    C.PERSON     C.DATE      C.TIME   TCODE     OLD VALUE                              NEW VALUE                                   ORG.UNIT'.
uline.
loop at it_final.
write : / it_final-objectid11(11),12 it_final-username,22 it_final-udate,35 it_final-utime,45 it_final-tcode,55 it_final-value_old,94 it_final-value_new,139 it_final-tabkey21(5).
endloop.
Edited by: ric .s on Feb 21, 2008 11:48 AM
Edited by: ric .s on Feb 21, 2008 12:33 PM
Edited by: Alvaro Tejada Galindo on Feb 21, 2008 3:24 PM

Answer 1

CASE ausg-tabname.
              WHEN 'DPROW'.
                MOVE indtext TO ls_alv_display_position-action.
                CLEAR lv_orgunit.
                CONCATENATE text-029 space ausg-tabkey(4)
                                      INTO lv_orgunit RESPECTING BLANKS.
                MOVE lv_orgunit TO ls_alv_display_position-orgunit.
                MOVE text-027 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE priod TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE priod TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DGESV'.
                MOVE indtext TO ls_alv_display_position-action.
                CLEAR lv_orgunit.
                CONCATENATE text-029 space ausg-tabkey(4)
                                      INTO lv_orgunit RESPECTING BLANKS.
                MOVE lv_orgunit TO ls_alv_display_position-orgunit.
                MOVE text-030 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE priod TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE priod TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DUNGV'.
                MOVE indtext TO ls_alv_display_position-action.
                CLEAR lv_orgunit.
                CONCATENATE text-029 space ausg-tabkey(4)
                                      INTO lv_orgunit RESPECTING BLANKS.
                MOVE lv_orgunit TO ls_alv_display_position-orgunit.
                MOVE text-031 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE priod TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE priod TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMKAL'.
                MOVE indtext TO ls_alv_display_position-action.
                CLEAR lv_orgunit.
                CONCATENATE text-029 space ausg-tabkey(4) space
                            text-050 space ausg-tabkey+4(4)
                                      INTO lv_orgunit RESPECTING BLANKS.
                MOVE lv_orgunit TO ls_alv_display_position-orgunit.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMAKT'.
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-025 TO ls_alv_display_position-description.
                MOVE <key> TO ls_alv_display_position-additional_info.
                IF indtext NE text-013.
                  APPEND ls_alv_display_position TO
                                          lt_alv_display_position.
                  CLEAR ls_alv_display_position.
                ENDIF.
              WHEN 'DMARM'.
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-026 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMEAN'.
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-051 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMAEX'.
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-068 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMAPE'.                                 "ch zu 30e
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-067 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN 'DMLAN'.
                MOVE indtext TO ls_alv_display_position-action.
                MOVE text-052 TO ls_alv_display_position-description.
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
              WHEN OTHERS.
                MOVE indtext TO ls_alv_display_position-action.
                CASE ausg-tabname.
                  WHEN 'MARA'.
                    MOVE text-055 TO
                                  ls_alv_display_position-description.
                  WHEN 'MARC'.
                    MOVE text-056 TO
                                  ls_alv_display_position-description.
                  WHEN 'MARD'.
                    MOVE text-057 TO
                                  ls_alv_display_position-description.
                  WHEN 'MLGN'.
                    MOVE text-058 TO
                                  ls_alv_display_position-description.
                  WHEN 'MLGT'.
                    MOVE text-059 TO
                                  ls_alv_display_position-description.
                  WHEN 'MBEW'.
                    MOVE text-064 TO
                                  ls_alv_display_position-description.
                  WHEN 'MVKE'.
                    MOVE text-063 TO
                                  ls_alv_display_position-description.
                    include /nfm/m03a1.                           "/NFM/
                  WHEN 'MPOP'.
                    MOVE text-065 TO
                                  ls_alv_display_position-description.
                  WHEN OTHERS.
                    MOVE ausg-tabname TO
                                  ls_alv_display_position-description.
                ENDCASE.
                include /nfm/m03a3.                               "/NFM/
                if ausg-tabname(6) ne '/NFM/T'.                   "/NFM/
                  write: 55 <key>.                                "/NFM/
                endif.                                            "/NFM/
                IF indtext NE text-013.
                  MOVE <key> TO ls_alv_display_position-newvalue.
                ELSE.
                  MOVE <key> TO ls_alv_display_position-oldvalue.
                ENDIF.
                APPEND ls_alv_display_position TO
                                        lt_alv_display_position.
                CLEAR ls_alv_display_position.
            ENDCASE.