anonymous block for cutomer account sites creation

-------------*********anonymous block for cutomer account sites creation******-------------------
declare
p_cust_acct_site_rec hz_cust_account_site_v2pub.cust_acct_site_rec_type;
x_cust_acct_site_id NUMBER;
x_return_status VARCHAR2 (2000);
x_msg_count     NUMBER;
x_msg_data      VARCHAR2 (2000);
begin
p_cust_acct_site_rec.cust_account_id   :=17070;
  p_cust_acct_site_rec.party_site_id     :=41276;
  --p_cust_acct_site_rec.LANGUAGE          := 'US';
  p_cust_acct_site_rec.created_by_module := 'HZ_CPUI';
  hz_cust_account_site_v2pub.create_cust_acct_site ('T',
  p_cust_acct_site_rec,
  x_cust_acct_site_id,
  x_return_status,
  x_msg_count,
  x_msg_data );
  IF  x_return_status ='S'THEN
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Creation of Customer account site is Successful ');
    DBMS_OUTPUT.PUT_LINE('Output information ....');  
    dbms_output.put_line('Cust acct site id          = '||TO_CHAR( x_cust_acct_site_id));
    dbms_output.put_line('Return Status Of Api    = '||x_return_status);
    dbms_output.put_line('No of err msgs          = '||x_msg_count);
    dbms_output.put_line('err information          = '||x_msg_data);
ELSE
    DBMS_OUTPUT.put_line ('Creation of Customer account site got failed:'||x_msg_data);
    ROLLBACK;
    FOR i IN 1 .. x_msg_count
    LOOP
      x_msg_data := fnd_msg_pub.get( p_msg_index => i, p_encoded => 'F');
      dbms_output.put_line( i|| ') '|| x_msg_data);
    END LOOP;
END IF;
DBMS_OUTPUT.PUT_LINE('Completion of API');
end;
/