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.
