topic Re: grid display in Application Development and Automation Discussions

grid display

Former Member — Fri, 19 Jan 2007 00:57:26 GMT

hELLO FRIENDS,

i have a short dump in this report and the short dump is at

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

attached is the code.

REPORT ZSHEJAL.

TYPE-POOLS: SLIS.

DATA:BEGIN OF I_TAB1 OCCURS 0,

VBELN LIKE VBAK-VBELN,

BSTNK LIKE VBAK-BSTNK,

ERDAT LIKE VBAK-ERDAT,

KUNNR LIKE VBAK-KUNNR,

END OF I_TAB1.

DATA : V_REPID LIKE SY-REPID.

DATA : T_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

INITIALIZATION.

V_REPID = SY-REPID.

START-OF-SELECTION.

PERFORM GET_FIELDCAT1.

SELECT VBELN BSTNK ERDAT KUNNR FROM VBAK INTO TABLE I_TAB1 UP TO 10 ROWS.

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

IT_FIELDCAT = T_FIELDCAT1

TABLES

T_OUTTAB = I_TAB1

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.

getting the data from internal table 1 to t_filedcat.

&----

*& Form get_fieldcat1

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_FIELDCAT1 .

To generate the field catalog

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'I_TAB1'

I_INCLNAME = V_REPID

CHANGING

CT_FIELDCAT = T_FIELDCAT1.

ENDFORM. " get_fieldcat1

Thanks,

Shejal

Re: grid display

Former Member — Fri, 19 Jan 2007 01:04:00 GMT

Hi,

I executed this code..It is working for me..

Thanks,

Naren

Re: grid display

Former Member — Fri, 19 Jan 2007 01:06:46 GMT

its giving a short dump. i will see again.

thanks.

shejal.

Re: grid display

Former Member — Fri, 19 Jan 2007 01:10:18 GMT

Where are you building your field catalogue in your program? Make the correction as stated in bold below in your program and try.

Check this link for sample ALV program using this FM:

http://www.sap-img.com/abap/sample-programs-on-alv-grid.htm

FORM GET_FIELDCAT1 .

To generate the field catalog

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'I_TAB1'

I_INCLNAME = V_REPID

CHANGING

CT_FIELDCAT = T_FIELDCAT1[].

ENDFORM. " get_fieldcat1

Thanks,

Santosh

Re: grid display

Former Member — Fri, 19 Jan 2007 01:13:13 GMT

&----

*& Report ZTEST_ALV

&----

REPORT ZTEST_ALV.

TYPE-POOLS: SLIS.

DATA:BEGIN OF I_TAB1 OCCURS 0,

VBELN LIKE VBAK-VBELN,

BSTNK LIKE VBAK-BSTNK,

ERDAT LIKE VBAK-ERDAT,

KUNNR LIKE VBAK-KUNNR,

END OF I_TAB1.

DATA : V_REPID LIKE SY-REPID.

DATA : T_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

INITIALIZATION.

V_REPID = SY-REPID.

START-OF-SELECTION.

PERFORM GET_FIELDCAT1.

SELECT VBELN BSTNK ERDAT KUNNR FROM VBAK INTO TABLE I_TAB1 UP TO 10 ROWS.

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

IT_FIELDCAT = T_FIELDCAT1

TABLES

T_OUTTAB = I_TAB1

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.

getting the data from internal table 1 to t_filedcat.

&----

*& Form get_fieldcat1

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_FIELDCAT1 .

To generate the field catalog

*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

*EXPORTING

*I_PROGRAM_NAME = V_REPID

*I_INTERNAL_TABNAME = I_TAB1

*I_INCLNAME = V_REPID

*CHANGING

*CT_FIELDCAT = T_FIELDCAT1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = v_repid

I_INTERNAL_TABNAME = 'I_TAB1'

I_STRUCTURE_NAME = 'I_TAB1'

I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = v_repid

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = t_fieldcat1

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

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

ENDIF.

ENDFORM. " get_fieldcat1

