AS400里怎样取得一个工作站的IP

最新推荐文章于 2021-03-22 23:22:53 发布

JmLei

最新推荐文章于 2021-03-22 23:22:53 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： AS400/RPGLE/CL 文章标签：工作 server tcp interface api 测试

本文链接：https://blog.youkuaiyun.com/jmlei/article/details/5875610

AS400/RPGLE/CL 专栏收录该内容

69 篇文章

订阅专栏

本文介绍了两种在AS400系统中通过System API QSYS/QDCRDEVD获取对应工作站IP地址的方法。PGM1适用于一般情况，通过RTVJOBA和CALL PGM(QDCRDEVD)获取设备的IP。PGM2则针对不同类型的设备（DSP显示和PRT虚拟打印客户端），分别解析IP地址和TCP端口。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

利用 System API QSYS/QDCRDEVD (去QSYSINC/H下面去找那个API的参数) 取得与工作站ID 对应的 IP address.

PGM1:(已经测试)

PGM DCL VAR(&DEVICENAME) TYPE(*CHAR) LEN(10) DCL VAR(&IPADDRESS) TYPE(*CHAR) LEN(15) DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(892) DCL VAR(&RCVRLENGTH) TYPE(*CHAR) LEN(4) DCL VAR(&FORMATNAME) TYPE(*CHAR) LEN(8) + VALUE('DEVD0600') /* THE FORMAT FOR + DISPLAY DEVICES */ DCL VAR(&ERRORCODE) TYPE(*CHAR) LEN(4) + VALUE(X'00000000') /* USE NORMAL ERROR + HANDLING */ DCL VAR(&OUTMSG) TYPE(*CHAR) LEN(512) RTVJOBA JOB(&DEVICENAME) CHGVAR VAR(%BIN(&RCVRLENGTH)) VALUE(892) CALL PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH + &FORMATNAME &DEVICENAME &ERRORCODE) MONMSG MSGID(CPF0000) CHGVAR VAR(&IPADDRESS) VALUE(%SST(&RECEIVER 878 15)) CHGVAR VAR(&OUTMSG) VALUE(&DEVICENAME *BCAT ' IP + address is ' *CAT &IPADDRESS) SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) + MSGDTA(&OUTMSG) TOPGMQ(*PRV) DLYJOB DLY(2) MONMSG MSGID(CPF0000) ENDPGM

PGM2:一种是DSP显示的客户端，一种是PRT虚拟打印客户端的。(第二种情况未作测试)

PGM DCL VAR(&DEVNAME) TYPE(*CHAR) LEN(10) DCL VAR(&DEVINFO) TYPE(*CHAR) LEN(1550) DCL VAR(&LENGTH) TYPE(*DEC) LEN(4 0) VALUE(1550) DCL VAR(&FMTNAME) TYPE(*CHAR) LEN(8) + VALUE(DEVD0600) DCL VAR(&IPADDR) TYPE(*CHAR) LEN(15) DCL VAR(&ERRINFO) TYPE(*CHAR) LEN(1024) DCL VAR(&PORTBIN4) TYPE(*CHAR) LEN(4) DCL VAR(&LPORT) TYPE(*DEC) LEN(5 0) DCL VAR(&LPORTC) TYPE(*CHAR) LEN(5) DCL VAR(&RPORT) TYPE(*DEC) LEN(5 0) DCL VAR(&RPORTC) TYPE(*CHAR) LEN(5) DCL VAR(&LCLADDR) TYPE(*CHAR) LEN(15) DCL VAR(&OUTMSG) TYPE(*CHAR) LEN(999) DCL VAR(&DEVTYPE) TYPE(*CHAR) LEN(10) + VALUE(' ') RTVJOBA JOB(&DEVNAME) CALL PGM(QSYS/QDCRDEVD) PARM(&DEVINFO &LENGTH + 'DEVD0100' &DEVNAME &ERRINFO) MONMSG MSGID(CPF0000) CHGVAR VAR(&DEVTYPE) VALUE(%SST(&DEVINFO 32 4)) IF COND(&DEVTYPE *EQ '*PRT ') THEN(CHGVAR + VAR(&FMTNAME) VALUE('DEVD1100')) CALL PGM(QSYS/QDCRDEVD) PARM(&DEVINFO &LENGTH + &FMTNAME &DEVNAME &ERRINFO) MONMSG MSGID(CPF0000) /* DISPLAY DEVICE */ IF COND(&DEVTYPE *EQ '*DSP ') THEN(DO) /* SET CLIENT IP ADDRESS */ CHGVAR VAR(&IPADDR) VALUE(%SST(&DEVINFO 878 15)) /* SET CLIENT TCP PORT */ CHGVAR VAR(%SST(&PORTBIN4 3 2)) VALUE(%SST(&DEVINFO + 860 2)) CHGVAR VAR(%SST(&PORTBIN4 1 2)) VALUE(X'0000') CHGVAR VAR(&RPORT) VALUE(%BIN(&PORTBIN4)) /* SET SERVER IP ADDRESS */ CHGVAR VAR(&LCLADDR) VALUE(%SST(&DEVINFO 958 15)) /* SET SERVER TCP PORT */ CHGVAR VAR(%SST(&PORTBIN4 3 2)) VALUE(%SST(&DEVINFO + 940 2)) CHGVAR VAR(%SST(&PORTBIN4 1 2)) VALUE(X'0000') CHGVAR VAR(&LPORT) VALUE(%BIN(&PORTBIN4)) CHGVAR VAR(&LPORTC) VALUE(&LPORT) ENDDO /* DISPLAY DEVICE TYPE */ /* PRINTER DEVICE */ IF COND(&DEVTYPE *EQ '*PRT ') THEN(DO) /* SET CLIENT IP ADDRESS */ CHGVAR VAR(&IPADDR) VALUE(%SST(&DEVINFO 1405 15)) /* SET CLIENT TCP PORT */ CHGVAR VAR(%SST(&PORTBIN4 3 2)) VALUE(%SST(&DEVINFO + 1387 2)) CHGVAR VAR(%SST(&PORTBIN4 1 2)) VALUE(X'0000') CHGVAR VAR(&RPORT) VALUE(%BIN(&PORTBIN4)) CHGVAR VAR(&RPORTC) VALUE(&RPORT) /* SET SERVER IP ADDRESS */ CHGVAR VAR(&LCLADDR) VALUE(%SST(&DEVINFO 1495 15)) /* SET SERVER TCP PORT */ CHGVAR VAR(%SST(&PORTBIN4 3 2)) VALUE(%SST(&DEVINFO + 1477 2)) CHGVAR VAR(%SST(&PORTBIN4 1 2)) VALUE(X'0000') CHGVAR VAR(&LPORT) VALUE(%BIN(&PORTBIN4)) CHGVAR VAR(&LPORTC) VALUE(&LPORT) ENDDO /* END OF PRINTER DEVICE TYPE SECTION */ /* SET OUTPUT MESSAGE */ CHGVAR VAR(&OUTMSG) VALUE('Telnet Client from ' + *CAT &IPADDR *CAT ' port:' *CAT &RPORTC + *CAT ' to local interface:' *BCAT + &LCLADDR *CAT ' port:' *CAT &LPORTC) SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) + MSGDTA(&OUTMSG) TOPGMQ(*PRV) DLYJOB DLY(2) MONMSG MSGID(CPF0000) ENDPGM