LOOP AT lt_status INTO ls_status.
*&---设备状态
IF ls_status-stat+0(1) = 'E'.
READ TABLE gt_tj30 INTO gs_tj30 WITH KEY stsma = lv_stsma
estat = ls_status-stat
BINARY SEARCH.
IF sy-subrc = 0.
<fs_equi>-eq_stat = gs_tj30-stonr.
<fs_equi>-eq_stat_txt = gs_tj30-txt04.
ENDIF.
*&---系统状态
ELSEIF ls_status-stat = 'I0076'.
IF pv_flag_del = space.
DELETE pt_equi[].
lv_exit_flag = 'X'.
EXIT. ""退出内层loop
ELSEIF pv_flag_del = 'X'.
READ TABLE gt_tj02t INTO gs_tj02t WITH KEY istat = ls_status-stat
BINARY SEARCH.
IF sy-subrc = 0.
<fs_equi>-systat_txt04 = gs_tj02t-txt04.
<fs_equi>-systat_txt30 = gs_tj02t-txt30.
ENDIF.
EXIT.
ENDIF.
ELSE.
READ TABLE gt_tj02t INTO gs_tj02t WITH KEY istat = ls_status-stat
BINARY SEARCH.
IF sy-subrc = 0.
<fs_equi>-systat_txt04 = gs_tj02t-txt04.
<fs_equi>-systat_txt30 = gs_tj02t-txt30.
ENDIF.
ENDIF.
CLEAR ls_status.
ENDLOOP.
IF lv_exit_flag = 'X'.
CLEAR lv_exit_flag.
CONTINUE. "走外层loop
ENDIF.