midrange.com code scratchpad |
Name:
Monty James
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/26/2019 02:01:50 pm
|
IP:
Logged
|
|
Description:
CPP for HLDLTEIMID
|
Code:
- PGM PARM(&ID &DN &PASS)
-
- /* EIM Identifier */
- DCL VAR(&ID) TYPE(*CHAR) LEN(11)
- /* Distinguished name */
- DCL VAR(&DN) TYPE(*CHAR) LEN(59)
- /* DN password */
- DCL VAR(&PASS) TYPE(*CHAR) LEN(9)
- /* iSeries System */
- DCL VAR(&SYSTEM) TYPE(*CHAR) LEN(30)
-
- DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')
-
- DCL VAR(&RTN) TYPE(*CHAR) LEN(120) VALUE('0000')
-
- DCL VAR(&UNIQ) TYPE(*CHAR) LEN(60)
-
- RTVNETA SYSNAME(&SYSTEM)
-
- CHGVAR VAR(&RTN) VALUE(&RTN *TCAT &NULL)
- CHGVAR VAR(&DN) VALUE(&DN *TCAT &NULL)
- CHGVAR VAR(&PASS) VALUE(&PASS *TCAT &NULL)
- CHGVAR VAR(&ID) VALUE(&ID *TCAT &NULL)
- CHGVAR VAR(&SYSTEM) VALUE(&SYSTEM *TCAT +
- 'COMPANY.COM' *TCAT &NULL)
-
- HLEIMUNQNM ID(&ID) UNIQUE(&UNIQ)
-
- CHGVAR VAR(&UNIQ) VALUE(&UNIQ *TCAT &NULL)
-
- IF COND(&UNIQ *NE '*NONE') THEN(CALL +
- PGM(DLTEIMID) PARM(&UNIQ &DN &PASS &RTN))
-
- ENDPGM:
- IF COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
- ENDPGM
|
|
|