#Check environment
sub inspect
{
    my $window,$informix,$oracle,$sql) = @_;

    if ($^O eq 'MSWin32' or $^O eq 'Windows_NT')
    {
        $window=1;
    }
    if ($ENV{FRUNEXT})
    {
        if ($ENV{FRUNEXT} eq 'ifx')
        {
            $$informix=1;
        }
        elsif($ENV{FRUNEXT} eq 'msv')
        {
            $$sql=1;
        }
        elsif($ENV{FRUNEXT} eq 'ora')
        {
            $$oracle=1;
        }
    }
    else
    {
        err_msg( "Database Environment Variable 'FRUNEXT' Not Set: $!\n");
        exit;
    }
}