Solved: ALV Block display dump

Former Member · ‎2007 Mar 07

Hi All

Below is the dump of ALV Block display ......Please help me what went wrong .(Error while calling 'REUSE_ALV_BLOCK_LIST_DISPLAY' )

Specifically while ......

----

FORM GRID_PF_STATUS_STANDARD *

----

........ *

----

--> RT_EXTAB *

----

FORM GRID_PF_STATUS_STANDARD USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'STANDARD'.

ENDFORM.

" GETWA_NOT_ASSIGNED"

"Field symbol has not yet been assigned."

"GETWA_NOT_ASSIGNED"

"SAPLKKBL " or "LKKBLF01 "

"CHECKBOX_OUT"

The termination occurred in the ABAP/4 program "SAPLKKBL " in

"CHECKBOX_OUT".

011430 *& *

011440 *& Form CHECKBOX_OUT

011450 *& *

011460 * text *

011470 * *

011480 form checkbox_out using rs_layout type kkblo_layout

011490 r_tabname type stack-i_tabname

011500 r_sum type c.

011510 data: l_mark(1) type c.

011520

011530 if not rs_layout-box_tabname is initial and

011540 rs_layout-box_tabname ne r_tabname.

011550 format color off.

011560 write at (2) space no-gap.

011570 exit.

011580 endif.

011590

====> if not r_sum is initial or <box> = '-'.

011610 format color off.

011620 write at (2) space no-gap.

011630 else.

011640 format color off.

Below is part of my code .......

END-OF-SELECTION.

PERFORM LIST1_EVENT.

PERFORM LIST2_EVENT.

G_REPID = SY-REPID.

G_USER_COMMAND = 'GRID_USER_COMMAND'.

G_PF_STATUS = 'GRID_PF_STATUS_STANDARD'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

I_CALLBACK_USER_COMMAND = 'G_USER_COMMAND'

I_CALLBACK_PF_STATUS_SET = G_PF_STATUS.

IF NOT ERROR_TAB[] IS INITIAL.

PERFORM FILL_FIELD_CAT_SIMPLE USING:

'MATNR' 'Material',

'WERKS' 'Plnt',

'LGORT' 'StLc',

'UMREZ' 'Box Qty',

'PCK_CODE' 'Pack Code',

'LAENG' 'Length',

'BREIT' 'Width',

'HOEHE' 'Height',

'MEABM' 'UoM',

'LVS_LGBKZ' 'SSI',

'MLGN_LTKZE' 'PiI',

'MLGN_LTKZA' 'STSR',

'LGPBE' 'Stor.Bin',

'NTGEW' 'Net Weight',

'BRGEW' 'Grs Weight',

'GEWEI' 'Unit',

'ARBGB' 'ID',

'MSGNR' 'NUMBER',

'NATXT' 'MESSAGE'.

box_fieldname type slis_fieldname, " fieldname for checkbox
box_tabname type slis_tabname," tabname for checkbox
box_rollname like dd03p-rollname," rollname for checkbox

GT_LAYOUT1-BOX_FIELDNAME = 'BOX'.

GT_LAYOUT1-BOX_TABNAME = 'ERROR_TAB'.

GT_LAYOUT1-LIGHTS_FIELDNAME = 'AMPEL'.

GT_LAYOUT1-INFO_FIELDNAME = 'LISTINFO'.

*

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IT_FIELDCAT = GT_FIELDCAT

IS_LAYOUT = GT_LAYOUT1

I_TABNAME = 'ERROR_TAB'

IT_EVENTS = GT_EVENT1

I_TEXT = TEXT-002

TABLES

T_OUTTAB = ERROR_TAB.

ELSE.

WRITE: 'No records had errors'.

ENDIF.

REFRESH GT_FIELDCAT.

IF NOT OK_TAB[] IS INITIAL.

PERFORM FILL_FIELD_CAT_SIMPLE USING:

'MATNR' 'Material',

'WERKS' 'Plnt',

'LGORT' 'StLc',

'UMREZ' 'Box Qty',

'PCK_CODE' 'Pack Code',

'LAENG' 'Length',

'BREIT' 'Width',

'HOEHE' 'Height',

'MEABM' 'UoM',

'LVS_LGBKZ' 'SSI',

'MLGN_LTKZE' 'PiI',

'MLGN_LTKZA' 'STSR',

'LGPBE' 'Stor.Bin',

'NTGEW' 'Net Weight',

'BRGEW' 'Grs Weight',

'GEWEI' 'Unit',

'ARBGB' 'ID',

'MSGNR' 'NUMBER',

