loop循环里面 exit continue

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_31228779/article/details/82251313
      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.

猜你喜欢

转载自blog.csdn.net/qq_31228779/article/details/82251313