topic Re: READ_TEXT in Application Development and Automation Discussions

READ_TEXT

Former Member — Sat, 09 Aug 2008 06:40:16 GMT

Hi,

I have developed one program to get purchase order with text.

taken purchase order number as input and PO number and text

as output.

For that i have used function module READ_TEXT.

Its shows error if text is not mentained for PO and program terminates.

My requirement is that how to handle such condition.

If i enter 10 po numbers and if text is mantained for only 8 po.

The function mudule should return that text only.

And prog should not terminate if text is not maintained for any of the purchase order number.

Please suggest me.

Regards,

Deepak.

Re: READ_TEXT

Former Member — Sat, 09 Aug 2008 06:44:14 GMT

>For that i have used function module READ_TEXT.

>Its shows error if text is not mentained for PO and program terminates.

>My requirement is that how to handle such condition.

if there is no text then it will not return any text, but it never gives short dump. that means you are doing some thing wrong in your code. May be you are passing parameters wrongly. that might be causing the problem. show the code once.

Re: READ_TEXT

Former Member — Sat, 09 Aug 2008 06:58:44 GMT

Hi Deepak.

Loop at it_ekko.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = it_ekko-ebeln

LANGUAGE = sy-langu

NAME = <text name>

OBJECT = 'EKKO'

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES =

EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8

endloop.

Check the function module. In exceptions "NOT FOUND". sy-subrc value is 4. after this catch the exception.

write like this.

if sy-subrc = 4.

endif.

Handle the messages appropriately. Also take care of other exceptions based on the program requirement.

Regards,

Santosh Kumar M.

Re: READ_TEXT

Former Member — Sat, 09 Aug 2008 07:01:44 GMT

Check the sample code.. use the Read text function

REPORT  Z_READ_TEXT.

* Internal table to hold text in the standard text
  DATA:
    BEGIN OF T_TEXT OCCURS 0.
      INCLUDE STRUCTURE tline.     " Text Lines
  DATA: END OF  T_TEXT.

DATA:  TDNAME type  THEAD-TDNAME,
           TDID type  THEAD-TDID,
           TDOBJECT  THEAD-TDOBJECT.

TDID = '0001'.
TDNAME = '0000023232'. "for header , for item concatenate Item number
TDOBJECT = 'EKKO'. " for header , for item it is EKPO.


   CALL FUNCTION 'READ_TEXT'
           EXPORTING
             client                        = sy-mandt
             id                            =  TDID
             language                      = sy-langu
             name                          = TDNAME
             object                        = TDOBJECT
           TABLES
             lines                         = t_text
           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 ne 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.                         " IF sy-subrc <> 0