Former Member

Dec 02, 2005 at 06:26 AM

long text in alv

192 Views

Hi,

Iam trying to display alv list with one internal table(itab1).

I have another itab2 which is having very long text and which is appended as 4 lines.

Now i want to combine this itab2 into itab1 to dispaly long text.

Can any one explain me how to append this data.Here is the code.

My object is to put long text in the ALV list.Iam using QM02 transaction to get the data.

REPORT YQM_NOTIFICATION MESSAGE-ID ZM NO STANDARD PAGE HEADING

LINE-SIZE 255.

TYPE-POOLS: SLIS.

TABLES: QPCT,

QPGT,

QMEL,

QMMA,

IHPA.

DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

ITAB_EXTAB TYPE SLIS_T_EXTAB.

DATA: IT_FIELD TYPE SLIS_T_FIELDCAT_ALV,

W_LAYOUT TYPE SLIS_LAYOUT_ALV,

IT_EXCLU TYPE SLIS_T_EXTAB,

GS_EXTAB TYPE SLIS_EXTAB.

DATA : F_TDOBJECT LIKE THEAD-TDOBJECT,

F_TDNAME LIKE THEAD-TDNAME,

F_TDID LIKE THEAD-TDID,

ITAB_LINES LIKE tline OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF ITAB OCCURS 10,

DESC(72) TYPE C,

END OF ITAB.

DATA: BEGIN OF T_HDR OCCURS 0,

GROUP LIKE QPGT-CODEGRUPPE,

CODE LIKE QPCT-CODE,

TEXT LIKE QPCT-KURZTEXT,

NAME LIKE QPGT-KURZTEXT,

END OF T_HDR.

DATA: BEGIN OF T_DET OCCURS 0,

SNO TYPE I,

QMNUM LIKE QMEL-QMNUM, " NOTIFICATION NUMBER(REF NO)

REFNUM LIKE QMEL-REFNUM, " CONTRACT NO

PARNR LIKE IHPA-PARNR,

QMTXT LIKE QMEL-QMTXT,

QMGRP LIKE QMEL-QMGRP,

QMCOD LIKE QMEL-QMCOD,

OBJNR LIKE QMEL-OBJNR,

DESC(72),

END OF T_DET.

DATA: SNO TYPE I.

DATA: V_REPID TYPE SY-REPID.

SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:S_QMNUM FOR QMEL-QMNUM,

S_QMART FOR QMEL-QMART,

S_QMDAT FOR QMEL-QMDAT.

SELECTION-SCREEN END OF BLOCK A1.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM 2000_GET_MAIN.

PERFORM DISPLAY_ALV.

END-OF-SELECTION.

&----

*& FORM DISPLAY_ALV

&----

TEXT

----

FORM DISPLAY_ALV.

PERFORM FIELD_CAT USING FIELDCAT.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

IT_FIELDCAT = FIELDCAT

IT_EXCLUDING = ITAB_EXTAB

TABLES

T_OUTTAB = T_DET

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. "DISPLAY_ALV

&----

*& FORM FIELD_CAT

&----

TEXT

----

-->P_FIELDCAT TEXT

----

FORM FIELD_CAT USING P_FIELDCAT.

FIELD CATELOG FOR ALV DISPLAY.

DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

CLEAR I_FIELDCAT.

I_FIELDCAT-FIELDNAME = 'SNO'.

I_FIELDCAT-TABNAME = 'T_DET'.

I_FIELDCAT-NO_OUT = ' '.

I_FIELDCAT-SELTEXT_L = 'S.NO'.

I_FIELDCAT-OUTPUTLEN = 4.