如何從 AS/400 啟動 PC 程序或從 PC 啟動 AS/400 程序?_Windows系统

如何從 AS/400 啟動 PC 程序或從 PC 啟動 AS/400 程序?

发表于：2007-06-08来源：作者：点击数：标签：

1 從400上面啟動pc上程序：

Windows 95,98, NT 上需有 REXECD (remote executing)Daemon 程序, 用於接收外界指令, 在 AS/400 使用指令 RUMRMTCMD ,只定 PC 程序完整路徑, 例如:
"C:\Program Files\Microsoft Office\Office\EXCEL.EXE"

RUNRMTCMD +
CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') +
RMTLOCNAME('149.45.0.78' *IP) +
RMTUSER(user) RMTPWD(userpassword)

2 從pc 啟動400上程序：

PC 上有 REXEC.EXE 程式, 在 AS/400 上需啟動 Remote exection server: STRTCPSVR SERVER(*REXEC)

REXEC xxx.xxx.xxx.xxx -l QSYSOPR +
WRKACTJOB>C:\data\actjob.txt
xxx.xxx.xxx.xxx : AS/400 IP address;  -l is 小寫 L , for username

PC                                             動作                                       AS/400
REXECD  <------AS/400 傳送 PC command to daemon program  RUNRMTCMD

REXEC  PC 傳送 AS/400 command to AS/400 REXEC Server------>  STRTCPSVR *REXEC

qingzhou 回复于：2004-03-12 09:50:55

大家给热心的andrewleading_he同志鼓鼓掌吧~~~
期待更多、更新鲜的精华出炉。。。

andrewleading_he 回复于：2004-03-12 09:57:12

感謝劉大哥的鼓勵，我也在摸索中，很多東西都是各位朋友給我的。一句話，交流才能夠進步！封閉還是更封閉！跟大家一起進步......

fzrxh 回复于：2004-03-13 17:06:36

还可以strpco,在strpclearcase/" target="_blank" >ccmd

andrewleading_he 回复于：2004-03-15 08:57:10

[quote:dcc06f0af5="fzrxh"]还可以strpco,在strpccmd[/quote:dcc06f0af5]

謝謝！

nansong 回复于：2004-03-18 14:28:17

以下是我在DELPHI里调用AS400程序的一段程序, 但是没有成功。各位兄弟请指点迷津。

function TfrmMain.data_trans : boolean;
var hThread : DWORD;
    DllHandle : THandle;
    CallPGM : TCallPGM;
    strReturn : String;
begin

    Result := true;

    DllHandle := LoadLibrary('RDBCA.dll');

    try
        if DllHandle=0 then
        begin
            errMsg := 'AS400のプログラムをコールして、失敗しました。';
            Result := false;
            exit;
        end
        else
        begin
            @CallPGM := GetProcAddress(DllHandle,'CALLPGM');
            if @CallPGM <> nil then

            // AS400のプログラムをコールする
            // パラメータ：1 アプリケーションのインスタンス
            //             2 コールするプログラム
            //             3 AS400上のプログラムが必要なパラメータ
            //             4 AS400のマシン名
        //             5 TRUEの場合、AS400上のプログラムの終了を待つ。
        //               FALSEの場合、AS400上のプログラムの終了を待たない。
                CallPGM(self.handle, 'NEWWESOBJ/MCN700C', trim(mskYear.Text) , 'S10A4443', true)

            else
            begin
                errMsg := 'AS400のプログラムをコールして、失敗しました。';
                Result := false;
                exit;
            end;
        end;
    except on e : Exception do
    begin
        FreeLibrary(DllHandle);
        errMsg := 'AS400のプログラムをコールして、失敗しました。';
        Result := false;
        exit;
    end;

    end;

    // ライブラリがフリーする
    FreeLibrary(DllHandle);

end;

fh2001 回复于：2004-03-18 15:26:26

顶！多发精彩好文。

metmay 回复于：2004-03-23 09:57:30

问一个低级的问题

RUNRMTCMD +
CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') +
RMTLOCNAME('149.45.0.78' *IP) +
RMTUSER(user) RMTPWD(userpassword)

中的 \怎么在400上输入？

fzrxh 回复于：2004-03-23 13:05:00

我们直接输呀，你的使用环境呢？

smile-wz 回复于：2004-03-23 13:16:52

[quote:91a94ced7a="metmay"]问一个低级的问题

RUNRMTCMD +
CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') +
RMTLOCNAME('149.45.0.78' *IP) +
RMTUSER(user) RMTPWD(userpassword)

中的 \怎么在400上输入？[/quote:91a94ced7a]
从来没注意过这个问题。输入的\变成人民币符号了. 怎么回事?

zzzddd 回复于：2004-03-23 13:22:56

可以使用clent access的API进行调用！

metmay 回复于：2004-03-24 16:36:45

[quote:507e0cc85e="fzrxh"]我们直接输呀，你的使用环境呢？[/quote:507e0cc85e]

装的是ca,以前pcom也不行吧

还有[，]，也不行
要用数组的时候很麻烦

SUNTDK 回复于：2004-03-25 12:41:16

[email protected]

greenxiong 回复于：2004-03-26 14:31:28

看一下CCSID

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试环境搭建 > Windows系统 >