Application Development 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: 

Issue with ALV output list

Former Member

‎04-08-2008 12:42 PM

0 Kudos

Hi folks,

I am not getting the complete output of the ALV list. The last field, in the sccreen is truncated... can i have the solution pls...

Regards,

Vijay

6 REPLIES 6

Former Member

‎04-08-2008 12:51 PM

0 Kudos

hi

Former Member
In response to Former Member

‎04-08-2008 12:53 PM

0 Kudos

There is no ans for my q.

Former Member

‎04-08-2008 12:53 PM

0 Kudos

Hi ,

Check out if

l_fieldcat-outputlen = 4. "SET THE OUTPUT LENGTH.

is same as define in the dataelement of that field or not

do reward if helpful

Former Member

‎04-08-2008 12:59 PM

0 Kudos

*INTERACTIVE ALV REPORTS***

----

*& Report ZJE_ALV_INTRACTIVE1

*&

&----

*&

*&

&----

REPORT zje_alv_intractive2.

TYPE-POOLS: slis.

TABLES: kna1, vbak ,vbap.

*************************************************

*Type Declerations*****************************

*************************************************

TYPES: BEGIN OF ty_kna1,

xcpdk LIKE kna1-xcpdk,

kunnr LIKE kna1-kunnr,

land1 LIKE kna1-land1,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

END OF ty_kna1.

TYPES: BEGIN OF ty_vbak,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

ernam LIKE vbak-ernam,

netwr LIKE vbak-netwr,

END OF ty_vbak.

TYPES: BEGIN OF ty_vbap,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

matnr LIKE vbap-matnr,

END OF ty_vbap.

TYPES: BEGIN OF ty_mara,

matnr LIKE mara-matnr,

mtart LIKE mara-mtart,

matkl LIKE mara-matkl,

meins LIKE mara-meins,

END OF ty_mara.

*************************************************

*Data Declerations*****************************

*************************************************

DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1.

DATA: it_vbak TYPE STANDARD TABLE OF ty_vbak,

wa_vbak TYPE ty_vbak.

DATA: it_vbap TYPE STANDARD TABLE OF ty_vbap,

wa_vbap TYPE ty_vbap.

DATA: it_mara TYPE STANDARD TABLE OF ty_mara,

wa_mara TYPE ty_mara.

DATA: list1 TYPE i VALUE 0.

DATA: list(5) TYPE c .

DATA: page(5) TYPE c.

DATA: wa_layout TYPE slis_layout_alv,

it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

it_event_kna1 TYPE slis_t_event,

wa_event_kna1 TYPE slis_alv_event,

it_event_vbak TYPE slis_t_event,

wa_event_vbak TYPE slis_alv_event,

it_event_vbap TYPE slis_t_event,

wa_event_vbap TYPE slis_alv_event,

it_listheader TYPE slis_t_listheader,

wa_listheader TYPE slis_listheader,

it_sort TYPE slis_t_sortinfo_alv,

wa_sort TYPE slis_sortinfo_alv.

DATA: i_title_kna1 TYPE lvc_title VALUE 'FIRST LIST DISPLAYED',

i_title_vbak TYPE lvc_title VALUE 'SECONDRY LIST DISPLAYED',

i_title_vbap TYPE lvc_title VALUE 'TERTIARY LIST DISPLAYED'.

SELECT-OPTIONS: s_kunnr FOR kna1-kunnr DEFAULT 1000 TO 1500.

*************************************************

*Initialization********************************

*************************************************

INITIALIZATION.

PERFORM layout.

PERFORM fieldcat_kna1.

PERFORM event_kna1.

PERFORM eventpopulate_kna1.

*************************************************

*START OF SELECTION****************************

*************************************************

START-OF-SELECTION.

PERFORM datafetch_kna1.

PERFORM displaygrid_kna1.

&----

*& Form layout

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM layout .

wa_layout-zebra = 'X'.

  • wa_layout-colwidth_optimize = 'X'.

  • wa_layout-totals_text = 'GRAND_TOTAL'.

  • wa_layout-subtotals_text = 'SUB_TOTAL'.

wa_layout-edit = 'X'.

  • wa_layout-Box_fieldname = 'X'.

ENDFORM. " layout

*************************************************

*FIELD CATALOUGE*******************************

*************************************************

&----

*& Form fieldcat_kna1

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM fieldcat_kna1 .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-checkbox = 'X'.

wa_fieldcat-fieldname = 'XCPDK'.

wa_fieldcat-seltext_l = 'CHECK'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 5.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_l = 'CUSTOMER NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C21'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'LAND1'.

wa_fieldcat-seltext_l = 'COUNTRY CODE'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 5.

wa_fieldcat-emphasize = 'C31'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'NAME1'.

wa_fieldcat-seltext_l = 'CUSTOMER NAME'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ORT01'.

wa_fieldcat-seltext_l = 'COUNTRY '.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_kna1

&----

*& Form FIELDCAT_VBAK

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM fieldcat_vbak .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES ORDER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERDAT'.

