Finding the Day[BussinessDay or WeekendDay] from the given Date

static void day_Type(Args _args)
{
    TransDate   d = mkdate(24,06,2011);
    str         day;
    str         type;

    void typeOfDay(str _day)
    {
        switch(_day)
        {
            case 'Monday' :
                type = 'Bussiness Day';
            break;

            case 'Tuesday' :
                type = 'Bussiness Day';
            break;

            case 'Wednesday' :
                type = 'Bussiness Day';
            break;

            case 'Thursday' :
                type = 'Bussiness Day';
            break;

            case 'Friday' :
                type = 'Bussiness Day';
            break;

            case 'Saturday' :
                type = 'Weekend Day';
            break;

            case 'Sunday' :
                type = 'Weekend  Day';
            break;
        }
    }

    day = dayname(dayofwk(d));
    typeOfDay(day);

    info(type);
}