如何从AS/400上启动PC端WEB界面？

字数 2870阅读 6398评论 0赞 4

某些客户提出他们日常应用需要从 IBM i 命令行打开 PC 端网页，其实实现起来并不复杂，可以用 STRPCCMD 命令实现，下面介绍两种方式：

1.  从 AS/400 命令行上执行 STRPCCMD 。

2.  从 CLP 程序中调用 STRPCCMD 。

方式 1. 从 AS/400 命令行执行 STRPCCMD 命令

第一步，执行 STRPCO （ Start PC Organizer ）命令。

PC Organizer 是 Client Access 和 PC Support/400 提供的功能，只要在PC端安装了 IBM i Access for Windows 或IBM i 
Client Access solutions， PC5250 就会支持 PC Organizer ，另外，请根据 APAR II09209 的内容，确定并安装相关的补丁。

例如： STRPCO PCTA(*NO)

这里的 PCTA 的含义式“ Text Assist ”，有两个参数可选，即 *YES 和 *NO ，表示是否使用“ Personal Computer Text Assist ”。
![](/home/attachment/202204/26/1239211_165094279437700.png)

第二步，用 STRPCCMD 命令启动 PC 端的浏览器访问相关网址。

Start PC Command （ STRPCCMD ）通过 PC Organizer 可以启动 PC 端的应用，一次只能启动一个应用，在 PCCMD 参数输入 PC 端的 DOS 命令或应用名称，需要注意的是这个参数不能超过 123 个字符长度。

例如： STRPCCMD PCCMD('START FIREFOX [https://www.inspur.com/lcjtww/2526229/index.html'](https://www.inspur.com/lcjtww/2526229/index.html') )

然后检查一下执行效果
![](/home/attachment/202204/26/1239211_165094281543253.png)
![](/home/attachment/202204/26/1239211_165094322885800.png)
 之后在 PC 端就会先打开 Firefox 浏览器再访问相关的网站链接。
![](/home/attachment/202204/26/1239211_165094284280203.png)

方式 2. 通过 CLP 程序执行 STRPCCMD 命令。

方式 1 中提到连续输入命令访问固定的网站对于有些客户来说不太方便，推荐使用 CLP 程序来解决，需要注意的是这个 CLP 不能提交到 Batch 作业中执行，只能在交互方式执行。
```
/******************************************************************/
/*  ACCESS A WEBSIE FROM AS/400                              */
/*  CONTROL LANGUAGE PROOGRAM                           */
/*                                                                                          */
/*  EDITED BY XIAOQING 202204                                     */
/******************************************************************/
 
             PGM
 
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(100)
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(123)
 
             CHGVAR     VAR(&CMD) VALUE('START firefox +
                          https://www.ibm.com/it-infrastructure/power+
                          /os/ibm-i ')
             STRPCO     PCTA(*YES)
             MONMSG     MSGID(IWS4010)
             STRPCCMD   PCCMD(&CMD) PAUSE(*YES)
             RETURN
 
 
 
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)
             ENDPGM

```
 执行后的效果同方式 1 一样，不再赘述。

如果启动 PC 命令 (STRPCCMD) 使用带有特殊字符（如 & 符号）的 URL ，或者如果区分大小写，则必须将 URL 的值放在单引号中，然后放在双引号中，如：
```
       DCL        VAR(&URL) TYPE(*CHAR) LEN(123) +
                      VALUE('"HTTP:\\\\WWW.IBM.COM"')

```
 同理，也可以通过 STRPCMD 启动 PC 端的其他应用，例如：
```
…
             CHGVAR     VAR(&CMD) VALUE('start D:\\test.pdf')
             STRPCO     PCTA(*YES)
             MONMSG     MSGID(IWS4010)
             STRPCCMD   PCCMD(&CMD) PAUSE(*YES)
…

```
执行之后就可以在PC端打开test.pdf文件了，如下图所示。
![](/home/attachment/202204/26/1239211_165094303946254.png)

仅供参考。

STRPCCMD STRPCO IBM i AS400

著作权归作者所有

如果觉得我的文章对您有用，请点赞。您的支持将鼓励我继续创作！

添加新评论0 条评论

Ctrl+Enter 发表

匿名评论

如何从AS/400上启动PC端WEB界面？

添加新评论0 条评论

作者其他文章

相关文章

相关问题