Skip to Content
0
Former Member
Sep 16, 2005 at 11:18 AM

correct this pls

20 Views

i wrote like this but it is not showing me any error ,..but no result at end...pls correct it

REPORT YKADLGTB .

  • INTERNAL TABLES *****************

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

TABLES : MARA, VBAP, VBAK, LIKP.

**********************************DATA********************************

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

data: begin of itab occurs 0,

matnr type mara-matnr,

matkl type mara-matkl,

vbeln type likp-vbeln,

netpr type vbap-netpr,

posnr type vbap-posnr,

shkzg type vbap-shkzg,

extwg type mara-extwg,

mstae type mara-mstae,

mstav type mara-mstav,

lfdat type likp-lfdat,

lfart type likp-lfart,

kunnr type likp-kunnr,

wadat_ist type likp-wadat_ist,

end of itab.

**********************SELECTION SCEREEN*******************************

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

selection-screen begin of block b1 with frame title text-010.

SCREEN-INTENSIFIED = '1'.

select-options:

s_audat for vbap-audat no-extension , "Document Date.

s_kunnr for vbak-kunnr no-extension. " DEFAULT '5525' .

selection-screen begin of block b2 with frame title text-020.

select-options:

s_auart for vbak-auart no-extension no intervals,

s_vtweg for vbak-vtweg no-extension no intervals,

s_vkorg for vbak-vkorg no-extension no intervals,

s_netpr for vbap-netpr no-extension no intervals no-display.

selection-screen end of block b2.

selection-screen end of block b1.

selection-screen begin of block b3 with frame title text-030.

select-options:

*s_kunnr for likp-kunnr no-extension MODIF ID SC1,

*"CUSTOMER DEFAULT '5525' .

s_matnr for mara-matnr no-extension, "MATERIAL NUMBER

s_matkl for mara-matkl no-extension no intervals, "MATERIAL TYPE.

s_extwg for mara-extwg no-extension no intervals. "MATERIAL GROUP.

selection-screen begin of block b4 with frame title text-040.

select-options:

s_lfdat for likp-lfdat no-extension , "DELIVERY DATE.

s_shkzg for vbap-shkzg no-extension no intervals MODIF ID SC1,"RETURNS .

s_lfart for likp-lfart no-extension no intervals, "DELIVERY TYPE.

s_mstae for mara-mstae no-extension no intervals,

s_mstav for mara-mstav no-extension no intervals.

selection-screen end of block b4.

selection-screen end of block b3.

select likpvbeln vbapnetpr vbap~posnr

vbapshkzg maraextwg maramstae maramatnr

maramstav likplfdat likplfart maramatkl likp~kunnr

likp~wadat_ist into corresponding

fields of table itab from likp

inner join vbak on

likpvbeln = vbakvbeln

inner join vbap on

vbakvbeln = vbapvbeln

inner join mara on

vbapmatnr = maramatnr

where vbap~shkzg in s_shkzg

and mara~matkl in s_matkl

and mara~kunnr in s_kunnr

and likp~lfdat in s_lfdat

and likp~lfart in s_lfart

and mara~matnr in s_matnr

and mara~extwg in s_extwg

and mara~mstae in s_mstae

and mara~mstav in s_mstav.

loop at itab.

format color 2.

if sy-subrc = 0.

uline (142).

write: / sy-vline, itab-matnr, 12 itab-matkl , 20 itab-vbeln,

28 itab-netpr, 75 itab-posnr,86 itab-shkzg,

108 itab-extwg, 125 itab-mstae,134 itab-mstav,

45 itab-lfdat, 58 itab-lfart, 66 itab-kunnr,

94 itab-wadat_ist, 142 sy-vline.

endif.

format color off.

endloop.

uline (142).

raju....