Pass the Include Structure name and also see the Select statement is after the Field Catalog Merge...it should be before we call Field catalog merge

Re: grid display

RichHeilman — Fri, 19 Jan 2007 01:15:49 GMT

What exactly does the dump say?

Regards,

RIch Heilman

Re: grid display

Former Member — Fri, 19 Jan 2007 01:25:13 GMT

Hi Srinivas

Checking after making the few changes:

TYPE-POOLS: SLIS.

DATA:BEGIN OF I_TAB1 OCCURS 0,

VBELN LIKE VBAK-VBELN,

BSTNK LIKE VBAK-BSTNK,

ERDAT LIKE VBAK-ERDAT,

KUNNR LIKE VBAK-KUNNR,

END OF I_TAB1.

DATA : V_REPID LIKE SY-REPID.

DATA : T_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

INITIALIZATION.

V_REPID = SY-REPID.

START-OF-SELECTION.

PERFORM GET_FIELDCAT1.

SELECT VBELN BSTNK ERDAT KUNNR FROM VBAK INTO TABLE I_TAB1 UP TO 10 ROWS

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

IT_FIELDCAT = T_FIELDCAT1

TABLES

T_OUTTAB = I_TAB1

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.

getting the data from internal table 1 to t_filedcat.

&----

*& Form get_fieldcat1

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_FIELDCAT1 .

To generate the field catalog

*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

*EXPORTING

*I_PROGRAM_NAME = V_REPID

*I_INTERNAL_TABNAME = I_TAB1

*I_INCLNAME = V_REPID

*CHANGING

*CT_FIELDCAT = T_FIELDCAT1.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = v_repid

I_INTERNAL_TABNAME = 'I_TAB1'

*I_STRUCTURE_NAME = 'I_TAB1'

I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = v_repid

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = t_fieldcat1[]

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

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

ENDIF.

ENDFORM. " get_fieldcat1

Execute with the above code and let us know, if you still have problems????

Regards

Eswar

Re: grid display

Former Member — Fri, 19 Jan 2007 01:37:00 GMT

the short dump

ShrtText

The ABAP source code lines are longer than the width of the internal

the dump is at

read report l_prog_tab_local into l_abap_source.

thanks,

Shejal.

Re: grid display

Former Member — Fri, 19 Jan 2007 02:01:19 GMT

i thred the code as suggested. It still have the same problem.

Shejal

Re: grid display

Former Member — Fri, 19 Jan 2007 02:15:40 GMT

Hi Sheejal

Please try by doing COPY-PASTE of the below code:

TYPE-POOLS: SLIS.

DATA: BEGIN OF I_TAB1 OCCURS 0,
        VBELN LIKE VBAK-VBELN,
        BSTNK LIKE VBAK-BSTNK,
        ERDAT LIKE VBAK-ERDAT,
        KUNNR LIKE VBAK-KUNNR,
      END OF I_TAB1.

DATA : V_REPID LIKE SY-REPID.

DATA : T_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

INITIALIZATION.

  V_REPID = SY-REPID.

START-OF-SELECTION.

  PERFORM GET_FIELDCAT1.

  SELECT VBELN BSTNK ERDAT KUNNR FROM VBAK
     INTO TABLE I_TAB1 UP TO 10 ROWS.

END-OF-SELECTION.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = V_REPID
      IT_FIELDCAT = T_FIELDCAT1[]
    TABLES
      T_OUTTAB = I_TAB1
    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.

* getting the data from internal table 1 to t_filedcat.
*&--------------------------------------------------------------------*
*& Form get_fieldcat1
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*---------------------------------------------------------------------*
FORM GET_FIELDCAT1 .

* To generate the field catalog
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME = V_REPID
      I_INTERNAL_TABNAME = 'I_TAB1'
      I_INCLNAME = V_REPID
    CHANGING
      CT_FIELDCAT = T_FIELDCAT1[].

ENDFORM. " get_fieldcat1

Regards

Eswar

Re: grid display

RichHeilman — Fri, 19 Jan 2007 02:18:46 GMT

