SAP ABAP

TYPES :  BEGIN  OF  ty_stxl ,            tdname  TYPE  stxl - tdname ,            clustr  TYPE  stxl - clustr ,            clustd  TYPE  stxl - clustd ,           END  OF  ty_stxl .    DATA :  longtext    TYPE   t247 - ltx ,         shorttext   TYPE   t247 - ktx ,         langu_back  TYPE   sy - langu ,         lv_month    TYPE  string .    DATA :   t_stxl  TYPE  STANDARD  TABLE  OF  ty_stxl .    DATA :  d_week  TYPE  scal - week . .    FIELD-SYMBOLS :  <stxl>  TYPE  ty_stxl . * compressed text data without text name    TYPES :  BEGIN  OF  ty_stxl_raw ,            clustr  TYPE  stxl - clustr ,            clustd  TYPE  stxl - clustd ,           END  OF  ty_stxl_raw .    DATA :   t_stxl_raw  TYPE  STANDARD  TABLE  OF  ty_stxl_raw .    DATA :   w_stxl_raw  TYPE  ty_stxl_raw . * decompressed text    DATA :   t_tline  TYPE  STANDARD  TABLE  OF  tline .    FIELD-SYMBOLS :  <tline>  TYPE  tline .    DATA :  t_stxh  TYPE  STANDARD  TABLE  OF  stxh ,   w_stxh  TYPE  stxh .    DATA

       TYPES :  BEGIN  OF  ty_stxl ,                tdname  TYPE  stxl - tdname ,                clustr  TYPE  stxl - clustr ,                clustd  TYPE  stxl - clustd ,               END  OF  ty_stxl .        DATA :   t_stxl  TYPE  STANDARD  TABLE  OF  ty_stxl .        FIELD-SYMBOLS :  <stxl>  TYPE  ty_stxl . * compressed text data without text name        TYPES :  BEGIN  OF  ty_stxl_raw ,                clustr  TYPE  stxl - clustr ,                clustd  TYPE  stxl - clustd ,               END  OF  ty_stxl_raw .        DATA :   t_stxl_raw  TYPE  STANDARD  TABLE  OF  ty_stxl_raw .        DATA :   w_stxl_raw  TYPE  ty_stxl_raw . * decompressed text        DATA :   t_tline  TYPE  STANDARD  TABLE  OF  tline .        FIELD-SYMBOLS :  <tline>  TYPE  tline .        DATA :  t_stxh  TYPE  STANDARD  TABLE  OF  stxh ,             w_stxh  TYPE  stxh . *      SELECT tdname tdobject tdid *         FROM stxh *           INTO CORRESPONDING FIELDS OF TABLE t_stxh. *AND THEN * select c