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:
  1.              PGM        PARM(&ID &DN &PASS)                         
  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(&RTN) TYPE(*CHAR) LEN(120) VALUE('0000')
  15.                                                                     
  16.              DCL        VAR(&UNIQ) TYPE(*CHAR) LEN(60)              
  17.                                                                     
  18.              RTVNETA    SYSNAME(&SYSTEM)                            
  19.                                                                     
  20.              CHGVAR     VAR(&RTN) VALUE(&RTN *TCAT &NULL)
  21.              CHGVAR     VAR(&DN) VALUE(&DN *TCAT &NULL)                
  22.              CHGVAR     VAR(&PASS) VALUE(&PASS *TCAT &NULL)            
  23.              CHGVAR     VAR(&ID) VALUE(&ID *TCAT &NULL)                
  24.              CHGVAR     VAR(&SYSTEM) VALUE(&SYSTEM *TCAT +             
  25.                           'COMPANY.COM' *TCAT &NULL)                   
  26.                                                                        
  27.              HLEIMUNQNM ID(&ID) UNIQUE(&UNIQ)                          
  28.                                                                        
  29.              CHGVAR     VAR(&UNIQ) VALUE(&UNIQ *TCAT &NULL)            
  30.                                                                        
  31.              IF         COND(&UNIQ *NE '*NONE') THEN(CALL +            
  32.                           PGM(DLTEIMID) PARM(&UNIQ &DN &PASS &RTN))    
  33.                                                                        
  34.  ENDPGM:                                                               
  35.              IF         COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
  36.              ENDPGM                                                    
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css