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