topic Re: ALV PRoblem in Application Development and Automation Discussions

ALV PRoblem

Former Member — Wed, 12 Sep 2007 09:45:09 GMT

Hi Gurus

My requirement is to print the sales output using alv. I have used inner join of 3 tables n i have used the FM 'reuse_alv_fieldcatalog_merge', iam not very much familiar with this function module, i jsu heard that its used when we need to join 2 or more tables n display in alv.

My code looks as follows..

&----

*& Report ZIND_CUSTOMER_SALES_ALV

&----

REPORT zind_customer_sales_alv.

TYPE-POOLS : slis.

DATA: fieldcat TYPE slis_t_fieldcat_alv with header line.

DATA: repid TYPE sy-repid.

repid = sy-repid.

TABLES : vbak, vbap, kna1.

DATA : BEGIN OF i_sales OCCURS 0,

kunnr LIKE vbak-kunnr, "Sold-to party

vbeln LIKE vbak-vbeln, "Sales Document

vkorg LIKE vbak-vkorg, "Sales Organization

vtweg LIKE vbak-vtweg, "Distribution Channel

erdat LIKE vbak-erdat, "Date on Which Record Was Created

bstdk LIKE vbak-bstdk, "Customer purchase order date

netwr LIKE vbak-netwr, "Net Value of the Sales Order in Document Currency

waerk LIKE vbak-waerk, "SD Document Currency

matnr LIKE vbap-matnr, "Material Number

spart LIKE vbap-spart, "Division

aufnr LIKE vbap-aufnr, "Order Number

posnr LIKE vbap-posnr, "Sales Document Item

lfrel LIKE vbap-lfrel, "Item is relevant for delivery

zmeng LIKE vbap-zmeng, "Target quantity in sales units

meins LIKE vbap-meins, "Target quantity UoM

name1 LIKE kna1-name1, "Customer Name

maktx LIKE makt-maktx, "Material Description

END OF i_sales.

SELECT-OPTIONS : sold_to FOR vbak-kunnr,

sales_d FOR vbak-vbeln,

material FOR vbap-matnr,

sales_o FOR vbak-vkorg,

dist_ch FOR vbak-vtweg,

division FOR vbap-spart,

date FOR vbak-erdat.

PERFORM 100_internal_table_fetch.

PERFORM 150_alv_display.

&----

*& Form 100_INTERNAL_TABLE_FETCH

----

FORM 100_internal_table_fetch .

SELECT DISTINCT a_{kunnr a}vbeln a_{vkorg a}vtweg a_{erdat a}bstdk a_{netwr a}waerk

b_{matnr b}spart b_{aufnr b}posnr b_{lfrel b}zmeng b~meins

c_{name1 d}maktx INTO CORRESPONDING FIELDS OF TABLE i_sales FROM ( vbak AS a

INNER JOIN vbap AS b ON a_{vbeln = b}vbeln

INNER JOIN kna1 AS c ON a_{kunnr = c}kunnr

INNER JOIN makt AS d ON b_{matnr = d}matnr )

WHERE a_{kunnr IN sold_to AND a}vbeln IN sales_d AND b_{matnr IN material AND a}vkorg IN sales_o AND a~vtweg IN dist_ch

AND b_{spart IN division AND a}erdat IN date.

SORT i_sales BY name1.

ENDFORM. " 100_INTERNAL_TABLE_FETCH

&----

*& Form 150_alv_display

----

FORM 150_alv_display .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = 'i_sales'

I_STRUCTURE_NAME = i_sales

i_inclname = repid

I_BYPASSING_BUFFER = 'X'

CHANGING

ct_fieldcat = fieldcat[]

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

it_fieldcat = fieldcat[]

TABLES

t_outtab = i_sales.

ENDFORM. " 150_alv_display

Iam getting a runtime error that abap prog lines are wider than the internal table...

can anyone help me in this....

Re: ALV PRoblem

gopi_narendra — Wed, 12 Sep 2007 09:53:57 GMT

Just change I_SALES into capital letters

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = repid
i_internal_tabname = 'I_SALES' " I_SALES in capital letters
* I_STRUCTURE_NAME = i_sales
i_inclname = repid
I_BYPASSING_BUFFER = 'X'
CHANGING
ct_fieldcat = fieldcat[].

Regards

Gopi

Re: ALV PRoblem

