Dump

Former Member — Wed, 18 Jun 2008 04:07:49 GMT

Hi experts,

I m generating a report which on execution showsx dump.

Here I use ALV, I m using it first first.

May be this is the reason of dump.

plz check my code..

report zmm_r030 line-size 250 no standard page heading .

type-pools :slis.

tables: eban,ekbe,eipa,cdhdr.

*----

I N T E R N A L T A B L E S

*----

data: g_repid like sy-repid,

gs_print type slis_print_alv,

gt_list_top_of_page type slis_t_listheader,

gt_events type slis_t_event,

gt_sort type slis_t_sortinfo_alv,

gs_layout type slis_layout_alv,

gt_fieldcat type slis_t_fieldcat_alv,

fieldcat_ln like line of gt_fieldcat,

col_pos type i.

data it_fieldcat type slis_t_fieldcat_alv.

data wa_fieldcat like line of it_fieldcat.

data gc_top_of_page_db type slis_formname value 'TOP_OF_PAGE_DB'.

data : gt_yevents type slis_t_event .

data : gt_yfieldcat type slis_t_fieldcat_alv.

data : xs_event type slis_alv_event .

*****************************Aastha

data : it_sortinfo type slis_sortinfo_alv occurs 0.

data : wa_sortinfo like line of it_sortinfo.

data:

begin of itab_eban occurs 0,

banfn like eban-banfn,

ekgrp like eban-ekgrp,

afnam like eban-afnam,

txz01 like eban-txz01,

matnr like eban-matnr,

werks like eban-werks,

lgort like eban-lgort,

bednr like eban-bednr,

menge like eban-menge,

meins like eban-meins,

badat like eban-badat,

frgdt like eban-frgdt,

ebeln like eban-ebeln,

ebelp like eban-ebelp,

end of itab_eban.

data:begin of itab_ekbe occurs 0,

ebeln like ekbe-ebeln,

ebelp like ekbe-ebelp,

belnr like ekbe-belnr,

bwart like ekbe-bwart,

budat like ekbe-budat,

menge like ekbe-menge,

matnr like ekbe-matnr,

end of itab_ekbe.

data:begin of itab_eipa occurs 0,

ebeln like eipa-ebeln,

ebelp like eipa-ebelp,

preis like eipa-preis,

end of itab_eipa.

data:begin of itab_cdhdr occurs 0,

objectid like eipa-ebeln,

udate like cdhdr-udate,

tcode like cdhdr-tcode,

end of itab_cdhdr.

data:begin of main_table occurs 0,

banfn like eban-banfn,

ekgrp like eban-ekgrp,

afnam like eban-afnam,

txz01 like eban-txz01,

matnr like eban-matnr,

werks like eban-werks,

lgort like eban-lgort,

bednr like eban-bednr,

menge1 like eban-menge,

meins like eban-meins,

badat like eban-badat,

frgdt like eban-frgdt,

ebeln like eban-ebeln,

ebelp like eban-ebelp,

ebeln like ekbe-ebeln,
ebelp like ekbe-ebelp,

belnr like ekbe-belnr,

bwart like ekbe-bwart,

budat like ekbe-budat,

menge2 like ekbe-menge,

matnr like ekbe-matnr,

ebeln like eipa-ebeln,
ebelp like eipa-ebelp,

preis like eipa-preis,

objectid like eipa-ebeln,

udate like cdhdr-udate,

tcode like cdhdr-tcode,

total like eban-menge,

qty_delieverd like eban-menge,

end of main_table .

**********************

**SELECTION-SCREEN**

**********************

selection-screen begin of block blk.

parameters : p_werks like eban-werks obligatory.

select-options : s_matnr for eban-matnr .

select-options : s_badat for eban-badat obligatory .

parameters : p_lgort like eban-lgort,

p_ekgrp like eban-ekgrp.

selection-screen end of block blk.

initialization.

g_repid = sy-repid.

perform print_build using gs_print. "Print PARAMETERS

**----

S T A R T - O F - S E L E C T I O N

*----

start-of-selection.

**************************************************************

if p_werks is not initial and s_badat is not initial.

