//Create a SAS workspace and initialize it. 
//Insert a snippet to create a workspace.
            
// Add the SAS object to the ObjectKeeper. If the object is not
// in the ObjectKeeper, it cannot be used by the IOM Data
// Provider.
SASObjectManager.ObjectKeeperClass objKeeper = 
    new SASObjectManager.ObjectKeeperClass();

objKeeper.AddObject(1, "BridgeConnection", sasWorkspace);

string selectCommandText = "$QueryString$";

//Get the requested data using ADO.NET.
System.Data.OleDb.OleDbDataAdapter sasDataAdapter =
    new System.Data.OleDb.OleDbDataAdapter(
        selectCommandText,
        "provider=sas.iomprovider.1; SAS Workspace ID=" +
        sasWorkspace.UniqueIdentifier);

System.Data.DataSet dataSetResult = new System.Data.DataSet();
sasDataAdapter.Fill(dataSetResult, "sasdata");

objKeeper.RemoveObject(sasWorkspace);

//Create a SAS workspace and initialize it. 
//Insert a snippet to create a workspace.
            
// Add the SAS object to the ObjectKeeper. If the object is not
// in the ObjectKeeper, it cannot be used by the IOM Data
// Provider.
SASObjectManager.ObjectKeeperClass objKeeper = 
    new SASObjectManager.ObjectKeeperClass();

objKeeper.AddObject(1, "BridgeConnection", sasWorkspace);

//Get the formatted data using ADODB.
ADODB.Connection adoConnection = new ADODB.ConnectionClass();
ADODB.Recordset adoRecordset = new ADODB.Recordset();
ADODB.Command adoCommand = new ADODB.CommandClass();

adoConnection.Open("provider=SAS.IOMProvider.1; SAS Workspace ID=" + 
    sasWorkspace.UniqueIdentifier,
    "", "", 0);

adoCommand.ActiveConnection = adoConnection;
adoCommand.CommandText = "$QueryString$";
adoCommand.Properties["SAS Formats"].Value = "_ALL_";
adoCommand.CommandType = ADODB.CommandTypeEnum.adCmdText;
adoRecordset.Open(
    adoCommand, 
    System.Reflection.Missing.Value, 
    ADODB.CursorTypeEnum.adOpenDynamic, 
    ADODB.LockTypeEnum.adLockReadOnly, 
    1);

//Fill an ADO.NET DataSet using the ADODB Recordset.
System.Data.OleDb.OleDbDataAdapter sasDataAdapter = 
    new System.Data.OleDb.OleDbDataAdapter();
System.Data.DataSet sasData = new System.Data.DataSet();
sasDataAdapter.Fill(sasData, adoRecordset, "sasdata");
                
objKeeper.RemoveObject(sasWorkspace);

SASObjectManager.ObjectFactoryClass objFactory = 
    new SASObjectManager.ObjectFactoryClass();
SASObjectManager.ServerDefClass serverDef = 
    new SASObjectManager.ServerDefClass();
SASObjectManager.LoginDefClass loginDef = 
    new SASObjectManager.LoginDefClass();

// ************************************************
// TODO: Configure where files will be saved by setting the 
// following boolean statements.
// ************************************************
bool bSaveLoginForAllUsers = true;
bool bSaveServerForAllUsers = true;

String strAllUsersFilePath =
    Environment.GetFolderPath(
        Environment.SpecialFolder.CommonApplicationData) +
        @"\SAS\MetadataServer\oms_serverinfo.xml";
String strCurrentUserFilePath =
    Environment.GetFolderPath(
        Environment.SpecialFolder.ApplicationData) +
        @"\SAS\MetadataServer\oms_serverinfo.xml";
String strCurrentUserLoginFilePath =
    Environment.GetFolderPath(
        Environment.SpecialFolder.ApplicationData) +
        @"\SAS\MetadataServer\oms_userinfo.xml";

