CustTable custtable;
    SalesTable salestable;
    MCustTable mcusttable;
    MSalesTable msalestable;
    CustTrans   custtrans;

    container ct;
    ct = ['USMF','DEMF'];


    //while select AccountNum from custtable
    //index hint AccountIdx
//{
    //info(strFmt("%1",custtable.AccountNum));
//}
//

    //while select  crossCompany : ct AccountNum from custtable
    //{
        //info(strFmt("%1 %2",custtable.dataAreaId,custtable.AccountNum));
    //}
    //
    info(custtable.dataAreaId);
    changeCompany ("DEMF")
    {
        custtable =null;
        while select AccountNum from CustTable
        {
        info(strFmt("%1 %2",custtable.AccountNum,custtable.dataAreaId));
        }
    }
    //ttsBegin;
    //while select forupdate MCustName from MCustTable
            //where mcusttable.MCustName == "abc"
    //{
        //mcusttable.MCustName = "ABC";
        //mcusttable.update();
        //info(strfmt("%1",mcusttable.McustName));
    //}
    //ttsCommit;

    //while select custtable order by CustGroup desc
    //{
        //info(strFmt("%1",custtable.CustGroup));
    //}


    //while select salestable order by CustAccount desc
    //{
        //info(strFmt("%1",salestable.CustAccount));
    //}

    //while select sum(CreditMax) from custtable where custtable.AccountNum == "US-040"
    //{
        //info(strFmt("%1 %2",custtable.AccountNum,custtable.CreditMax));
    //}

    //while select sum(CreditMax) from custtable order by CustGroup where custtable.CustGroup == "10"
    //{
        //info(strFmt("%1,%2",custtable.CustGroup,custtable.CreditMax));
    //}

    //while select sum(CreditMax) from custtable group by CustGroup order by CustGroup desc
    //{
        //info(strFmt("%1,%2",custtable.CustGroup,custtable.Creditmax));
    //}
//
    //info(strFmt("____________________"));
//
    //while select minof(AccountNum) from custtable
    //{
        //info(strFmt ("%1,%",custtable.AccountNum));
    //}
//