'NATXT' 'MESSAGE'.

GT_LAYOUT2-BOX_FIELDNAME = 'BOX'.

GT_LAYOUT2-BOX_TABNAME = 'OK_TAB'.

GT_LAYOUT2-INFO_FIELDNAME = 'LISTINFO'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IT_FIELDCAT = GT_FIELDCAT

IS_LAYOUT = GT_LAYOUT2

I_TABNAME = 'OK_TAB'

IT_EVENTS = GT_EVENT2

I_TEXT = TEXT-003

TABLES

T_OUTTAB = OK_TAB.

ELSE.

WRITE: 'No OK records found'.

ENDIF.

GT_PRINT-RESERVE_LINES = 2.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

EXPORTING

IS_PRINT = GT_PRINT

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.

.

&----

*& Form LIST1

&----

text

----

--> p1 text
<-- p2 text

----

FORM LIST1_EVENT.

CLEAR LIST1_EVENT.

LIST1_EVENT-NAME = SLIS_EV_END_OF_PAGE.

LIST1_EVENT-FORM = 'XEND_OF_PAGE'.

APPEND LIST1_EVENT TO GT_EVENT1.

CLEAR LIST1_EVENT.

LIST1_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

LIST1_EVENT-FORM = 'XTOP_OF_PAGE'.

APPEND LIST1_EVENT TO GT_EVENT1.

CLEAR LIST1_EVENT.

LIST1_EVENT-NAME = SLIS_EV_TOP_OF_LIST.

LIST1_EVENT-FORM = 'XTOP_OF_LIST'.

APPEND LIST1_EVENT TO GT_EVENT1.

CLEAR LIST1_EVENT.

LIST1_EVENT-NAME = SLIS_EV_END_OF_LIST.

LIST1_EVENT-FORM = 'XEND_OF_LIST'.

APPEND LIST1_EVENT TO GT_EVENT1.

CLEAR LIST1_EVENT.

ENDFORM. " BOX1_EVENT

&----

*& Form LIST2

&----

text

----

--> p1 text
<-- p2 text

----

FORM LIST2_EVENT.

CLEAR LIST1_EVENT.

LIST2_EVENT-NAME = SLIS_EV_END_OF_PAGE.

LIST2_EVENT-FORM = 'XEND_OF_PAGE'.

APPEND LIST2_EVENT TO GT_EVENT2.

CLEAR LIST2_EVENT.

LIST2_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

LIST2_EVENT-FORM = 'XTOP_OF_PAGE'.

APPEND LIST2_EVENT TO GT_EVENT2.

CLEAR LIST2_EVENT.

LIST2_EVENT-NAME = SLIS_EV_TOP_OF_LIST.

LIST2_EVENT-FORM = 'XTOP_OF_LIST'.

APPEND LIST2_EVENT TO GT_EVENT2.

CLEAR LIST2_EVENT.

LIST2_EVENT-NAME = SLIS_EV_END_OF_LIST.

LIST2_EVENT-FORM = 'XEND_OF_LIST'.

APPEND LIST2_EVENT TO GT_EVENT2.

CLEAR LIST2_EVENT.

ENDFORM. " BOX1_EVENT

Help will be rewarded ...

Message was edited by:

ABAP Techie

Message was edited by:

ABAP Techie

Message was edited by:

ABAP Techie

Message was edited by:

ABAP Techie

Message was edited by:

ABAP Techie

Message was edited by:

ABAP Techie

Former Member · ‎2007 Mar 07

hi,

Remove the statements

GT_LAYOUT2-BOX_FIELDNAME = 'BOX'.

As you are not using any checkbox in ur internal tables , u can remove these

If u want them , then in ur internal table add one more field

box(1).

Former Member · ‎2007 Mar 07

hi,

Remove the statements

GT_LAYOUT2-BOX_FIELDNAME = 'BOX'.

As you are not using any checkbox in ur internal tables , u can remove these

If u want them , then in ur internal table add one more field

box(1).

Former Member · ‎2007 Mar 07

Hi

Thanks a ton . It works but another help...

I want to display these two texts

1) "Erroneous records are"

and then the first section of the blocked report

2) "OK records are"

and then the second section of the blocked report

For that i am passing two TEXT-001 , TEXT-002 in the CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

I_TEXT = TEXT-001 ...

but i cant see any such texts bieng dispalayed ...

Hope i am heard ....

Message was edited by:

ABAP Techie

Former Member · ‎2007 Mar 07

Can you check the where-used-list of REUSE_ALV_BLOCK_LIST_DISPLAY and checkout how it is used

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

ALV Block display dump