topic Re: help me logic in Application Development and Automation Discussions

help me logic

laxman_sankhla3 — Thu, 12 Apr 2007 13:16:03 GMT

i want all matnr , maktx and long description for each and every material no

but in my output in read text functionnal module its passing only one matnr so

only for one material no long text is coming even though another matnr also having material long descrtiption.

check below code

Form Get_Data.

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.

sort int_OUT by WERKS.

LOOP AT INT_OUT.

thread-tdname = INT_OUT-MATNR.

ENDLOOP.

thread-tdid = 'BEST'.

thread-tdobject = 'MATERIAL'.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = thread-tdid

LANGUAGE = sy-langu

NAME = thread-tdname

OBJECT = thread-tdobject

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = it_tlines.

LOOP AT it_tlines.

read table INT_OUT with key matnr = INT_OUT-MATNR.

IF sy-tabix <> 1.

CLEAR :int_out-matnr, int_out-maktx.

ENDIF.

int_out-tdline = it_tlines-tdline.

delete adjacent duplicates from INT_OUT .

APPEND int_out.

modify INT_OUT index sy-tabix.

ENDLOOP.

suggest me please.

thanks

Re: help me logic

suresh_datti — Thu, 12 Apr 2007 13:19:23 GMT

Put the read-texxt call inside the loop ie

Form Get_Data.


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.



sort int_OUT by WERKS.

LOOP AT INT_OUT.
thread-tdname = INT_OUT-MATNR.

thread-tdid = 'BEST'.
thread-tdobject = 'MATERIAL'.
*
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = thread-tdid
LANGUAGE = sy-langu
NAME = thread-tdname
OBJECT = thread-tdobject
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
LINES = it_tlines.



LOOP AT it_tlines.

read table INT_OUT with key matnr = INT_OUT-MATNR.


IF sy-tabix <> 1.
CLEAR :int_out-matnr, int_out-maktx.
ENDIF.
int_out-tdline = it_tlines-tdline.

delete adjacent duplicates from INT_OUT .
APPEND int_out.


modify INT_OUT index sy-tabix.
ENDLOOP.
endloop.  "<---

~Suresh

Re: help me logic

Former Member — Thu, 12 Apr 2007 13:20:55 GMT

Your logic is wrong. rewrite as follows

LOOP AT INT_OUT.

lv_tabix = sy-tabix.

thread-tdname = INT_OUT-MATNR.

thread-tdid = 'BEST'.

thread-tdobject = 'MATERIAL'.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = thread-tdid

LANGUAGE = sy-langu

NAME = thread-tdname

OBJECT = thread-tdobject

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = it_tlines.

LOOP AT it_tlines.

concatenate int_out-tdline it_tlines-tdline into int_out-tdline separated by space.

ENDLOOP.

modify INT_OUT index lv_tabix.

clear int_out.

endloop.

Regards,

Ravi

Re: help me logic

former_member189629 — Thu, 12 Apr 2007 13:21:19 GMT

Hi laxman,

Place the call to "READ_TEXT" within the loop using a perform. In that way, all the matnrs encountered in the loop wil be passed to READ_TEXT and you can retriev eall long texts.

Reward if helpful.

Re: help me logic

Former Member — Thu, 12 Apr 2007 13:21:45 GMT

Form Get_Data.

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.

sort int_OUT by WERKS.

LOOP AT INT_OUT.

thread-tdname = INT_OUT-MATNR.

*ENDLOOP. <remove from here.>

thread-tdid = 'BEST'.

thread-tdobject = 'MATERIAL'.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = thread-tdid

LANGUAGE = sy-langu

NAME = thread-tdname

OBJECT = thread-tdobject

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = it_tlines.

LOOP AT it_tlines.

read table INT_OUT with key matnr = INT_OUT-MATNR.

IF sy-tabix <> 1.

CLEAR :int_out-matnr, int_out-maktx.

ENDIF.

int_out-tdline = it_tlines-tdline.

delete adjacent duplicates from INT_OUT .

APPEND int_out.

modify INT_OUT index sy-tabix.

ENDLOOP.

ENDLOOP. <add here>

Re: help me logic

laxman_sankhla3 — Thu, 12 Apr 2007 13:21:49 GMT

i allready did but giving bug .

thanks

Re: help me logic

Former Member — Thu, 12 Apr 2007 13:22:56 GMT

Hi,

Why you are looping IT_LINES.

for each material How many lines of Long Text will come. Single line only. Even if it is 2 lines, read it twice and concatenate and use.

Form Get_Data.

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

LOOP AT INT_OUT.

thread-tdname = INT_OUT-MATNR.

* ENDLOOP.

thread-tdid = 'BEST'.

thread-tdobject = 'MATERIAL'.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = thread-tdid

LANGUAGE = sy-langu

NAME = thread-tdname

OBJECT = thread-tdobject

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = it_tlines.

read table it_lines index 1.

if sy-subrc = 0.

int_out-tdline = it_tlines-tdline.

endif.

modify INT_OUT index sy-tabix.

ENDLOOP.

check it will work now.

reward if useful

reagrds,

ANJI

Re: help me logic

Former Member — Thu, 12 Apr 2007 13:36:31 GMT

Hi,

Check this code.

*----------------------------------------------------------------------*
*----------------------------------------------------------------------*

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~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.
  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.
ENDLOOP.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*

Regards,