Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Regarding alv output

Former Member

‎2007 Jul 18 1:35 PM

0 Likes
473

Hi Abapers,

i hav written this ALV Program but i m not getting the output list.

When i m providing the slection screen data and pressing f8 but noting its happening.

&----

*& Report Z_KRR

*&

&----

*&

*&

&----

REPORT Z_KRR no standard page heading message-id z000.

tables: mara.

TYPE-POOLS : SLIS.

DATA : begin of GIT_RAMS OCCURS 0,

matnr LIKE mara-matnr,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

end of GIT_RAMS.

data : REPID TYPE SY-REPID,

FIELD_CAT type SLIS_T_FIELDCAT_ALV,

WA_FLDCAT LIKE LINE OF FIELD_CAT.

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

select-options : s_ersda for mara-ersda.

selection-screen end of block b1.

initialization.

*REP_ID = SY-REPID.

at selection-screen.

if s_ersda-low is initial.

message e000 with 'plz enter some value'.

exit.

endif.

start-of-selection.

    • perform get_data.

*PERFORM FILED_CATALOG.

*PERFORM DISPLAY_DATA.

select matnr ersda ernam from mara into table GIT_RAMS where ersda in s_ersda .

if sy-subrc EQ 0.

SORT GIT_RAMS BY MATNR.

  • form filed_catalog.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = 'GIT_RAMS'

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = REPID

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

CHANGING

ct_fieldcat = FIELD_CAT[]

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.

*FORM DISPLAY_DATA.

*LOOP AT GIT_RAMS.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

*I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'x'

I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'REP_ID'

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = FIELD_CAT[]

  • IT_EXCLUDING = IT_EXCLUDING

  • IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

  • IT_SORT = IT_SORT

  • IT_FILTER = IT_FILTER

  • IS_SEL_HIDE = IS_SEL_HIDE

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT = IS_VARIANT

  • IT_EVENTS = IT_EVENTS

  • IT_EVENT_EXIT = IT_EVENT_EXIT

  • IS_PRINT = IS_PRINT

  • IS_REPREP_ID = IS_REPREP_ID

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IR_SALV_LIST_ADAPTER = IR_SALV_LIST_ADAPTER

  • IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

  • I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

  • ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

t_outtab = GIT_RAMS

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.

*ENDLOOP.

*ENDFORM.

  • form get_data.

  • select matnr ersda ernam from mara into table git_rams where ersda in s_ersda .

  • if sy-subrc = 0.

  • sort git_rams by matnr.

  • endif.

  • endform.

Thnk u all.

Regards,

Kavita

Hi Abapers,

i hav written this ALV Program but i m not getting the output list.

When i m providing the slection screen data and pressing f8 but noting its happening.

&----

*& Report Z_KRR

*&

&----

*&

*&

&----

REPORT Z_KRR no standard page heading message-id z000.

tables: mara.

TYPE-POOLS : SLIS.

DATA : begin of GIT_RAMS OCCURS 0,

matnr LIKE mara-matnr,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

end of GIT_RAMS.

data : REPID TYPE SY-REPID,

FIELD_CAT type SLIS_T_FIELDCAT_ALV,

WA_FLDCAT LIKE LINE OF FIELD_CAT.

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

select-options : s_ersda for mara-ersda.

selection-screen end of block b1.

initialization.

*REP_ID = SY-REPID.

at selection-screen.

if s_ersda-low is initial.

message e000 with 'plz enter some value'.

exit.

endif.

start-of-selection.

    • perform get_data.

*PERFORM FILED_CATALOG.

*PERFORM DISPLAY_DATA.

select matnr ersda ernam from mara into table GIT_RAMS where ersda in s_ersda .

if sy-subrc EQ 0.

SORT GIT_RAMS BY MATNR.

  • form filed_catalog.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = 'GIT_RAMS'

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = REPID

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

CHANGING

ct_fieldcat = FIELD_CAT[]

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.

*FORM DISPLAY_DATA.

*LOOP AT GIT_RAMS.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

*I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'x'

