midrange.com code scratchpad |
Name:
Monty James
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/25/2019 10:08:25 pm
|
IP:
Logged
|
|
Description:
CPP for HLADDEIMID
|
Code:
- PGM PARM(&AS400ID &WINID &NEWID &DESCRI &DN +
- &PASS)
-
- /* iSeries ID */
- DCL VAR(&AS400ID) TYPE(*CHAR) LEN(11)
-
- /* Windows ID */
- DCL VAR(&WINID) TYPE(*CHAR) LEN(21)
-
- /* New EIM Identifier */
- DCL VAR(&NEWID) TYPE(*CHAR) LEN(60)
-
- /* Description */
- DCL VAR(&DESCRI) TYPE(*CHAR) LEN(50)
-
- /* Distinguished name */
- DCL VAR(&DN) TYPE(*CHAR) LEN(59)
-
- /* DN password */
- DCL VAR(&PASS) TYPE(*CHAR) LEN(9)
- DCL VAR(&SOURCE) TYPE(*CHAR) LEN(30)
-
- DCL VAR(&TARGET) TYPE(*CHAR) LEN(30)
-
- DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')
-
- DCL VAR(&RTN) TYPE(*CHAR) LEN(120) VALUE('0000')
-
- RTVNETA SYSNAME(&TARGET)
-
- CHGVAR VAR(&RTN) VALUE(&RTN *TCAT &NULL)
- CHGVAR VAR(&DN) VALUE(&DN *TCAT &NULL)
- CHGVAR VAR(&PASS) VALUE(&PASS *TCAT &NULL)
- CHGVAR VAR(&AS400ID) VALUE(&AS400ID *TCAT &NULL)
- CHGVAR VAR(&WINID) VALUE(&WINID *TCAT &NULL)
- CHGVAR VAR(&NEWID) VALUE(&NEWID *TCAT &NULL)
- CHGVAR VAR(&DESCRI) VALUE(&DESCRI *TCAT &NULL)
- CHGVAR VAR(&SOURCE) VALUE('kerberose.dom' *TCAT +
- &NULL)
- CHGVAR VAR(&TARGET) VALUE(TARGET *TCAT +
- 'company.com' *TCAT &NULL)
-
- CALL PGM(ADDASOEIM) PARM(&NEWID &DESCRI &WINID +
- &AS400ID &DN &PASS &SOURCE &TARGET &RTN)
- ENDPGM:
- IF COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
- ENDPGM
|
|
|