How to remove signature when demoting a business object

You use the following trigger script to remove all existing signatures when demoting a business object.


tcl;
eval {
set err [catch {
set sObjectId [mql get env OBJECTID];
mql push context user "superuser" password "superpassword";
mql trigger off;
mql unsign bus $sObjectId signature all;
mql trigger on;
mql pop context;
} msg]
if {$err} {
puts $msg
}
exit 0 ;
}