hello Tim,
maybe something like this helps:
//TSO EXEC PGM=IKJEFT01,DYNAMNBR=50
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSLST DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=GLD.SGLDEXEC
//LDAPOUT DD SYSOUT=V,HOLD=YES
//LDAPERR DD SYSOUT=W,HOLD=YES
//SYSABEND DD DUMMY
//SYSTSIN DD *
EXEC 'aaaaaaaa.CLIST(CALLLDAP)' 'userid'
/* REXX */
parse arg userid .
ldapuser = word(userid,1)
call LDAPSRCH '-h aaaaaaaa.bbbbbbbbb.de ',
'-s sub -v',
'-b "ou=USER,o=PUB" "(user-n-drive=*'ldapuser'*)" fullname ',
'1>DD:LDAPOUT 2>DD:LDAPERR'
exit
regards Juergen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
