midrange.com code scratchpad |
Name:
Monty James
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
03/26/2019 02:07:24 pm
|
IP:
Logged
|
|
Description:
CPP for HLEIMUNQNM
|
Code:
- PGM PARM(&ID &DN &PASS &UNIQNAM)
-
- /* 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(&UNIQNAM) TYPE(*CHAR) LEN(60)
-
- DCL VAR(&RTN) TYPE(*CHAR) LEN(120) VALUE(' ')
-
- DLTOBJ OBJ(QTEMP/EIMUNIQ) OBJTYPE(*DTAARA)
- MONMSG MSGID(CPF0000)
- CRTDTAARA DTAARA(QTEMP/EIMUNIQ) TYPE(*CHAR) LEN(60) +
- VALUE('*NONE')
- MONMSG MSGID(CPF1023)
-
- RTVNETA SYSNAME(&SYSTEM)
- CHGVAR VAR(&SYSTEM) VALUE(&SYSTEM *TCAT +
- '.COMPANY.COM' *TCAT &NULL)
- 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)
- CALL PGM(EIMUNIQNAM) PARM(&ID &DN &PASS &SYSTEM +
- &RTN)
- RTVDTAARA DTAARA(QTEMP/EIMUNIQ *ALL) RTNVAR(&UNIQNAM)
-
- SNDPGMMSG MSG(&UNIQNAM)
- ENDPGM:
- IF COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
- ENDPGM
|
|
|