- 論壇徽章:
- 0
|
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Reflection;
public partial class UsingAS400Program : System.Web.UI.Page
{
//protected enum DataLengths : int
protected enum DataLengths : int
{
UserId = 7, //定義UserId長(zhǎng)度為7
UserName = 10,//定義UserName長(zhǎng)度為10
}
protected void Page_Load(object sender, EventArgs e)
{
}
public string CALLAS400()
{
// Assume the RPG program being called takes one input paramater, UserId, and returns the UserName.
//從web.config中去讀取 partsPricingConfig 的值,並傳遞給 AS400Program.cs 中的 AS400Program();
AS400Program program = new AS400Program(System.Configuration.ConfigurationManager.AppSettings["partsPricingConfig"]);
cwbx.StringConverter stringConverter = new cwbx.StringConverterClass();
cwbx.PackedConverter packedConverter = new cwbx.PackedConverterClass();
//packedConverter.DecimalPosition = 4;
//packedConverter.Digits = (int)DataLengths.UserName;
cwbx.ProgramParameters parameters = new cwbx.ProgramParametersClass();
//傳遞參數(shù)給as400
parameters.Append("PEMN", cwbx.cwbrcParameterTypeEnum.cwbrcInput, (int)DataLengths.UserId);
parameters["PEMN"].Value = stringConverter.ToBytes("2060113");
parameters.Append("NAME", cwbx.cwbrcParameterTypeEnum.cwbrcInput, (int)DataLengths.UserName);
parameters["NAME"].Value = stringConverter.ToBytes("aaabbbb");
//調(diào)用 AS400Program.cs 中的 傳遞parameters 給 Invoke 調(diào)用AS400 中的 Program
program.Invoke(true, ref parameters);
//string price = packedConverter.FromBytes(parameters["UserName"].Value);
//調(diào)用完成後關(guān)閉連結(jié)
program.Close();
return "恭喜你,調(diào)用成功!!";
}
protected void Button1_Click(object sender, EventArgs e)
{
string aa = CALLAS400();
TextBox1.Text = aa.ToString();
}
} |
|
免費(fèi)注冊(cè)
發(fā)表于 2009-05-18 16:01
