|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
/********************************************************************/ /* RTNIPADDR: 指定DEVICEのIPアドレスを取得 */ /* */ /* COMPILE OPTIONS: */ /* */ /* CRTCMD CMD( RTNIPADDR ) */ /* PGM( RTNAPADDR ) */ /* SRCMBR( RTNIPADDR ) */ /* ALLOW( *IPGM *BPGM ) */ /* */ /* PARMS: */ /* IN: DEVD : *NAME LEN(10) */ /* OUT: IPADDR: *CHAR LEN(15) */ /* */ /* RTNIPADDR DEVD(&DEVD) IPADDR(&IPADDR) */ /********************************************************************/ RTNIPADDR: CMD PROMPT('IPアドレスの取得') PARM KWD(DEVD) TYPE(*NAME) LEN(10) DFT(*) + SPCVAL((*)) MIN(0) EXPR(*YES) + PROMPT('DEVICE') PARM KWD(IPADDR) TYPE(*CHAR) LEN(15) RTNVAL(*YES) + PROMPT('IP ADDRESS (15)') |
<< CLP >>
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
RTNIPADDR: PGM PARM(&RTVDEV &TCPADDR) DCL VAR(&RTVDEV) TYPE(*CHAR) LEN(10) DCL VAR(&TCPADDR) TYPE(*CHAR) LEN(15) DCL VAR(&DEVNAM) TYPE(*CHAR) LEN(10) DCL VAR(&ERROR) TYPE(*CHAR) LEN(4) + VALUE(X'00000000') DCL VAR(&PROTOCOL) TYPE(*CHAR) LEN(1) VALUE(X'02') DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(1024) IF (&RTVDEV *EQ '*') THEN(RTVJOBA + JOB(&RTVDEV)) CHGVAR VAR(&RCVVAR) VALUE(' ') CHGVAR VAR(&TCPADDR) VALUE(' ') CALL PGM(QDCRDEVD) PARM(&RCVVAR X'00000400' + 'DEVD0600' &RTVDEV &ERROR) CHGVAR VAR(&DEVNAM) VALUE(%SST(&RCVVAR 22 10)) IF (&DEVNAM *NE ' ') THEN(DO) IF (%SST(&RCVVAR 859 1) *EQ &PROTOCOL) + THEN(DO) CHGVAR VAR(&TCPADDR) VALUE(%SST(&RCVVAR 878 15)) ENDDO ENDDO ENDPGM |