select banfn ekgrp afnam txz01 matnr werks lgort bednr menge meins badat

frgdt ekorg ebeln ebelp

into table itab_eban from eban

where matnr in s_matnr and

werks eq p_werks .

endif.

if itab_eban[] is not initial.

select ebeln ebelp belnr bwart budat menge matnr

into table itab_ekbe

from ekbe

for all entries in itab_eban

where ebeln = itab_eban-ebeln and

ebelp = itab_eban-ebelp and

bwart = '105' and

matnr = itab_eban-matnr.

if sy-subrc <> 0.

select ebeln ebelp belnr bwart budat menge matnr

into table itab_ekbe

from ekbe

for all entries in itab_eban

where ebeln = itab_eban-ebeln and

ebelp = itab_eban-ebelp and

bwart = '103' and

matnr = itab_eban-matnr.

endif.

if itab_ekbe[] is not initial.

select ebeln ebelp preis

into table itab_eipa

from eipa

for all entries in itab_eban

where ebeln = itab_eban-ebeln and

ebelp = itab_eban-ebelp .

endif.

select objectid udate tcode

into table itab_cdhdr

from cdhdr

where objectid = itab_eipa-ebeln

and tcode = 'ME29N' .

loop at itab_eban where matnr in s_matnr and

werks eq p_werks.

loop at itab_ekbe where ebeln = itab_eban-ebeln and

matnr = itab_eban-matnr.

loop at itab_eipa .

loop at itab_cdhdr where objectid = itab_eban-ebeln .

main_table-banfn = itab_eban-banfn.

main_table-ekgrp = itab_eban-ekgrp.

main_table-afnam = itab_eban-afnam.

main_table-txz01 = itab_eban-txz01.

main_table-matnr = itab_eban-matnr.

main_table-werks = itab_eban-werks.

main_table-lgort = itab_eban-lgort.

main_table-bednr = itab_eban-bednr.

main_table-menge1 = itab_eban-menge.

main_table-meins = itab_eban-meins.

main_table-badat = itab_eban-badat.

main_table-frgdt = itab_eban-frgdt.

main_table-ebeln = itab_eban-ebeln.

main_table-ebelp = itab_eban-ebelp.

main_table-belnr = itab_ekbe-belnr.

main_table-bwart = itab_ekbe-bwart.

main_table-budat = itab_ekbe-budat.

main_table-preis = itab_eipa-preis.

main_table-objectid = itab_eipa-ebeln.

main_table-udate = itab_cdhdr-objectid.

main_table-tcode = itab_cdhdr-tcode.

append main_table.

clear main_table.

endloop.

loop at main_table.

main_table-total = itab_eban-menge * itab_eipa-preis.

main_table-qty_delieverd = itab_eban-menge - itab_ekbe-menge .

modify main_table index sy-tabix.

clear main_table.

endloop.

perform fieldcat_init using gt_fieldcat.

perform eventtab_build using gt_events[].

perform comment_build using gt_list_top_of_page[].

perform disp_rep.

&----

*& Form print_build

&----

text

----

-->LS_PRINT text

----

form print_build using ls_print type slis_print_alv.

ls_print-print = s_matnr. "PRINT IMMEDIATE

endform. "PRINT_BUILD

&----

*& Form FIELDCAT_INIT

&----

text

----

-->P_GT_FIELDCAT text

----

form fieldcat_init using p_gt_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'BEDNR'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-001 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'AFNAM'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-002 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'BANFN'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-003 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'EBELN'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-004 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-005 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'TXZ01'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-006 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'MEINS'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-007 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'MENGE1'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-008.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'MENGE2'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-009 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'PREIS'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-010 .

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

*************************************closing the item no.column

CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'EBELP'.
wa_fieldcat-tabname = 'I_LIST2'.
wa_fieldcat-seltext_m = text-012 .
wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

*************************************closing the item no.column

clear wa_fieldcat.

wa_fieldcat-fieldname = 'TOTAL'.

wa_fieldcat-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-011.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_fieldcat to it_fieldcat.

wa_sortinfo-fieldname = 'QTY_DELIEVERED'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-012.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_sortinfo to it_sortinfo.

