Non-persistent procedure sample

DEFINE INPUT PARAMETER CustName AS CHARACTER.
DEFINE INPUT PARAMETER phone AS CHARACTER.
DEFINE INPUT PARAMETER email AS CHARACTER.
DEFINE OUTPUT PARAMETER CustomerNumber AS INTEGER.

namespace BigOrderInfoClient    {

  using Progress.Open4GL;
  using Progress.Open4GL.Proxy;

  public class samplecode  {

    public static void NonPersistentProcedure( )  {
      // Connect to the AppServer
      Connection myConn = new Connection
                          ("AppServer://localhost/asbroker2", "", "", "");
      OpenAppObject openAO = new OpenAppObject(myConn, "mySvc");

      // Set Session model for state-free
      myConn.SessionModel = 1;

      // Create the parameters
      System.String CustName = "abc";
      System.String phone = "999-555-1234";
      System.String email = "me@foo.com";
      System.Int32 outValue;

      // Create a place for RETURN-VALUE
      System.String retVal;

      // Create the ParamArray
      ParamArray parms = new ParamArray(4);

      // Set up input parameters
      parms.AddCharacter(0, CustName, ParamArrayMode.INPUT);
      parms.AddCharacter(1, phone, ParamArrayMode.INPUT);
      parms.AddCharacter(2, email, ParamArrayMode.INPUT);

      // Set up Out parameters
      parms.AddInteger(3, null, ParamArrayMode.OUTPUT);

      // Run the procedure
      openAO.RunProc("AddCustomer.p", parms);

      // Get output parameters - use holder to handle unknown value
      outValue = (System.Int32)parms.GetOutputParameter(3);

      // Get RETURN-VALUE. Will return null for AddCustomer( ) procedure
      retVal = (System.String)parms.ProcReturnString;
      openAO.Dispose( );
    }
  }
}