Legacy Business Person in V2R1

[AHassan]

Hello,

There are 300,000 Business Persons in the repository (V2R1) which are required to be deleted.

The following script is deleting roughly about 6000 Business Persons in a day.

Is there any more efficient way to delete Business Persons than this?

Script:

oRoot = MegaRoot

oBusinessPersonCollection = oRoot.Getcollection("Business Person")

Print oBusinessPersonCollection.Count

i=0

y=1

for i = 0 to oBusinessPersonCollection.Count -1

  oBusinessPersonCollection(y).Delete

  y=y+1

  i = i +1

  Next

Print y

[MAngouch · Accepted solution]

You can run the following operator:

getRoot.getCollection("Business Person").callMethod "~bHnwJiVr3vZ0[QueryDelete]","SilentMode,NoCheckDeletable",""