java连as400方法1.txt

来自「这是用JAVA连接AS/400的JAVA方法的一种」· 文本 代码 · 共 108 行

import com.ibm.as400.access.ProgramCall;

import java.math.*; 

import com.ibm.as400.access.*;
public class AS400CALL {

	/**
	 * @param args
	 */
	public static void main(String[] args) {
		
		//1

		AS400 system = new AS400("12.12.1.8","ZJXT","HYSOFT");
		ProgramCall program = new ProgramCall(system);
		try
		{
		CommandCall cc = new CommandCall(system);
		cc.run("ADDLIBLE ZJXTPFOBJ");

			 String programName = "/QSYS.LIB/ZJXTPFOBJ.LIB/ZJBZJDR.PGM";

		ProgramParameter[] parameterList = new ProgramParameter[13];

		AS400Text text1 = new AS400Text(4); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

                AS400Text text3 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);
           
                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);
           
                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

                AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);
           
                AS400Text text1 = new AS400Text(2); 
		parameterList[0] = new ProgramParameter(text1.toBytes("SQ")); 

		AS400Text text2 = new AS400Text(20);
		parameterList[1] = new ProgramParameter(text2.toBytes("SQ"),20);

		program.setProgram(programName, parameterList);
		
		if (program.run() != true)
		{

		System.out.println("Program failed!");

		AS400Message[] messagelist = program.getMessageList();
		for (int i = 0; i < messagelist.length; ++i)
		{

		System.out.println(messagelist[i]);
		}
		}

		else
		{
                System.out.println("value:"+new AS400Text(10).toObject(parameterList[1].getOutputData()).toString() );
		System.out.println("value:"+new AS400Text(20).toObject(parameterList[1].getOutputData()).toString() );
		}
		}
		catch (Exception e)
		{
		System.out.println("Program " + program.getProgram() + " did not run!");
		}
		system.disconnectAllServices();

		}
	}