//string ReadFileFromAssembly(string filename)
//{
// string filecontents = String.Empty;
// Assembly assem = System.Reflection.Assembly.GetCallingAssembly();
// Stream stream = assem.GetManifestResourceStream(filename);
// if (stream != null)
// {
// StreamReader tr = new StreamReader(stream);
// filecontents = tr.ReadToEnd();
// tr.Close();
// stream.Close();
// }
// return filecontents;
//}
static void PopulateDatasetList(SasServer ss, string libname)
{
ADODB.Recordset adorecordset = new ADODB.RecordsetClass();
ADODB.Connection adoconnect = new ADODB.ConnectionClass();
try
{
adoconnect.Open("Provider=sas.iomprovider.1; SAS Workspace ID=" + ss.Workspace.UniqueIdentifier, "", "", 0);
// use the SASHELP.VMEMBER view to get names of all of the datasets and views in the specified library
string selectclause = "select memname, memtype from sashelp.vmember where libname='" + libname + "' and memtype in ('DATA', 'VIEW')";
adorecordset.Open(selectclause, adoconnect, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, (int)ADODB.CommandTypeEnum.adCmdText);
OleDbDataAdapter da = new OleDbDataAdapter();
DataSet ds = new DataSet();
da.Fill(ds, adorecordset, "data");
}
catch
{
}
finally
{
adoconnect.Close();
}
}
static int Main(string[] args)
{
int exitcode = 0;
SasServer activeSession = new SasServer();
//string code = ReadFileFromAssembly("");
string path = args[0];
string readCode = "proc setinit; run;";
// This text is added only once to the file.
if (File.Exists(path))
{
readCode = File.ReadAllText(path);
}
//connect to sas server
try
{
activeSession.Connect();
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
//run sas code
if (activeSession != null && activeSession.Workspace != null)
{
activeSession.Workspace.LanguageService.Submit(readCode);
}
PopulateDatasetList(activeSession, "work");
// when code is complete, check error/warning
bool hasErrors = false, hasWarnings = false;
StringBuilder log = new StringBuilder();
Array carriage, lineTypes, lines;
do
{
activeSession.Workspace.LanguageService.FlushLogLines(1000,
out carriage,
out lineTypes,
out lines);
for (int i = 0; i < lines.GetLength(0); i++)
{
SAS.LanguageServiceLineType pre =
(SAS.LanguageServiceLineType)lineTypes.GetValue(i);
Console.WriteLine(lines.GetValue(i));
switch (pre)
{
case SAS.LanguageServiceLineType.LanguageServiceLineTypeError:
hasErrors = true;
break;
case SAS.LanguageServiceLineType.LanguageServiceLineTypeWarning:
hasWarnings = true;
break;
default:
break;
}
log.Append(string.Format("{0}{1}", lines.GetValue(i) as string, Environment.NewLine));
}
}while (lines != null && lines.Length > 0);
using (StreamWriter outfile = new StreamWriter("log.txt"))
{
outfile.Write(log.ToString());
}
if (hasWarnings && hasErrors)
{
Console.WriteLine("Program complete - has ERRORS and WARNINGS"); exitcode = 4;
}
else if (hasErrors)
{
Console.WriteLine("Program complete - has ERRORS"); exitcode = 4;
}
else if (hasWarnings)
{
Console.WriteLine("Program complete - has WARNINGS"); exitcode = 0;
}
else
{
Console.WriteLine("Program complete - no warnings or errors!"); exitcode = 0;
}
return(exitcode);
}
