Skip to Content
0
Former Member
Mar 06, 2009 at 09:57 AM

resuse_alv_list_display

30 Views

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = sy-repid

I_INTERNAL_TABNAME = 'ITUSER1'

I_STRUCTURE_NAME = 'CATS_TEMP'

  • I_CLIENT_NEVER_DISPLAY = 'X'

  • I_INCLNAME =

I_BYPASSING_BUFFER = 'X'

  • I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = ls_FIELDCAT

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.

LOOP AT LS_FIELDCAT INTO WSFIELDCAT.

IF WSFIELDCAT-FIELDNAME = 'ANWENDER' OR WSFIELDCAT-FIELDNAME = 'VARIANTE'

OR WSFIELDCAT-FIELDNAME = 'ZEILE' OR WSFIELDCAT-FIELDNAME = 'RNPLNR' OR WSFIELDCAT-FIELDNAME = 'RAUFPL'

OR WSFIELDCAT-FIELDNAME = 'ZZTEXT1'.

wsfieldcat-OUTPUTLEN = 30.

MODIFY LS_FIELDCAT FROM WSFIELDCAT.

CONTINUE.

ELSE.

wsfieldcat-NO_OUT = 'X'.

*

MODIFY LS_FIELDCAT FROM WSFIELDCAT.

*

**WHERE FIELDNAME NE 'ANWENDER' OR 'VARIANTE'

  • OR 'ZEILE' OR 'RNPLNR'OR 'RAUFPL' OR 'ZZTEXT1'.

*

ENDIF.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_LIST_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 = ' '

  • I_STRUCTURE_NAME = ituser1

IS_LAYOUT = gs_layout

IT_FIELDCAT = ls_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

  • IT_EVENTS =

  • 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

  • IR_SALV_LIST_ADAPTER =

  • IT_EXCEPT_QINFO =

  • I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = ituser

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

this is the code i am writing to display 5 fields in outout , but in out put i can't see the complete label of the fields in out put column .any 1 with solution

regards

Prasun