midrange.com code scratchpad
Name:
Monty James
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/26/2019 02:10:12 pm
IP:
Logged
Description:
HLADDEIMID CMD Add EIM ID and associations
Code:
  1.              CMD PROMPT('ADD EIM ID AND ASSOCIATIONS')                
  2.              PARM       KWD(AS400ID) TYPE(*SNAME) LEN(11) MIN(1) +    
  3.                           EXPR(*YES) CHOICE('Name') INLPMTLEN(10) +   
  4.                           PROMPT('AS/400 ID')                         
  5.              PARM       KWD(WINID) TYPE(*NAME) LEN(21) MIN(1) +       
  6.                           EXPR(*YES) CHOICE('Name') PROMPT('AD +      
  7.                           PROFILE ID')                                
  8.              PARM       KWD(NEWID) TYPE(*CHAR) LEN(60) MIN(1) +       
  9.                           EXPR(*YES) CASE(*MIXED) CHOICE('Name') +    
  10.                           PROMPT('New EIM Identifier')                
  11.              PARM       KWD(DESCRI) TYPE(*CHAR) LEN(50) MIN(1) +      
  12.                           EXPR(*YES) CASE(*MIXED) CHOICE('Name') +    
  13.                           PROMPT('Description')                       
  14.              PARM       KWD(DN) TYPE(*CHAR) LEN(59) RSTD(*YES) +      
  15.                           DFT('cn=Administrator') +                   
  16.                           VALUES('cn=Administrator') MIN(0) +         
  17.                           EXPR(*YES) CASE(*MIXED) CHOICE('Name') +    
  18.                           PMTCTL(*PMTRQS) PROMPT('DN')                
  19.              PARM       KWD(PASS) TYPE(*CHAR) LEN(9) DFT('PASSWORD') +
  20.                           EXPR(*YES) CASE(*MIXED) DSPINPUT(*NO) +
  21.                           CHOICE('Name') PMTCTL(*PMTRQS) +
  22.                           PROMPT('Password')              
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css