Former Member — Wed, 12 Sep 2007 10:03:08 GMT

I TRIED CHANGING IT TO CAPS BUT STILL IAM GETTING THE SAME ERROR.....

Re: ALV PRoblem

Former Member — Wed, 12 Sep 2007 10:18:03 GMT

Hi,

the problem was u crossed the limit of characters that can be written in a single line.divide that select statements into many smaller lines.ur select statement is little too big to be written straight.breake into smaller lines as i have done. and i have made the code bold where i have changed

REPORT ZALVEXAMPLE.

TYPE-POOLS : slis.

DATA: fieldcat TYPE slis_t_fieldcat_alv with header line.

DATA: repid TYPE sy-repid.

repid = sy-repid.

TABLES : vbak, vbap, kna1.

DATA : BEGIN OF i_sales OCCURS 100,

kunnr LIKE vbak-kunnr, "Sold-to party

vbeln LIKE vbak-vbeln, "Sales Document

vkorg LIKE vbak-vkorg, "Sales Organization

vtweg LIKE vbak-vtweg, "Distribution Channel

erdat LIKE vbak-erdat, "Date on Which Record Was Created

bstdk LIKE vbak-bstdk, "Customer purchase order date

netwr LIKE vbak-netwr, "Net Value of the Sales

"Order in Document Currency

waerk LIKE vbak-waerk, "SD Document Currency

matnr LIKE vbap-matnr, "Material Number

spart LIKE vbap-spart, "Division

aufnr LIKE vbap-aufnr, "Order Number

posnr LIKE vbap-posnr, "Sales Document Item

lfrel LIKE vbap-lfrel, "Item is relevant for delivery

zmeng LIKE vbap-zmeng, "Target quantity in sales units

meins LIKE vbap-meins, "Target quantity UoM

name1 LIKE kna1-name1, "Customer Name

maktx LIKE makt-maktx, "Material Description

END OF i_sales.

SELECT-OPTIONS : sold_to FOR vbak-kunnr,

sales_d FOR vbak-vbeln,

material FOR vbap-matnr,

sales_o FOR vbak-vkorg,

dist_ch FOR vbak-vtweg,

division FOR vbap-spart,

date FOR vbak-erdat.

PERFORM 100_internal_table_fetch.

PERFORM 150_alv_display.

&----

*& Form 100_INTERNAL_TABLE_FETCH

----

FORM 100_internal_table_fetch .

SELECT DISTINCT a_{kunnr a}vbeln a_{vkorg a}vtweg a~erdat

a_{bstdk a}netwr a~waerk

b_{matnr b}spart b_{aufnr b}posnr b_{lfrel b}zmeng b~meins

c_{name1 d}maktx INTO CORRESPONDING FIELDS OF TABLE i_sales

FROM ( vbak AS a

INNER JOIN vbap AS b ON a_{vbeln = b}vbeln

INNER JOIN kna1 AS c ON a_{kunnr = c}kunnr

INNER JOIN makt AS d ON b_{matnr = d}matnr )

WHERE a_{kunnr IN sold_to AND a}vbeln IN sales_d AND b~matnr "changed

IN material AND a_{vkorg IN sales_o AND a}vtweg IN dist_ch

AND b_{spart IN division AND a}erdat IN date.

SORT i_sales BY name1.

ENDFORM. " 100_INTERNAL_TABLE_FETCH

&----

*& Form 150_alv_display

----

FORM 150_alv_display .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = 'I_SALES' "change

I_STRUCTURE_NAME = i_sales

i_inclname = repid

I_BYPASSING_BUFFER = 'X'

CHANGING

ct_fieldcat = fieldcat[]

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID "change

it_fieldcat = fieldcat[]

TABLES

t_outtab = i_sales.

ENDFORM. " 150_alv_display

reward if helpful

Regards,

sanjeev

Re: ALV PRoblem

Former Member — Wed, 12 Sep 2007 10:34:53 GMT

STILL IAM FACING THE SAME ERROR....

Re: ALV PRoblem

Former Member — Wed, 12 Sep 2007 10:38:01 GMT

HI,

if u have any code line in ur program(including comment lines)

more than 72 char length it will give that error.to get rid of this u just truncate the larger lines in the code into different lines.

rgds,

bharat.

Re: ALV PRoblem

Former Member — Wed, 12 Sep 2007 11:03:18 GMT

REWARDED WITH THANKS.....