How to Update Customer Location Address in the Oracle Apps EBS R12 Using Script

----****** How to Update Customer Location Address in the Oracle Apps EBS R12 Using Script *********** ----------

DECLARE

   p_location_rec            hz_location_v2pub.location_rec_type;

   p_object_version_number   NUMBER;

   x_return_status           VARCHAR2 (4000);

   x_msg_count               NUMBER;

   x_msg_data                VARCHAR2 (4000);

BEGIN

   DBMS_OUTPUT.put_line ('Start of Script');

   mo_global.init ('AR');

   fnd_global.apps_initialize (user_id           => 11,

                               resp_id           => 551122,

                               resp_appl_id      => 457

                              );

   mo_global.set_policy_context ('S', 123);

   p_object_version_number := 1;

   p_location_rec.location_id := 28195;

   p_location_rec.address1 := 'LOC_Address1';

   p_location_rec.address2 := 'LOC_Address2';

   p_location_rec.address3 := 'LOC_Address3';

   p_location_rec.address4 := 'LOC_Address4';

   p_location_rec.city := 'LOC_CITY';

   p_location_rec.state := 'LOC_STATE';

   p_location_rec.postal_code := 'POSTAL_CODE';

   p_location_rec.country := 'IN';

   DBMS_OUTPUT.put_line ('Calling the API hz_location_v2pub.update_location');

   hz_location_v2pub.update_location

                          (p_init_msg_list              => fnd_api.g_true,

                           p_location_rec               => p_location_rec,

                           p_object_version_number      => p_object_version_number,

                           x_return_status              => x_return_status,

                           x_msg_count                  => x_msg_count,

                           x_msg_data                   => x_msg_data

                          );

   IF x_return_status = fnd_api.g_ret_sts_success

   THEN

      COMMIT;

      DBMS_OUTPUT.put_line ('Successfully Location address updated ');

   ELSE

      ROLLBACK;

      FOR i IN 1 .. x_msg_count

      LOOP

         x_msg_data := oe_msg_pub.get (p_msg_index => i, p_encoded => 'F');

         DBMS_OUTPUT.put_line (i || ') ' || x_msg_data);

      END LOOP;

      DBMS_OUTPUT.put_line ('Location address update failed:' || x_msg_data);

   END IF;

   DBMS_OUTPUT.put_line ('End of Script');

END;