topic Sample program using Reuse_ALV_Block_List_Append in Application Development and Automation Discussions

Sample program using Reuse_ALV_Block_List_Append

Former Member — Thu, 04 Jan 2007 06:33:24 GMT

Hi experts,

I would like to ask some sample programs that uses Reuse_ALV_Block_List_Append. Thanks in advance.

Regards,

Marc

Re: Sample program using Reuse_ALV_Block_List_Append

Former Member — Thu, 04 Jan 2007 06:37:52 GMT

Hi Marc,

Check the links,

http://www.sap-basis-abap.com/abap/sample-program-on-block-lists.htm

Regards,

Hema.

Reward points if it is useful.

Re: Sample program using Reuse_ALV_Block_List_Append

Former Member — Thu, 04 Jan 2007 06:41:02 GMT

Hi Mark,

Check this sample program .

&----

*& *

&----

*& *

&----

REPORT ZMULTIPLE_ALV .

type-pools : slis.

data : alvfc type slis_t_fieldcat_alv.

data : alvly type slis_layout_alv.

data : alvev type slis_t_event .

*----

DATA : BEGIN OF itab OCCURS 0.

include structure t001.

DATA: END OF itab.

DATA : BEGIN OF ptab OCCURS 0.

INCLUDE STRUCTURE t000.

DATA: END OF ptab..

*----

start-of-selection.

*----

SELECT DATA

SELECT * FROM t001 into table itab up to 10 rows.

select * from t000 into table ptab up to 10 rows.

*----

INIT BLOCK ALV

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid.

*----

ADD INTERNAL TABLE ITAB

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

I_INCLNAME = SY-REPID

CHANGING

CT_FIELDCAT = ALVFC.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = alvly

it_fieldcat = alvfc

i_tabname = 'ITAB'

it_events = alvev

TABLES

t_outtab = ITAB

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3.

*----

ADD INTERNAL TABLE PTAB

REFRESH ALVFC[].

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'PTAB'

I_INCLNAME = SY-REPID

CHANGING

CT_FIELDCAT = ALVFC.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = alvly

it_fieldcat = alvfc

i_tabname = 'PTAB'

it_events = alvev

TABLES

t_outtab = PTAB

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3.

*CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

*EXPORTING

*is_layout = alvly

*it_fieldcat = alvfc

*i_tabname = 'PTAB'

*it_events = alvev

*TABLES

*t_outtab = PTAB

*EXCEPTIONS

*program_error = 1

*maximum_of_appends_reached = 2

*OTHERS = 3.

*----

DISPLAY

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

EXCEPTIONS

program_error = 1

OTHERS = 2.

Re: Sample program using Reuse_ALV_Block_List_Append

Former Member — Thu, 04 Jan 2007 06:49:29 GMT

check this

&----

*& Report ZSPDALVBLOCK *

*& *

&----

*& *

&----

REPORT ZSPDALVBLOCK .

TYPE-POOLS : SLIS.

TABLES : AFKO,AFPO.

TYPES : BEGIN OF SAFPO ,

AUFNR LIKE AFPO-AUFNR,

POSNR LIKE AFPO-POSNR,

PLNUM LIKE AFPO-PLNUM,

STRMP LIKE AFPO-STRMP,

MATNR LIKE AFPO-MATNR,

PSMNG LIKE AFPO-PSMNG,

MEINS LIKE AFPO-MEINS,

END OF SAFPO.

TYPES : BEGIN OF SAFKO,

AUFNR LIKE AFKO-AUFNR,

END OF SAFKO.

DATA : IAFKO TYPE TABLE OF SAFKO WITH HEADER LINE,

IAFPO TYPE TABLE OF SAFPO WITH HEADER LINE.

DATA : IFIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

WFIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

ILAYOUT1 TYPE SLIS_LAYOUT_ALV,

IEVENT1 TYPE SLIS_T_EVENT,

WEVENT1 TYPE SLIS_ALV_EVENT,

IKEYINFO1 TYPE SLIS_KEYINFO_ALV.

DATA : IFIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,

WFIELDCAT2 TYPE SLIS_FIELDCAT_ALV,

ILAYOUT2 TYPE SLIS_LAYOUT_ALV,

IEVENT2 TYPE SLIS_T_EVENT,

WEVENT2 TYPE SLIS_ALV_EVENT.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : S_AUFNR FOR AFKO-AUFNR,

S_GLTRP FOR AFKO-GLTRP.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID.

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =

PERFORM GET_DATA.

PERFORM BUILD_FIELDCAT.

PERFORM BUILD_LAYOUT.

