How to Send Values from READ_TEXT to User exit

Question

Hi Friends.,
                   I need to Read Values from  READ_TEXT  FM  and send those values  to  User exit  ( Exit_SAPLRSAP_001  for   ZSALES_2LIS_11_VAITM )  Datasource,
I'm Getting one Indicator value ( values are like   Y N  0 )  from  READ_TEXT  FM
and i have to make use of this in Extraction Part
can anyone help me out in ABAP coding to get these values from  READ_TEXT  FM  to  User exit
Regards
Sridhar.

Answer 1

Hi,
if you open the FM in se37,you will find the 'Function module documentation' button. click on it and try to see what this function module is about.
i am attaching a sample code to read the text of a penalty inforamion field.
  DATA: T_LINE_T LIKE TLINE OCCURS 0 WITH HEADER LINE.
  DATA: S_THEAD LIKE THEAD.
  DATA: T_LINE_H LIKE T_LINE_T OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'READ_TEXT'
          EXPORTING
            CLIENT                        = SY-MANDT
            ID                            = 'K01'     "Valid values for the text ID are defined in table TTXID.
            LANGUAGE                      = SY-LANGU
            NAME                          = LV_SO     "here i am passing Sales order no
            OBJECT                        = 'EKPO'    "The text object is part of the text key and assigns the text module to a specific application object. Valid text objects are defined in table TTXOB.
  ARCHIVE_HANDLE                = 0
  LOCAL_CAT                     = ' '
         IMPORTING
           HEADER                         = S_THEAD
          TABLES
            LINES                         = T_LINE_T
         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 T_LINE_T INTO T_LINE_H INDEX 1.
Storing the value in the structure.
          E_T_DATA-PENALTY = T_Line_H-TDLINE.
        ENDIF.
Thanks.