function to read text structure

//function to read text structure

FORM GET_TITLE USING  TEXT_ID T_NAME LIKE THEAD-TDNAME OBJ_ID CHANGING
 C_TEXT.
   DATA: G_LINES LIKE TLINE OCCURS 0 WITH HEADER LINE.
   DATA: T_I TYPE I.
   CALL FUNCTION 'READ_TEXT'

        EXPORTING
            CLIENT                  = SY-MANDT
             ID                      = TEXT_ID
             LANGUAGE                = SY-LANGU
             NAME                    = T_NAME
             OBJECT                  = OBJ_ID
*          ARCHIVE_HANDLE          = 0
*    IMPORTING
*         HEADER                  =
        TABLES
             LINES                   = G_LINES
           EXCEPTIONS
                ID                      = 1
                LANGUAGE                = 2
                NAME                    = 3
                NOT_FOUND               = 4
                OBJECT                  = 5
             REFERENCE_CHECK         = 6
             WRONG_ACCESS_TO_ARCHIVE = 7
             OTHERS                  = 8.
   CLEAR C_TEXT.
   IF SY-SUBRC = 0.
     DESCRIBE TABLE G_LINES LINES T_I.
     IF T_I > 0.
       READ TABLE G_LINES INDEX 1.
       C_TEXT = G_LINES-TDLINE.
     ENDIF.
   ENDIF.

===============================================

 call function 'READ_TEXT'
       exporting
            CLIENT                  = SY-MANDT
            id                      = 'ZC31'
            language                = sy-langu
            name                    = u_name
            object                  = 'VBBP'
       tables
            lines                   = g_line
       exceptions
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            others                  = 8.