I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'REP_ID'

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = FIELD_CAT[]

  • IT_EXCLUDING = IT_EXCLUDING

  • IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

  • IT_SORT = IT_SORT

  • IT_FILTER = IT_FILTER

  • IS_SEL_HIDE = IS_SEL_HIDE

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT = IS_VARIANT

  • IT_EVENTS = IT_EVENTS

  • IT_EVENT_EXIT = IT_EVENT_EXIT

  • IS_PRINT = IS_PRINT

  • IS_REPREP_ID = IS_REPREP_ID

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IR_SALV_LIST_ADAPTER = IR_SALV_LIST_ADAPTER

  • IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

  • I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

  • ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

t_outtab = GIT_RAMS

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.

*ENDLOOP.

*ENDFORM.

  • form get_data.

  • select matnr ersda ernam from mara into table git_rams where ersda in s_ersda .

  • if sy-subrc = 0.

  • sort git_rams by matnr.

  • endif.

  • endform.

Thnk u all.

Regards,

Kavita

Reply
3 REPLIES 3
Read only

Former Member

‎2007 Jul 18 1:39 PM

0 Likes
457

Hi Kavita,

Check in the debugging if any data is passed to the FM or not.

Regards,

Atish

Read only

Former Member

‎2007 Jul 18 1:39 PM

0 Likes
457

Hi kavita,

1. one minor mistake

2. just correct the line in bold, and then it will work. I just tried it.

INITIALIZATION.

<b>REPID = SY-REPID.</b>

regards,

amit m.

Read only

Former Member

‎2007 Jul 18 1:47 PM

0 Likes
457

&----

*& Report Z_KRR

*&

&----

*&

*&

&----

REPORT Z_KRR no standard page heading message-id z000.

tables: mara.

TYPE-POOLS : SLIS.

DATA : begin of GIT_RAMS OCCURS 0,

matnr LIKE mara-matnr,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

end of GIT_RAMS.

data : REPID TYPE SY-REPID,

FIELD_CAT type SLIS_T_FIELDCAT_ALV,

WA_FLDCAT LIKE LINE OF FIELD_CAT.

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

select-options : s_ersda for mara-ersda.

selection-screen end of block b1.

initialization.

REP_ID = SY-REPID.

at selection-screen.

if s_ersda-low is initial.

message e000 with 'plz enter some value'.

exit.

endif.

start-of-selection.

    • perform get_data.

*PERFORM FILED_CATALOG.

*PERFORM DISPLAY_DATA.

select matnr ersda ernam from mara into table GIT_RAMS where ersda in s_ersda .

if sy-subrc EQ 0.

SORT GIT_RAMS BY MATNR.

  • form filed_catalog.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = 'GIT_RAMS'

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = REPID

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

CHANGING

ct_fieldcat = FIELD_CAT[]

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.

*FORM DISPLAY_DATA.

*LOOP AT GIT_RAMS.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

*I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'x'

I_BUFFER_ACTIVE = ' '

<b>I_CALLBACK_PROGRAM = 'REP_ID'</b> <-------Remove this line

<b>I_CALLBACK_PROGRAM = REPID</b><----

add this line

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = FIELD_CAT[]

  • IT_EXCLUDING = IT_EXCLUDING

  • IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

  • IT_SORT = IT_SORT

  • IT_FILTER = IT_FILTER

  • IS_SEL_HIDE = IS_SEL_HIDE

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT = IS_VARIANT

  • IT_EVENTS = IT_EVENTS

  • IT_EVENT_EXIT = IT_EVENT_EXIT

  • IS_PRINT = IS_PRINT

  • IS_REPREP_ID = IS_REPREP_ID

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IR_SALV_LIST_ADAPTER = IR_SALV_LIST_ADAPTER

  • IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

  • I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

  • ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

t_outtab = GIT_RAMS

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.

*ENDLOOP.

*ENDFORM.

  • form get_data.

  • select matnr ersda ernam from mara into table git_rams where ersda in s_ersda .

  • if sy-subrc = 0.

  • sort git_rams by matnr.

  • endif.

  • endform.