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:
  1.              PGM        PARM(&AS400ID &WINID &NEWID &DESCRI &DN +
  2.                           &PASS)                                 
  3.                                                                  
  4.              /* iSeries ID */                                    
  5.              DCL        VAR(&AS400ID) TYPE(*CHAR) LEN(11)        
  6.                                                                  
  7.              /* Windows ID */                                    
  8.              DCL        VAR(&WINID) TYPE(*CHAR) LEN(21)          
  9.                                                                  
  10.              /* New EIM Identifier */                            
  11.              DCL        VAR(&NEWID) TYPE(*CHAR) LEN(60)          
  12.                                                                  
  13.              /* Description */                                   
  14.              DCL        VAR(&DESCRI) TYPE(*CHAR) LEN(50)         
  15.                                                                  
  16.              /* Distinguished name */                            
  17.              DCL        VAR(&DN) TYPE(*CHAR) LEN(59)             
  18.                                                                  
  19.              /* DN password */                                   
  20.              DCL        VAR(&PASS) TYPE(*CHAR) LEN(9) 
  21.              DCL        VAR(&SOURCE) TYPE(*CHAR) LEN(30)            
  22.                                                                     
  23.              DCL        VAR(&TARGET) TYPE(*CHAR) LEN(30)            
  24.                                                                     
  25.              DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')  
  26.                                                                     
  27.              DCL        VAR(&RTN) TYPE(*CHAR) LEN(120) VALUE('0000')
  28.                                                                     
  29.              RTVNETA    SYSNAME(&TARGET)                            
  30.                                                                     
  31.              CHGVAR     VAR(&RTN) VALUE(&RTN *TCAT &NULL)           
  32.              CHGVAR     VAR(&DN) VALUE(&DN *TCAT &NULL)             
  33.              CHGVAR     VAR(&PASS) VALUE(&PASS *TCAT &NULL)         
  34.              CHGVAR     VAR(&AS400ID) VALUE(&AS400ID *TCAT &NULL)   
  35.              CHGVAR     VAR(&WINID) VALUE(&WINID *TCAT &NULL)       
  36.              CHGVAR     VAR(&NEWID) VALUE(&NEWID *TCAT &NULL)       
  37.              CHGVAR     VAR(&DESCRI) VALUE(&DESCRI *TCAT &NULL)     
  38.              CHGVAR     VAR(&SOURCE) VALUE('kerberose.dom' *TCAT +  
  39.                           &NULL)                                    
  40.              CHGVAR     VAR(&TARGET) VALUE(TARGET *TCAT +           
  41.                           'company.com' *TCAT &NULL)
  42.                                                                        
  43.              CALL       PGM(ADDASOEIM) PARM(&NEWID &DESCRI &WINID +    
  44.                           &AS400ID &DN &PASS &SOURCE &TARGET &RTN)     
  45.  ENDPGM:                                                               
  46.              IF         COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
  47.              ENDPGM                                                    
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css