Customer Aging Balance

private void customerAging(Args _args)
{
   CustTable      custtable;
   real           amt30 , amt60 , todateBalance;
   AccountNum     cudtid;
    Name          custname;
   FromDate      fromdate= mkDate(01,11,2017);
    ToDate       todate = mkDate(30,11,2017);


     while select custtable where custtable.MandatoryCreditLimit == NoYes::Yes
         && custtable.CustGroup !='ASAP-3000'
        {
            cudtid   = custtable.accountnum;
            custname = custtable.name();

            todateBalance  = custtable.balancecurperdate(todate,'AED');
            amt30          = custtable.balancecurperdate(fromdate-30,'AED');
            amt60          = custtable.balancecurperdate(fromdate-60,'AED');
            info(strFmt("custaccount %1 --- balance %2 --- balance %3 ---  balance  %4",cudtid, todateBalance,amt30, amt60));
        }


}