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

某些客户提出他们日常应用需要从 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 ”。

第二步，用 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' )

然后检查一下执行效果


之后在 PC 端就会先打开 Firefox 浏览器再访问相关的网站链接。

方式 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文件了，如下图所示。

仅供参考。