wa_fieldcat-seltext_l = 'CREATED ON'.

wa_fieldcat-datatype = 'DATS'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-seltext_l = 'CREATED BY'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C61'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'NET VALUE'.

wa_fieldcat-datatype = 'CURR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-emphasize = 'C91'.

wa_fieldcat-do_sum = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " FIELDCAT_VBAK

&----

*& Form fieldcat_vbap

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM fieldcat_vbap .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES ORDER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'POSNR'.

wa_fieldcat-seltext_l = 'ITEM NUMBER'.

wa_fieldcat-datatype = 'NUMC'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C61'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATWA'.

wa_fieldcat-seltext_l = 'MATERIAL ENTERED'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATKL'.

wa_fieldcat-seltext_l = 'MATERIAL GROUP'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C81'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_vbap

&----

*& Form fieldcat_MARA

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM fieldcat_mara .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MTART'.

wa_fieldcat-seltext_l = 'MATERIAL TYPE'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATKL'.

wa_fieldcat-seltext_l = 'MATERIAL GROUP'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MEINS'.

wa_fieldcat-seltext_l = 'UNITS OF MEASUREMENT'.

wa_fieldcat-datatype = 'UNIT'.

wa_fieldcat-outputlen = 22.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_MARA

*************************************************

*END OF FIELD CATLOUGE*************************

*************************************************

*************************************************

*EVENT CALLS***********************************

*************************************************

&----

*& Form event

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM event_kna1.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_kna1

EXCEPTIONS

list_type_wrong = 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.

ENDFORM. " event

&----

*& Form event_vbak

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM event_vbak .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_vbak

EXCEPTIONS

list_type_wrong = 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.

ENDFORM. " event_vbak

&----

*& Form event_vbaP

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM event_vbap .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_vbap

EXCEPTIONS

list_type_wrong = 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.

ENDFORM. " event_vbaP

*************************************************

*END OF EVENT CALLS****************************

*************************************************

*************************************************

*EVENT POPULATE********************************

*************************************************

&----

*& Form eventpopulate

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM eventpopulate_kna1.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_kna1-form = 'TOP_OF_PAGE'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'END_OF_LIST'.

IF sy-subrc = 0.

wa_event_kna1-form = 'END_OF_LIST'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'USER_COMMAND'.

IF sy-subrc EQ 0.

wa_event_kna1-form = 'USER_COMMAND'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

ENDFORM. " eventpopulate

&----

*& Form eventpopulate_vbak

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM eventpopulate_vbak .

READ TABLE it_event_vbak INTO wa_event_vbak WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_vbak-form = 'TOP_OF_PAGE_1'.

MODIFY it_event_vbak FROM wa_event_vbak TRANSPORTING form WHERE name = wa_event_vbak-name.

ENDIF.

READ TABLE it_event_vbak INTO wa_event_vbak WITH KEY name = 'USER_COMMAND'.

IF sy-subrc EQ 0.

wa_event_vbak-form = 'USER_COMMAND_1'.

MODIFY it_event_vbak FROM wa_event_vbak TRANSPORTING form WHERE name = wa_event_vbak-name.

ENDIF.

ENDFORM. " eventpopulate_vbak

&----

*& Form eventpopulate_vbap

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM eventpopulate_vbap .

READ TABLE it_event_vbap INTO wa_event_vbap WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_vbap-form = 'TOP_OF_PAGE_2'.

MODIFY it_event_vbap FROM wa_event_vbap TRANSPORTING form WHERE name = wa_event_vbap-name.

ENDIF.

READ TABLE it_event_vbap INTO wa_event_vbap WITH KEY name = 'USER_COMMAND_3'.

IF sy-subrc = 0.

wa_event_vbap-form = 'USER_COMMAND_3'.

MODIFY it_event_vbap FROM wa_event_vbap TRANSPORTING form WHERE name = wa_event_vbap-name.

ENDIF.

ENDFORM. " eventpopulate_vbap

*************************************************

*END OF EVENT POPULATE*************************

*************************************************

*************************************************

**SUBROUTINE FOR PAGE **************************

*************************************************

&----

*& Form TOP_OF_PAGE

&----

  • text

----

FORM top_of_page.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Customer Details' .

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'JELOGO'

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE

&----

*& Form TOP_OF_PAGE1

&----

  • text

----

FORM top_of_page_1.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Sales Details'.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'JELOGO'

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE1

&----

*& Form TOP_OF_PAGE_2

&----

  • text

----

FORM top_of_page_2.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Item Details' .

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'ENJOYSAP_LOGO'

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE_2

*************************************************

**END FOR SUBROUTINES OF TOP OF PAGE ***********

*************************************************

*************************************************

*SUBROUTINE FOR END OF LIST*******************

*************************************************

&----

*& Form END_OF_LIST

&----

  • text

----

FORM end_of_list.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

  • i_logo = 'JELOGO'

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

  • REFRESH it_listheader.

REFRESH it_listheader.

ENDFORM. "END_OF_LIST

&----

*& Form datafetch_kna1

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM datafetch_kna1 .

