Script to create Sample SUPPLIER Using API?

DECLARE

l_vendor_rec  ap_vendor_pub_pkg.r_vendor_rec_type;

l_return_status  varchar2(10);

l_msg_count  number;

l_msg_data  varchar2(1000);

l_vendor_id number;

l_party_id  number;

BEGIN

l_vendor_rec.segment1 := '1000';

l_vendor_rec.vendor_name := 'RAM';

l_vendor_rec.match_option:='R';

ap_vendor_pub_pkg.create_vendor

(

p_api_version=>1,

p_vendor_rec => l_vendor_rec,

x_return_status => l_return_status,

x_msg_count => l_msg_count,

x_msg_data => l_msg_data,

x_vendor_id => l_vendor_id,

x_party_id => l_party_id

);

COMMIT;

dbms_output.put_line('vendor id for the given segment1 : '||l_vendor_id);

dbms_output.put_line('party id for the given segment1: '||l_party_id);

END;