wa_sortinfo-fieldname = 'FRGDT'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-013.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_sortinfo to it_sortinfo.

wa_sortinfo-fieldname = 'UDATE'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-014.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_sortinfo to it_sortinfo.

wa_sortinfo-fieldname = 'BELNR'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-015.

wa_fieldcat-emphasize = 'C410'.

wa_fieldcat-key = 'X'.

append wa_sortinfo to it_sortinfo.

wa_sortinfo-fieldname = 'BUDAT'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-016.

wa_fieldcat-emphasize = 'C410'.

append wa_sortinfo to it_sortinfo.

wa_sortinfo-fieldname = 'BWART'.

wa_sortinfo-tabname = 'main_table'.

wa_fieldcat-seltext_m = text-017.

wa_fieldcat-emphasize = 'C410'.

append wa_sortinfo to it_sortinfo.

endform. " FIELDCAT_INIT

&----

*& Form disp_rep

&----

text

----

form disp_rep .

data: n like sy-index.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =

i_background_id = 'ALV BACKGROUND'

i_grid_title = 'Material Tracking Report'

I_GRID_SETTINGS =
IS_LAYOUT =

it_fieldcat = it_fieldcat[]

IT_FIELDCAT =
IT_EXCLUDING =
IT_SPECIAL_GROUPS =

it_sort = it_sortinfo[]

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'

i_save = 'A'

IS_VARIANT =

it_events = gt_events[]

IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = main_table

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

DESCRIBE TABLE i_list2 LINES N.
delete i_list2 index n.

endform. " DISP_REP

&----

*& Form top_of_page_db

&----

text

----

form top_of_page_db. "#EC

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = gt_list_top_of_page

i_logo = 'SCL_LOGO'.

i_logo = 'ENJOYSAP_LOGO'.

endform. "TOP_OF_PAGE_DB

*&----

*& FORM EVENTTAB_BUILD

*&----

TEXT

*----

-->P_GT_EVENTS[] TEXT

*----

form eventtab_build using lt_events type slis_t_event.

data: ls_event type slis_alv_event.

data: gc_top_of_page type slis_formname.

gc_top_of_page = gc_top_of_page_db.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = lt_events.

read table lt_events with key name = slis_ev_top_of_page

into ls_event.

if sy-subrc <> 0.

move gc_top_of_page to ls_event-form.

append ls_event to lt_events.

else.

move gc_top_of_page to ls_event-form.

modify lt_events from ls_event index sy-tabix .

endif.

endform. " EVENTTAB_BUILD

*&----

*& FORM COMMENT_BUILD

*&----

TEXT

*----

-->P_GT_LIST_TOP_OF_PAGE[] TEXT

*----

&----

*& FORM COMMENT_BUILD

&----

TEXT

----

-->P_GT_LIST_TOP_OF_PAGE[] TEXT

----

form comment_build using lt_top_of_page type slis_t_listheader.

data: ls_line1 type slis_listheader.

data: ls_line2 type slis_listheader.

data: period(100) type c,

comp(150) type c.

concatenate 'FROM Date. ' s_badat-low '..To Date..' s_badat-high into

period.

concatenate 'Samtel Color Ltd..' p_werks into comp.

clear ls_line1.

clear ls_line2.

ls_line1-typ = 'H'.

ls_line2-typ = 'H'.

ls_line1-info = comp. " 'Uncleared GR - IR' .

ls_line2-info = period.

append ls_line1 to lt_top_of_page.

clear ls_line1.

append ls_line2 to lt_top_of_page.

clear ls_line2.

endform. " COMMENT_BUILD

&----

*& FORM LAYOUT_BUILD

&----

TEXT

----

-->P_GS_LAYOUT TEXT

----

form layout_build using ls_layout type slis_layout_alv.

ls_layout-zebra = 'X'.

ls_layout-colwidth_optimize = 'X'.

endform. " LAYOUT_BUILD

efinitely Rwds Pts,

Savita

topic Re: Dump in Application Development and Automation Discussions

Dump

Re: Dump

Re: Dump

Re: Dump