[belugin]

http://msdn.microsoft.com/en-us/library/gg843767.aspx

static void SelectVtsJob10(Args _args)
{
    TabEmplProjVts xEP;
    date dateFrom, dateTo;
    str strTemp;

    // Specify the largest possible date range
    // so that all ValidFrom value qualify.
    // Here 1\1\1900 is not treated as null by validTimeState().
    dateFrom = 01\01\1900;
    dateTo   = 31\12\2154;

    Global::info("Will display rows, if any exist.");

    While SELECT
        validTimeState(dateFrom, dateTo)
        * from xEP
        order by xEP.EmplID, xEP.ProjID, xEP.ValidFrom
    {
        strTemp = xEP.EmplID
            + " , " + xEP.ProjID
            + " ;  " + date2str(xEP.ValidFrom, 321, 2,3,2,3,4)
            + " -- " + date2str(xEP.ValidTo, 321, 2,3,2,3,4)
            + " ;  " + xEP.EPPrimaryKey;
        info(strTemp);
    }
}