如何使用 java 代码添加 DB2 库以调用 AS400 PGM

Question

我正在使用java代码调用AS400程序。当程序很简单且不尝试写入任何 DB2 表时，调用成功。当我尝试调用另一个尝试写入 DB2 表的程序时，它不成功，因为我必须添加与此表相关的 DB2 库。我必须使用 java 代码添加库。我举了一个使用 coldfusion 代码添加这些库的示例。我想知道如何使用 java 代码添加 DB2 库。

private static final String HOST = "XXX.XXX.XXX.XXX";
private static final String UID = "XXX";
private static final String PWD = "XXX";
String fullProgramName = "/QSYS.LIB/TSTOBJ.LIB/GETAB.PGM";
String input = "12345678";
AS400 as400 = null;
byte[] inputData;
byte[] outputData;
String  SCAB;
AS400Text textData;
ProgramParameter[] parmList;
ProgramCall programCall;
try {
            // Create an AS400 object
            as400 = new AS400(HOST, UID, PWD);
            // Create a parameter list
            // The list must have both input and output parameters
            parmList = new ProgramParameter[2];
// Convert the Strings to IBM format
        inputData = input.getBytes("IBM285");
            // Create the input parameter  
        parmList[0] = new ProgramParameter(inputData);
            // Create the output parameter
            //Prarameterised Constructor is for the OUTPUT LENGTH. here it is 10
            parmList[1] = new ProgramParameter(20);

            /**
             * Create a program object specifying the name of the program and
             * the parameter list.
             */
            programCall = new ProgramCall(as400);
            programCall.setProgram(fullProgramName, parmList);
            // Run the program.  
            if (!programCall.run()) {
                /**
                 * If the AS/400 is not run then look at the message list to
                 * find out why it didn't run.
                 */
                AS400Message[] messageList = programCall.getMessageList();
                for (AS400Message message : messageList) {
                    System.out.println(message.getID() + " - " + message.getText());                
                }
            } else {
                /**
                 * Else the program is successfull. Process the output, which
                 * contains the returned data.
                 */
            outputData = parmList[1].getOutputData();
                  SCAB = new String(outputData, "IBM285").trim();
               /* System.out.println("Output is " + SCAB );*/
            }
        } catch (PropertyVetoException | AS400SecurityException | ErrorCompletingRequestException | IOException | InterruptedException | ObjectDoesNotExistException e) {
            System.err.println(":: Exception ::" + e.toString());
        } finally {
            try {
                // Make sure to disconnect 
                if (as400 != null) {
                    as400.disconnectAllServices();
                }
            } catch (Exception e) {
                System.err.println(":: Exception ::" + e.toString());
            }

冷聚变码=====>>>

<CFSET MYCMD = "ADDLIBLE KINP#Application.EQ_UNIT#   "  >
<cfset vretval = vcommand.run("#MYCMD#") >
<CFSET MYCMD = "ADDLIBLE KFIL#Application.EQ_UNIT#   "  >
<cfset vretval = vcommand.run("#MYCMD#") >
<CFSET MYCMD = "ADDLIBLE KWRK#Application.EQ_UNIT#   "  >
<cfset vretval = vcommand.run("#MYCMD#") >
<CFSET MYCMD = "ADDLIBLE KLIB#Application.EQ_UNIT#   "  >
<cfset vretval = vcommand.run("#MYCMD#") >
<CFSET MYCMD = "ADDLIBLE LIBK311F  "  >
<cfset vretval = vcommand.run("#MYCMD#") > 

Answer 1

使用命令调用来执行命令。有关详细信息，请参阅以下链接。

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzahh/javadoc/com/ibm/as400/access/CommandCall.html