javaからAS400のプログラム起動

解決済

質問者：uc078
質問日時：2006/05/29 13:55
回答数：1件

JAVAからAS/400のプログラムを起動しようとしています。

AS/400側はCLのプログラムで、
1.パラメータを受け取ってデータエリアの更新
2.他PGMのCALL（パラメータの内容を印刷）
の２つを行おうとしています。

実行したところ、1.のデータエリア更新はできているのですが、2.の他PGMのCALLが実行されません。

同じような経験をされた方で、何かご存じの方がいらっしゃいましたら、よろしくご教授ください。
以下、ソースを示します。

JAVA側の内容

import java.io.*;
import com.ibm.as400.access.*;
public class TESTD{
public static void main( String args[] ){
try{
CallAS400( args[0] );
}catch(Exception e){
System.out.println( e.getMessage() );
}
}
private static void CallAS400(String RCode){
try{
AS400 sys = new AS400(sysName,USER,PASS);
ProgramParameter[] parmList = new ProgramParameter[1];
AS400Text nametext = new AS400Text(6);
parmList[0] = new ProgramParameter(nametext.toBytes(RCode));

ProgramCall pgm = new ProgramCall(sys,TEST.PGM,parmList);
pgm.run();

sys.disconnectAllServices();

}catch(Exception e){
System.out.println( e.getMessage() );
}
}
}

*AS/400側：TEST.PGM の内容
PGM: PGM PARM(&CODE)

DCL VAR(&CODE) TYPE(*CHAR) LEN(6)

CHGDTAARA DTAARA(QTEMP/DTA) VALUE(&CODE)

CALL PGM(TESTPRINT) PARM(0 0 &CODE)

RETURN
ENDPGM