SELECT xcpdk kunnr land1 name1 ort01

FROM kna1

INTO TABLE it_kna1

WHERE kunnr IN s_kunnr.

DESCRIBE TABLE it_kna1 LINES list1.

list = list1.

ENDFORM. " datafetch_kna1

&----

*& Form displaygrid_kna1

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM displaygrid_kna1 .

page = sy-pagno.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ''

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

i_grid_title = i_title_kna1

  • I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

it_events = it_event_kna1

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_kna1

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.

ENDFORM. " displaygrid_kna1

&----

*& Form USER_COMMAND

&----

  • text

----

  • -->UCOMM text

  • -->R_SELFIELD text

----

FORM user_command

USING ucomm TYPE sy-ucomm

r_selfield TYPE slis_selfield.

SELECT kunnr vbeln erdat ernam netwr

FROM vbak

INTO CORRESPONDING FIELDS OF TABLE it_vbak

WHERE kunnr = r_selfield-value.

PERFORM fieldcat_vbak.

PERFORM event_vbak.

PERFORM eventpopulate_vbak.

PERFORM sort.

PERFORM displaygrid_vbak.

ENDFORM. "USER_COMMAND

&----

*& Form sort

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM sort .

wa_sort-fieldname = 'ERNAM'.

wa_sort-tabname = 'IT_VBAK'.

wa_sort-subtot = 'X'.

wa_sort-up = 'X'.

APPEND wa_sort TO it_sort.

CLEAR wa_sort.

ENDFORM. " sort

&----

*& Form DISPLAYGRID_VBAK

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM displaygrid_vbak .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND_1'

i_callback_top_of_page = 'TOP_OF_PAGE_1'

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ''

i_grid_title = i_title_vbak

  • I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

it_sort = it_sort

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

it_events = it_event_vbak

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_vbak

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.

ENDFORM. " DISPLAYGRID_VBAK

&----

*& Form USER_COMMAND1

&----

  • text

----

FORM user_command_1

USING ucomm LIKE sy-ucomm

r_selfield1 TYPE slis_selfield.

SELECT vbeln posnr matnr

FROM vbap

INTO TABLE it_vbap

WHERE vbeln = r_selfield1-value.

PERFORM fieldcat_vbap.

PERFORM displaygrid_vbap.

PERFORM event_vbap.

PERFORM eventpopulate_vbap.

ENDFORM. "USER_COMMAND1

&----

*& Form displaygrid_vbap

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM displaygrid_vbap .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

  • I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND_3 '

i_callback_top_of_page = 'TOP_OF_PAGE_2 '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

i_grid_title = i_title_vbap

  • I_GRID_SETTINGS =

  • is_layout = wa_layout

it_fieldcat = it_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

it_events = it_event_vbap

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_vbap

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.

ENDFORM. " displaygrid_vbap

&----

*& Form USER_COMMAND_3

&----

  • text

----

  • -->UCOMM text

  • -->R_SELFIELD text

----

FORM user_command_3

USING ucomm TYPE sy-ucomm

r_selfield TYPE slis_selfield..

SELECT matnr mtart matkl meins

FROM mara

INTO TABLE it_mara

WHERE matnr = r_selfield-value.

PERFORM fieldcat_mara.

  • PERFORM event_MARA.

  • PERFORM eventpopulate_MARA.

PERFORM displaygrid_mara.

ENDFORM. "USER_COMMAND_3

&----

*& Form displaygrid_mara

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM displaygrid_mara .

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_title = 'MATERIAL INFORMATION'

i_selection = 'X'

  • I_ALLOW_NO_SELECTION =

i_zebra = 'X'

i_screen_start_column = 15

i_screen_start_line = 20

i_screen_end_column = 100

i_screen_end_line = 40

  • I_CHECKBOX_FIELDNAME =

  • I_LINEMARK_FIELDNAME =

  • I_SCROLL_TO_SEL_LINE = 'X'

i_tabname = 'IT_MARA'

  • I_STRUCTURE_NAME =

it_fieldcat = it_fieldcat

  • IT_EXCLUDING =

  • I_CALLBACK_PROGRAM =

  • I_CALLBACK_USER_COMMAND =

  • IS_PRIVATE =

  • IMPORTING

  • ES_SELFIELD =

  • E_EXIT =

TABLES

t_outtab = it_mara

  • 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.

ENDFORM. " displaygrid_mara

former_member188685
Active Contributor

‎04-08-2008 1:13 PM

0 Kudos

How many Fields/Columsn you are Displaying, can you tell me.

Truncating mean it is displaying Half or partial .

Try to expand the length of the ALV Display if you are using ALV Grid.

If you are using ALV list then you feel you are getting the truncated data. Increase the output length of the column and check .

Former Member

‎04-08-2008 1:13 PM

0 Kudos

Hi

Try declare ALV layout as following.

data: wa_layout type slis_layout_alv.

wa_layout-colwidth_optimize = 'X'.

call wa_layout in your function module.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

Exporting

IS_LAYOUT = wa_layout

Regards

Sathar