This calls GLDSRCH and I get a return code of 1
LDAPREX2 'IBMUSER'
3 *-* call LDAPSRCH '-h 127.0.0.1 ' '-p 389 ' '-s base '
>L> "-h 127.0.0.1 "
>L> "-p 389 "
>O> "-h 127.0.0.1 -p 389 "
>L> "-s base "
>O> "-h 127.0.0.1 -p 389 -s base "
14 *-* parse arg parms
>>> "-h 127.0.0.1 -p 389 -s base "
16 *-* "GLDSRCH "parms
>L> "GLDSRCH "
>V> "-h 127.0.0.1 -p 389 -s base "
>O> "GLDSRCH -h 127.0.0.1 -p 389 -s base "
+++ RC(1) +++
18 *-* exit rc
>V> "1"
>>> "1"
4 *-* exit
//SYSOUT
usage: GLDSRCH [options] filter [attributes...]
where:
filter RFC-4515 compliant LDAP search filter
attributes whitespace-separated list of attributes to retrieve
(if no attribute list is given, all are retrieved)
options:
-? print this text
-a deref one of never, always, search, or find (alias dereferencing)
-A retrieve attribute names only (no values)
-b baseDN base DN for search. LDAP_BASEDN in environment is default
-B do not suppress printing of non-printable values (printed in w
-C do not suppress printing of printable non-ascii values (printe
-d debugLevel level of debug messages to be created
-D bindDN bind DN
-f file perform sequence of searches listed in 'file' ('-' implies sta
-F sep print `sep' instead of `=' between attribute names and values
-g realmName Mandatory Authentication realm
Tim
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Juergen Keller
Sent: Wednesday, 06 August, 2014 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: running ldapsearch via JVL
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
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
