DO ENDDO. Check 逻辑控制

DO 1 TIMES.

SELECT SINGLE ap_fieldcat FROM /fom/tc_rep_ap INTO  lv_structure
WHERE acc_pr = p_acc_pr
AND   report = sy-repid.

CHECK sy-subrc <> 0.

SELECT SINGLE cust_set_id FROM /fom/tc_ap_cust INTO lv_cust_set
WHERE obl_type = /fom/cl_aro_object=>gc_obl_type_for_aro
AND   acc_pr   = p_acc_pr.

CHECK sy-subrc = 0.

SELECT SINGLE impl_class FROM /fom/tc_custset INTO lv_impl_class
WHERE cust_id = lv_cust_set.

    TRY.

CALL METHOD (lv_impl_class)=>get_report_struc
EXPORTING
            iv_repid     = /fom/if_aro_object_acc_pr=>gc_rep_evaluate
          RECEIVING
            ev_structure = lv_structure.
CATCH cx_sy_dyn_call_error.

    ENDTRY.

ENDDO.