// ************************************************
// Configure the SAS® Metadata Server information.
// TODO:  Modify these values for your SAS Metadata Server.
// ************************************************
serverDef.BridgeEncryptionAlgorithm = "SASProprietary";
serverDef.BridgeEncryptionLevel = 
    SASObjectManager.EncryptionLevels.EncryptUserAndPassword;
serverDef.ClassIdentifier = "2887E7D7-4780-11D4-879F-00C04F38F0DB";
serverDef.Name = "SAS Metadata Server";
serverDef.Port = $ServerDef.Port$;
serverDef.MachineDNSName = $ServerDef.MachineDNSName$;
serverDef.Protocol = SASObjectManager.Protocols.ProtocolBridge;
serverDef.DomainName = $ServerDef.Domain$;
String strRepository = $Repository$;

// ************************************************
// Configure the SAS Metadata Server login information.
// TODO:  Modify these values for your SAS Metadata Server.
// ************************************************
loginDef.DomainName = serverDef.DomainName;
loginDef.LoginName = $LoginDef.LoginName$;
loginDef.Name = loginDef.LoginName;
loginDef.Password = $LoginDef.Password$;

if (bSaveServerForAllUsers && bSaveLoginForAllUsers)
{
    // ************************************************
    // Save server and login information for all users.
    // ************************************************
    objFactory.WriteConfigFile(
        strAllUsersFilePath,
        serverDef,
        loginDef,
        SASObjectManager.RepositoryTypes.RepositoryOMR,
        strRepository);
}
else if (bSaveServerForAllUsers)
{
    // ************************************************
    // Save server information for all users and login 
    //  information for the current user.
    // ************************************************
    objFactory.WriteConfigFile(
       strAllUsersFilePath,
       serverDef,
       null,
       SASObjectManager.RepositoryTypes.RepositoryOMR,
       strRepository);

    objFactory.WriteConfigFile(
       strCurrentUserLoginFilePath,
       null,
       loginDef,
       SASObjectManager.RepositoryTypes.RepositoryNone,
       null);
}
else
{
    // ************************************************
    // Save server and login information for current users.
    // ************************************************
    objFactory.WriteConfigFile(
        strCurrentUserFilePath,
        serverDef,
        loginDef,
        SASObjectManager.RepositoryTypes.RepositoryOMR,
        strRepository);

    // It is a good idea to clean up conflicting login 
    // information to ensure that your configuration is using 
    // the correct user name and password.
    System.IO.FileInfo fiCurrentUserLoginFile = 
        new System.IO.FileInfo(strCurrentUserLoginFilePath);

    if (fiCurrentUserLoginFile.Exists)
        fiCurrentUserLoginFile.Delete();                
}

SASObjectManager.ObjectFactoryClass objFactory = 
    new SASObjectManager.ObjectFactoryClass();
SASObjectManager.ServerDefClass serverDef = 
    new SASObjectManager.ServerDefClass();

// ************************************************
// Configure the SAS server information.  
// TODO: Modify these options as appropriate.
// ************************************************
serverDef.Protocol = SASObjectManager.Protocols.ProtocolCom;
serverDef.MachineDNSName = $MachineDNSName$;

// ************************************************
// Create the connection.
// ************************************************
SAS.Workspace sasWorkspace = null;
sasWorkspace = (SAS.Workspace) objFactory.CreateObjectByServer(
    "COMConnection", true, serverDef, null, null);

SASObjectManager.ObjectFactoryClass objFactory = 
    new SASObjectManager.ObjectFactoryClass();
SASObjectManager.ServerDefClass serverDef = 
    new SASObjectManager.ServerDefClass();

// ************************************************
// Configure the SAS server information.  
// TODO: Modify these options as appropriate.
// ************************************************
serverDef.BridgeEncryptionAlgorithm = "SASProprietary";
serverDef.BridgeEncryptionLevel = 
    SASObjectManager.EncryptionLevels.EncryptUserAndPassword;
