DECLARE V_LIST AP_OTM_IF_TBL_T := AP_OTM_IF_TBL_T(); V_LINE1 AP_OTM_IF_T := AP_OTM_IF_T(1,1,'n',SYSDATE,SYSDATE,'N','N','N',1,'N','N',1,SYSDATE,'N','N',1,1,'N','N',1,SYSDATE,1,1,SYSDATE,'N',1,1); V_RES CHAR(20) :='N'; BEGIN V_LIST.extend(); V_LIST(V_LIST.count()) := V_LINE1; DBMS_OUTPUT.PUT_LINE('COUNT = ' || V_LIST.count()); SOA_AP_INVOICES_IF_INPUT.SEND_VOUCHER(V_LIST,V_RES); DBMS_OUTPUT.PUT_LINE('V_RESULT = ' || V_RES); END;
Este es otro ejemplo de como poblar un objeto de tipo tabla usando BULK COLLECT INTO.
set serveroutput on; DECLARE V_DATE_FORMAT varchar2(50) := 'DD-MON-YYYY'; v_date varchar2(50) := '11-DEC-2013'; v_eexp_list SWC_FA_EEXP_IFACE_TBL_T := SWC_FA_EEXP_IFACE_TBL_T(); BEGIN select SWC_FA_EEXP_IFACE_T (ADMIN_REVIEWED, APPROVER_TEMPLATE_PHASE, APP_ID, BRIEF_DESC, CHANGED_BY, COST_CENTER, DATE_CHANGED, DATE_CREATED, DIVISION, DIV_NAME, DIV_ID, LONG_DESC, ORIGINATING_LOCATION, PRIME_ACCOUNT, PRIOR_REQUEST, PRIOR_REQUEST_AMT, PROJECT, REQUEST_ID, REQUEST_STATUS, REVISED_TOTAL_AMT, SENT_TO_ONBASE, SITE_CITY_OTHER, SITE_ID, SITE_NUM_OTHER, SITE_STATE_OTHER, SUB_ACCOUNT, SUPPORT_MAILED, TOTAL_COST_AMT , DATE_APPROVED) BULK COLLECT INTO v_eexp_list from swc_fa_eexp_v where TO_CHAR(date_created,V_DATE_FORMAT) = v_date and request_status IN ('A', 'D'); dbms_output.put_line('COUNT: ' || v_eexp_list.count()); END;
No comments:
Post a Comment