DECLARE

   l_return_status VARCHAR2(300);

   l_msg_count     NUMBER;

   l_msg_data      VARCHAR2(300);

   l_rec_type      hz_cust_account_v2pub.cust_account_rec_type;

   CURSOR cur IS

      SELECT party.party_name,

             cust.account_number,

             cust.creation_date,

             party.tax_reference,

             cust.cust_account_id

        FROM hz_cust_accounts cust, hz_parties party

       WHERE cust.party_id = party.party_id

         AND cust.account_number NOT IN

             ('', --

              '', --

              '', --

              '', --

              '', --

              '', --

              '',

              '');

BEGIN

   FOR rec IN cur LOOP

   

      l_rec_type.cust_account_id := rec.cust_account_id;

      l_rec_type.account_name    := rec.party_name || '(作废)';

      -- l_rec_type.cust_account_id := rec.CUST_ACCOUNT_ID;

      hz_cust_account_v2pub.update_cust_account(p_init_msg_list         => fnd_api.g_false,

                                                p_cust_account_rec      => l_rec_type,

                                                p_object_version_number => 2.0,

                                                x_return_status         => l_return_status,

                                                x_msg_count             => l_msg_count,

                                                x_msg_data              => l_msg_data);

   

      IF l_return_status <> 'S' THEN

         dbms_output.put_line('E:' || cux_util.dump_error_stack);

         RAISE;

      END IF;

   

   END LOOP;

END;