Gravar motivo ao eliminar Pedidos por resíduo

estou usando o PE MT235G1.PRW na rotina MATA235 para gravar motivo ao eliminar pedido e compras por resíduo e estou usando a seguinte linha de código dentro do fonte

aCols[nI][GDFIELDPOS("C7_X_nome do campo", aHeader)] := cObsCom

mas ao testar a rotina da um erro que aCols não existe

poderiam em auxiliar nesse procedimento, agradeço antecipadamente