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:
  1.             PGM        PARM(&ID &DN &PASS &UNIQNAM)               
  2.                                                                   
  3.             /* EIM Identifier */                                  
  4.             DCL        VAR(&ID) TYPE(*CHAR) LEN(11)               
  5.             /* Distinguished name */                              
  6.             DCL        VAR(&DN) TYPE(*CHAR) LEN(59)               
  7.             /* DN password */                                     
  8.             DCL        VAR(&PASS) TYPE(*CHAR) LEN(9)              
  9.             /* iSeries System */                                  
  10.             DCL        VAR(&SYSTEM) TYPE(*CHAR) LEN(30)           
  11.                                                                   
  12.             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00') 
  13.                                                                   
  14.             DCL        VAR(&UNIQNAM) TYPE(*CHAR) LEN(60)          
  15.                                                                   
  16.             DCL        VAR(&RTN) TYPE(*CHAR) LEN(120) VALUE(' ')  
  17.                                                                   
  18.             DLTOBJ     OBJ(QTEMP/EIMUNIQ) OBJTYPE(*DTAARA)        
  19.             MONMSG     MSGID(CPF0000)                             
  20.             CRTDTAARA  DTAARA(QTEMP/EIMUNIQ) TYPE(*CHAR) LEN(60) +
  21.                           VALUE('*NONE')                               
  22.              MONMSG     MSGID(CPF1023)                                 
  23.                                                                        
  24.              RTVNETA    SYSNAME(&SYSTEM)                               
  25.              CHGVAR     VAR(&SYSTEM) VALUE(&SYSTEM *TCAT +             
  26.                           '.COMPANY.COM' *TCAT &NULL)                  
  27.              CHGVAR     VAR(&RTN) VALUE(&RTN *TCAT &NULL)              
  28.              CHGVAR     VAR(&DN) VALUE(&DN *TCAT &NULL)                
  29.              CHGVAR     VAR(&PASS) VALUE(&PASS *TCAT &NULL)            
  30.              CHGVAR     VAR(&ID) VALUE(&ID *TCAT &NULL)                
  31.              CALL       PGM(EIMUNIQNAM) PARM(&ID &DN &PASS &SYSTEM +   
  32.                                              &RTN)                     
  33.              RTVDTAARA  DTAARA(QTEMP/EIMUNIQ *ALL) RTNVAR(&UNIQNAM)    
  34.                                                                        
  35.              SNDPGMMSG  MSG(&UNIQNAM)                                  
  36.  ENDPGM:                                                               
  37.              IF         COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
  38.              ENDPGM                                                    
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css