midrange.com code scratchpad |
Name:
Get IP address for *DEVD
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/22/2011 06:16:40 pm
|
IP:
Logged
|
|
Description:
For example, call it as: CALL GETIPADR ('QPADEV0002' &ADR) in a CL program; it returns the IP address in &ADR
|
Code:
- PGM PARM(&DEV &ADR)
- DCL VAR(&DEV) TYPE(*CHAR) LEN(10)
- DCL VAR(&ADR) TYPE(*CHAR) LEN(15)
- DCL VAR(&RCV) TYPE(*CHAR) LEN(1024)
- DCL VAR(&LEN) TYPE(*CHAR) LEN(4) VALUE(X'00000400')
- DCL VAR(&ERR) TYPE(*CHAR) LEN(96) VALUE(X'00000060')
- DCL VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('DEVD0600')
- DCL VAR(&ZERO) TYPE(*CHAR) LEN(4) VALUE(X'00000000')
-
- CALL PGM(QDCRDEVD) PARM(&RCV &LEN &FMT &DEV &ERR)
- IF (%SST(&ERR 5 4) *NE &ZERO) +
- CHGVAR VAR(&ADR) VALUE(%SST(&ERR 8 7))
- ELSE +
- CHGVAR VAR(&ADR) VALUE(%SST(&RCV 878 15))
- RETURN
- ENDPGM
-
|
|
|