What release are you working in?

Regards,

Rich Heilman

Re: grid display

Former Member — Fri, 19 Jan 2007 02:19:08 GMT

I believe the dump is related to some other part of the code and not with ALV related...

if you are still facing the dump... can you paste the entire dump report.. may be we get some more idea...

Thanks,

Santosh

Re: grid display

Former Member — Fri, 19 Jan 2007 02:24:09 GMT

THanks for all the help.

Here is the dump. I am working on version 5.0.

Eashwar, I copied ur program and ran without any modifications. It still has the same dump.

Error analysis

An exception occurred. This exception is dealt with in more detail below

. The exception, which is assigned to the class 'CX_SY_READ_SRC_LINE_TOO_LONG',

was neither

caught nor passed along using a RAISING clause, in the procedure

"K_KKB_FIELDCAT_MERGE" "(FUNCTION)"

Since the caller of the procedure could not have expected this exception

to occur, the running program was terminated.

The reason for the exception is:

You tried to read the program "ZASH_GRID_DRILL1" from the database. The READ

REPORT

statement allows you to copy a program's source code into an internal

table. The lines of source code must not be longer than the width of the

internal table. The internal table is 72 characters wide. The source

code line is 80 wide.

---

How to correct the error

The exception must either be prevented, caught within the procedure

"K_KKB_FIELDCAT_MERGE"

"(FUNCTION)", or declared in the procedure's RAISING clause.

To prevent the exception, note the following:

Probably the only way to eliminate the error is to correct the program.

Shejal.

Re: grid display

Former Member — Fri, 19 Jan 2007 02:26:43 GMT

Friends,

Just a doubt, does this dump relate to SETTINGS of ABAP editor???

I mean if the editor is not restricted to 72 chars per row, it can go more than 72 characters and most of the SAP code that were read internally are for 72 characters. I guess this might cause a problem.

Sheetal,

Can you check the settings.

SE38->Utilities->Settings->ABAP Editor->Editor->Downward Compat.Line Length(72).

Can you check if the check box is ON or OFF???

Regards

Eswar

Re: grid display

Former Member — Fri, 19 Jan 2007 02:27:00 GMT

When i made the below change it works.

DATA:BEGIN OF I_TAB1 OCCURS 0,

VBELN LIKE VBAK-VBELN,

BSTNK LIKE VBAK-BSTNK,

ERDAT LIKE VBAK-ERDAT,

*KUNNR LIKE VBAK-KUNNR,

END OF I_TAB1.

how can i make it work for more fields.

Shejal

Re: grid display

Former Member — Fri, 19 Jan 2007 02:28:55 GMT

i checked for the checkbox in utilities-abapeditor and its not checked.

Shejal

Re: grid display

Former Member — Fri, 19 Jan 2007 02:31:54 GMT

Please try with Checked(ON)....

Regards

Eswar

Re: grid display

RichHeilman — Fri, 19 Jan 2007 02:37:20 GMT

I definitly think that Eswar is on to something here. But I can't see why it is having a problem with the code above, except for may be that SELECT statement. It has been suggested to split that line in two, have you tried this?

The reason for the problem is that the MERGE function module actually reads the report source code and builds the FC from the source code. It is having trouble reading the source code of your program.

Regards,

Rich Heilman

Re: grid display

Former Member — Fri, 19 Jan 2007 02:41:46 GMT

Thanks Eswar for all the suggestions.

I tried with check box on. It is displaying only the 3 fields and is skipping KUNNR. i looked in the debug mode and

T_FIELDCAT1 has only 3 rows. It didnt get KUNNR. So i unchecked the box and the same results. I have kunnr in my data declaration for I_TAB1 and this internal table has data for KUnnr.

I dont understand this whats the reason.

ANyways thanks for all the suggestions.

Shejal

Re: grid display

RichHeilman — Fri, 19 Jan 2007 02:43:46 GMT

Make sure that you UNcomment the KUNNR field in your internal table and try again.

Regards,

Rich Heilman