ZBlog学习笔记

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.
DATA:  T_TLINE TYPE STANDARD TABLE OF TLINE.
DATA ZTXT TYPE STRING.
SELECT *
FROM STXL
WHERE RELID    EQ 'TX'          "standard text
AND TDOBJECT EQ 'EKPO'
AND TDID     EQ 'F01'
*AND TDNAME EQ '430000001200010'
AND TDSPRAS  EQ @SY-LANGU
INTO TABLE @DATA(LT_STXL)
  UP TO 30000 ROWS.
DATA LV_TIME1 TYPE TIME.
DATA LV_TIME2 TYPE TIME.
DATA LV_S TYPE STRING.
LV_TIME1 = SY-UZEIT.
LOOP AT LT_STXL ASSIGNING FIELD-SYMBOL(<F_STXL>) GROUP BY ( TDNAME = <F_STXL>-TDNAME ) .
  CLEAR: T_STXL_RAW[], T_TLINE[].

  LOOP AT LT_STXL INTO DATA(LS_STXL) WHERE TDNAME = <F_STXL>-TDNAME.
    W_STXL_RAW-CLUSTR = <F_STXL>-CLUSTR.
    W_STXL_RAW-CLUSTD = <F_STXL>-CLUSTD.
    APPEND W_STXL_RAW TO T_STXL_RAW.
  ENDLOOP.

  IMPORT TLINE = T_TLINE FROM INTERNAL TABLE T_STXL_RAW.

  LOOP AT T_TLINE ASSIGNING FIELD-SYMBOL(<TLINE>).
    ZTXT = ZTXT && <TLINE>-TDLINE.
  ENDLOOP.
*  WRITE : /  ZTXT.
  CLEAR ZTXT.
ENDLOOP.