Copiando dados da mesma tabela entre companhias

Via job:

CustTable ctA, ctIns, ctB;

container emp;

;

emp = ['empresa'];

while select crosscompany : emp ctA
{
    select ctB where
    ctB.accountnum==ctA.accountnum;

    if(!ctB)
    {
        changecompany("Empresa destino")
        {
           ctIns.data(ctA);
           ctIns.company("Empresa destino");
           ctIns.insert();
        }
    }
}