THIS IS A SAMPLE TO READ TEXT INFORMATION FROM TEXT OBJECT.

*************************************************************************************

FORM get_comments
    USING p_Devobjid  TYPE y0bs_Dev-objid.

*************************************************************************************

    DATA: e_header  TYPE thead.
   DATA:  i_tline   TYPE  STANDARD  TABLE  OF tline.
   e_header-tdobject =  'ZCHD_OBJ'.
   e_header-tdid =  'Y0B1'.
   e_header-tdspras = sy-langu.
   e_header-tdlinesize =  72.
 CONCATENATE p_Devobjid e_header-tdid   INTO e_header-tdname.
 *************************************************************************************
    CALL  FUNCTION  'READ_TEXT'
      EXPORTING
        client                  = sy-mandt
        id                      = e_header-tdid
        language                = e_header-tdspras
       name                    = e_header-tdname
        object                  =  'ZCHD_OBJ'
      TABLES
        lines                   = i_tline
      EXCEPTIONS
        id                      =  1
        language                =  2
       name                    =  3
       not_found               =  4
        object                  =  5
       reference_check         =  6
       wrong_access_to_archive =  7
        OTHERS                  =  8.

*************************************************************************************
ENDFORM.

*************************************************************************************