static void PauseExpirationCustomer(Args _args)
{
custTable CustTable;
custTransOpen CustTransOpen;
ttsbegin;
while select forupdate custTable
{
select AccountNum
from custTransOpen
where (custTransOpen.AccountNum==custTable.AccountNum) && (custTransOpen.DueDate>systemdateget());
if (custTransOpen)
{
custTable.Blocked = CustVendorBlocked::All;
custTable.doUpdate();
}
}
ttscommit;
}