serverDef.MachineDNSName = $MachineDNSName$;
serverDef.Port = $Port$;
serverDef.Protocol = SASObjectManager.Protocols.ProtocolBridge;  

// ************************************************
// Create the connection.
// ************************************************
SAS.Workspace sasWorkspace = null;
sasWorkspace = (SAS.Workspace)objFactory.CreateObjectByServer(
    "BridgeConnection", true, serverDef, $UserName$, $Password$);

SASObjectManager.ObjectFactoryClass objFactory = 
    new SASObjectManager.ObjectFactoryClass();
            
// ************************************************
// Create the connection.
// ************************************************
SAS.Workspace sasWorkspace = null;
sasWorkspace = (SAS.Workspace)objFactory.CreateObjectByLogicalName(
    "SASMain", true, $LogicalName$, null);

SASObjectManager.ObjectFactoryClass objFactory = 
    new SASObjectManager.ObjectFactoryClass();
SASObjectManager.ServerDefClass serverDef = 
    new SASObjectManager.ServerDefClass();
SASObjectManager.LoginDefClass loginDef = 
    new SASObjectManager.LoginDefClass();
SASObjectManager.ObjectPool objectPool = null;

string strPoolName = $PoolName$;

try
{
    //Check to be sure that the pool is not already running.
    objectPool = objFactory.ObjectPools.Item(strPoolName);

    if (objectPool != null)
        return;
}
catch (Exception ex)
{
    Trace.Write(
       "Pool not created yet, creating pool." +
       "Exception message:  " +
       ex.Message);
}

try
{
    // ************************************************
    // Configure the SAS server information.  
    // TODO: Modify these options as appropriate.
    // ************************************************
    serverDef.MachineDNSName = $MachineDNSName$;
    serverDef.Protocol = SASObjectManager.Protocols.ProtocolBridge;
    serverDef.Port = $Port$;
    serverDef.BridgeEncryptionAlgorithm = "SASProprietary";
    serverDef.BridgeEncryptionLevel = 
        SASObjectManager.EncryptionLevels.EncryptUserAndPassword;
    serverDef.MaxPerObjectPool = 5;
    serverDef.RunForever = false;
    serverDef.ShutdownAfter = 30;
    serverDef.RecycleActivationLimit = 30;

    // ************************************************
    // Configure the login information and pooling parameters.
    // TODO:  Modify these options as appropriate.
    // ************************************************
    loginDef.LoginName = $UserName$;
    loginDef.Password = $Password$;
    loginDef.MinSize = 2;
    loginDef.MinAvail = 0;

    // ************************************************
    // Create the ObjectPool.
    // ************************************************
    objectPool = objFactory.ObjectPools.CreatePoolByServer(
        strPoolName,
        serverDef,
        loginDef);

    Trace.Write("ObjectPool created.");
}
catch (Exception ex)
{
    Trace.Write("Exception while creating object pool:  " + 
        ex.Message);
    throw;
}

System.Data.DataSet ds;
System.Xml.XmlElement result;

// ************************************************
// Add code to call SAS BI Web Services Wizard code.
//
// System.Data.DataSet dsIn = new System.Data.Dataset();
// ds.ReadXml("c:\\mydoc.xml");
// System.Xml.XmlDocument doc = new System.Xml.XmlDocument();
// doc.LoadXml(ds.GetXml());
//
// string tablename = "mydata";
// result = 
//     XMLA.SamplesStoredProcessesSampleMEANSProcedureWebService(
//         tablename, doc.DocumentElement);
// ************************************************

try
{
    System.IO.MemoryStream ms = new System.IO.MemoryStream();
    System.Xml.XmlTextWriter xmlWriter = 
        new System.Xml.XmlTextWriter(ms, System.Text.Encoding.UTF8);

    //Write the results to the xmlWriter.
    result.WriteTo(xmlWriter);
    xmlWriter.Flush();

    //Seek back to the beginning of MemoryStream.
    ms.Seek(0, System.IO.SeekOrigin.Begin);

    //Let ADO.NET read in the data from the stream, automatically 
    //reading the in-line schema.
    ds = new System.Data.DataSet();
    ds.ReadXml(ms);
}
catch(Exception ex)
{
    throw ex;
}