PERFORM BUILD_EVENT.

PERFORM BUILD_KEYINFO.

PERFORM BUILD_FIELDCAT2.

PERFORM BUILD_LAYOUT2.

PERFORM BUILD_EVENT2.

PERFORM DISPLAY_BLOCK1.

PERFORM DISPLAY_BLOCK2.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

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 GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA .

SELECT AUFNR FROM AFKO INTO CORRESPONDING FIELDS OF TABLE IAFKO

WHERE AUFNR IN S_AUFNR AND GLTRP IN S_GLTRP.

SELECT AUFNR POSNR PLNUM STRMP MATNR PSMNG MEINS FROM AFPO INTO CORRESPONDING FIELDS OF TABLE

IAFPO WHERE AUFNR IN S_AUFNR.

ENDFORM. " GET_DATA

&----

*& Form BUILD_FIELDCAT

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCAT .

REFRESH : IFIELDCAT1.

*WFIELDCAT1-FIELDNAME = 'AUFNR'.

*WFIELDCAT1-COL_POS = '1'.

*WFIELDCAT1-SELTEXT_L = 'Order No'.

*APPEND WFIELDCAT1 TO IFIELDCAT1.

*CLEAR WFIELDCAT1.

WFIELDCAT1-FIELDNAME = 'GLTRP'.

WFIELDCAT1-COL_POS = '1'.

WFIELDCAT1-SELTEXT_L = 'Basic Finish Time'.

APPEND WFIELDCAT1 TO IFIELDCAT1.

CLEAR WFIELDCAT1.

WFIELDCAT1-FIELDNAME = 'GSTRP'.

WFIELDCAT1-COL_POS = '2'.

WFIELDCAT1-SELTEXT_L = 'Basic Start Time'.

APPEND WFIELDCAT1 TO IFIELDCAT1.

CLEAR WFIELDCAT1.

WFIELDCAT1-FIELDNAME = 'GAMNG'.

WFIELDCAT1-COL_POS = '3'.

WFIELDCAT1-SELTEXT_L = 'Total Order Qty'.

APPEND WFIELDCAT1 TO IFIELDCAT1.

CLEAR WFIELDCAT1.

WFIELDCAT1-FIELDNAME = 'GMEIN'.

WFIELDCAT1-COL_POS = '4'.

WFIELDCAT1-SELTEXT_L = 'UOM'.

APPEND WFIELDCAT1 TO IFIELDCAT1.

CLEAR WFIELDCAT1.

ENDFORM. " BUILD_FIELDCAT

&----

*& Form BUILD_LAYOUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_LAYOUT .

ILAYOUT1-COLWIDTH_OPTIMIZE = 'X'.

ILAYOUT1-ZEBRA = 'X'.

ENDFORM. " BUILD_LAYOUT

&----

*& Form BUILD_EVENT

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_EVENT .

WEVENT1-FORM = 'TOPOFLIST1'.

WEVENT1-NAME = SLIS_EV_TOP_OF_LIST.

APPEND WEVENT1 TO IEVENT1.

ENDFORM. " BUILD_EVENT

&----

*& Form DISPLAY_BLOCK1

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_BLOCK1 .

*CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_HS_APPEND'

EXPORTING
IS_LAYOUT = ILAYOUT1
IT_FIELDCAT = IFIELDCAT2
IS_KEYINFO = IKEYINFO1
I_HEADER_TABNAME = 'IAFKO'
I_ITEM_TABNAME = 'IAFPO'
IT_EVENTS = IEVENT1

IT_SORT =
I_TEXT = ' '

TABLES
T_OUTTAB_HEADER = IAFKO
T_OUTTAB_ITEM = IAFPO

EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = ILAYOUT1

IT_FIELDCAT = IFIELDCAT1

I_TABNAME = 'IAFKO'

IT_EVENTS = IEVENT1

IT_SORT =
I_TEXT = ' '

TABLES

T_OUTTAB = IAFKO

EXCEPTIONS

PROGRAM_ERROR = 1

MAXIMUM_OF_APPENDS_REACHED = 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. " DISPLAY_BLOCK1

FORM TOPOFLIST1.

WRITE :/10 'TABLE AFKO CONTENTS'.

WRITE :/(30) SY-ULINE.

ENDFORM.

&----

*& Form BUILD_FIELDCAT2

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCAT2 .

REFRESH : IFIELDCAT2.

WFIELDCAT2-FIELDNAME = 'AUFNR'.

WFIELDCAT2-COL_POS = '1'.

WFIELDCAT2-SELTEXT_L = 'Order No'.