topic Re: Regarding alv output in Application Development and Automation Discussions

Regarding alv output

Former Member — Wed, 18 Jul 2007 12:35:25 GMT

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

Re: Regarding alv output

Former Member — Wed, 18 Jul 2007 12:39:06 GMT

Hi Kavita,

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

Regards,

Atish

Re: Regarding alv output

Former Member — Wed, 18 Jul 2007 12:39:17 GMT

Hi kavita,

1. one minor mistake

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

INITIALIZATION.

REPID = SY-REPID.

regards,

amit m.

Re: Regarding alv output

Former Member — Wed, 18 Jul 2007 12:47:21 GMT

&----

*& 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' <-------Remove this line

I_CALLBACK_PROGRAM = REPID<----

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.