midrange.com code scratchpad
Name:
Monty James
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/26/2019 02:04:40 pm
IP:
Logged
Description:
CPP for HLEIMASS
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.              RTVNETA    SYSNAME(&SYSTEM)                            
  17.                                                                     
  18.              /* All parms passed to C must be null terminated */    
  19.              CHGVAR     VAR(&RTN) VALUE(&RTN *TCAT &NULL)           
  20.              CHGVAR     VAR(&DN) VALUE(&DN *TCAT &NULL)
  21.              CHGVAR     VAR(&PASS) VALUE(&PASS *TCAT &NULL)            
  22.              CHGVAR     VAR(&ID) VALUE(&ID *TCAT &NULL)                
  23.              CHGVAR     VAR(&SYSTEM) VALUE('COMPANY.COM' *TCAT +       
  24.                           &NULL)                                       
  25.                                                                        
  26.              CALL       PGM(EIMASSID) PARM(&ID &DN &PASS &SYSTEM &RTN) 
  27.                                                                        
  28.  ENDPGM:                                                               
  29.              IF         COND(&RTN *NE '0000') THEN(SNDPGMMSG MSG(&RTN))
  30.              ENDPGM                                                    
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css