Problem in logic help

Question

hi i want to display
<b>material no  material short description material long description.</b>
im my output is coming .
<b>material no   material short description material long description</b>
but long description is coming in only one line it may be possible that long material should be 2 or 3 lines .
SELECT A~MATNR A~WERKS B~MAKTX FROM
            EKPO AS A
                INNER JOIN MAKT AS B ON B~MATNR = A~MATNR
                INTO CORRESPONDING
                 FIELDS OF TABLE INT_OUT WHERE A~WERKS IN S_WERKS
                and b~spras = sy-langu.
sort int_OUT by MATNR WERKS.
delete adjacent duplicates from INT_OUT comparing matnr .
  DATA: l_index LIKE sy-tabix.
SELECT
      a~matnr
      a~werks
      b~maktx FROM ekpo AS a
              INNER JOIN makt AS b
              ON b~matnr = a~matnr
              INTO CORRESPONDING FIELDS OF TABLE int_out
              WHERE
*              a~matnr = s_matnr and
              a~werks IN s_werks.
*SORT int_out BY werks.
LOOP AT int_out.
  l_index = sy-tabix.
  thread-tdname   = int_out-matnr.
  CALL FUNCTION 'READ_TEXT'
       EXPORTING
            client                  = sy-mandt
            id                      = 'BEST'
            language                = sy-langu
            name                    = thread-tdname
            object                  = 'MATERIAL'
       TABLES
            lines                   = it_tlines
       EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.
loop at it_tlines.
  IF sy-subrc = 0.
    READ TABLE it_tlines INDEX 1.
    int_out-tdline = it_tlines-tdline.
    MODIFY int_out INDEX l_index.
*    CLEAR: it_tlines.
    REFRESH: it_tlines.
  ENDIF.
delete  adjacent  duplicates  from INT_OUT comparing matnr .
  endloop.
ENDLOOP.
thanks in advanced.

Answer 1

hi
try this code...
SELECT AMATNR AWERKS B~MAKTX FROM
            EKPO AS A
                INNER JOIN MAKT AS B ON BMATNR = AMATNR
                INTO CORRESPONDING
                 FIELDS OF TABLE INT_OUT WHERE A~WERKS IN S_WERKS
                and b~spras = sy-langu.
sort int_OUT by MATNR WERKS.
delete adjacent duplicates from INT_OUT comparing matnr .
  DATA: l_index LIKE sy-tabix.
SELECT
      a~matnr
      a~werks
      b~maktx FROM ekpo AS a
              INNER JOIN makt AS b
              ON bmatnr = amatnr
              INTO CORRESPONDING FIELDS OF TABLE int_out
              WHERE
             a~matnr = s_matnr and
              a~werks IN s_werks.
*SORT int_out BY werks.
LOOP AT int_out.
  l_index = sy-tabix.
  thread-tdname   = int_out-matnr.
  CALL FUNCTION 'READ_TEXT'
       EXPORTING
            client                  = sy-mandt
            id                      = 'BEST'
            language                = sy-langu
            name                    = thread-tdname
            object                  = 'MATERIAL'
       TABLES
            lines                   = it_tlines
       EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.
loop at it_tlines.
   IF sy-tabix = 1.
     int_out-tdline = it_tlines-tdline.
    MODIFY int_out INDEX l_index.
ELSE.
     int_out-tdline = it_tlines-tdline.
    APPEND int_out .
  ENDIF.
endloop.
    REFRESH: it_tlines.
ENDLOOP.
Hope it helps you...
Let me know if u have any more doubt...
Reward points if useful......
Suresh.......