#region ConfigureSASLanguageEvents
public void ConfigureSASLanguageEvents(SAS.Workspace sasWorkspace)
{
    SAS.LanguageService sasLS = sasWorkspace.LanguageService;

    sasLS.DatastepStart += 
        new SAS.CILanguageEvents_DatastepStartEventHandler(
            sasLS_DatastepStart);

    sasLS.DatastepComplete += 
        new SAS.CILanguageEvents_DatastepCompleteEventHandler(
            sasLS_DatastepComplete);

    sasLS.ProcStart += 
        new SAS.CILanguageEvents_ProcStartEventHandler(
            sasLS_ProcStart);

    sasLS.ProcComplete += 
        new SAS.CILanguageEvents_ProcCompleteEventHandler(
            sasLS_ProcComplete);

    sasLS.StepError += 
        new SAS.CILanguageEvents_StepErrorEventHandler(
            sasLS_StepError);

    sasLS.SubmitComplete += 
        new SAS.CILanguageEvents_SubmitCompleteEventHandler(
            sasLS_SubmitComplete);
}

void sasLS_DatastepStart()
{
    throw new Exception("The method or operation is not implemented.");
}

void sasLS_DatastepComplete()
{
    throw new Exception("The method or operation is not implemented.");
}

void sasLS_ProcStart(string Procname)
{
    throw new Exception("The method or operation is not implemented.");
}

void sasLS_ProcComplete(string Procname)
{
    throw new Exception("The method or operation is not implemented.");
}

void sasLS_StepError()
{
    throw new Exception("The method or operation is not implemented.");
}

void sasLS_SubmitComplete(int Sasrc)
{
    throw new Exception("The method or operation is not implemented.");
}
#endregion

// ************************************************
// Define instances of the interfaces that are used.
// ************************************************
SAS.LanguageService sasLS = $sasWorkspace$.LanguageService;
SAS.FileService sasFileService = $sasWorkspace$.FileService;
SAS.Fileref sasFileref;
string outstring;

// ************************************************
// Create a temporary fileref to store dynamically 
// generated output.  Pass this fileref into your 
// SAS code so that the temporary fileref is used
// to write your output.
// ************************************************
sasFileref = sasFileService.AssignFileref(
    "", "TEMP", "", "", out outstring);

// ************************************************************
// TODO:  Insert your own logic in the following REGION section     
// to generate output in SAS that needs to be downloaded.
// ************************************************************
string sasCode;


#region SAS Code to Create HTML File
// Create a HTML Chart
// Add code here to create some ODS output.
#endregion

// ************************************************
// Submit the sample code to generate output.
// ************************************************
sasLS.Submit(sasCode);

// ************************************************
// Stream back the output file from SAS.
// ************************************************
SCRIPTOLib.StreamHelper sasStreamHelper = 
    new SCRIPTOLib.StreamHelper();
SAS.BinaryStream sasBinaryStream;
sasBinaryStream = sasFileref.OpenBinaryStream(
    SAS.StreamOpenMode.StreamOpenModeForReading);
byte[] pieChart = (byte[])sasStreamHelper.ReadBinaryArray(
    sasBinaryStream, 0);
sasBinaryStream.Close();

// ************************************************
// The encoding of the HTML is specified as UTF-8 in 
// the ODS code.  Here are some example uses of the 
// the byte array that you can add to your code.
// ************************************************

//string strPieChart = System.Text.Encoding.UTF8.GetString(pieChart);

//System.IO.FileStream fs = new FileStream(
//    "c:\\pieChart.html", FileMode.Create, FileAccess.Write);
//fs.Write(pieChart, 0, pieChart.Length);
//fs.Close();