How to capture output from LDAPSRCH

[Adam5]

Hello,

I want to make an LDAP-search with the REXX-EXEC LDAPSRCH. This z/OS utility can be used to get attributes of LDAP-entries. It can be found on HLQ.SGLDEXEC(LDAPSRCH) and is documented in "IBM Tivoli Directory Server Client Programming for z/OS" (

http://www-03.ibm.com/servers/eserver/zseries/zos/bkserv/r9pdf/itds.html).

The request is working fine. The LDAPSRCH-command writes the output to the terminal. Unfortunately I can't trap the output, when I'm calling the command online within rexx:

call LDAPSRCH '-h ldaphost ',
'-D CN=userid,OU=Benutzerkonten,DC=bk,DC=xxxxx,DC=de -w password ',    
'-b CN='!!user!!',OU=Benutzerkonten,DC=bk,DC=xxxxx,DC=de objectclass=* ',
'department displayName sn extensionAttribute extensionAttribute1 ',    
'telephoneNumber'

I've tried to allocate SYSPRINT, SYSOUT, STDOUT, OUTPUT but the output have not been written into the allocated files. OUTTRAP also doesn't work.

But if I execute the command within an JCL with DD-Name SYSPRINT, then the output from LDAPSRCH is written to SYSPRINT!

I don't understand this behaviour!

Does anybody have an idea, how I can trap the output from this command?

Thanks

Adam

 

[rexxhead]

How are you allocating SYSPRINT?

Post the code.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[Adam5]

Hello,

in the JCL SYSPRINT is allocated like:

//SYSPRINT DD DSN=TXXXXXA.FTP.OUTPUT,DISP=SHR

This file already exists:

Organization  . . . : PS   
Record format . . . : VB   
Record length . . . : 1028

Here is the code how I'm allocating SYSPRINT dynamically within REXX:

"FREE F(SYSPRINT)"                               
"ALLOC F(SYSPRINT) DSN('TXXXXXA.FTP.OUTPUT') SHR"

Whery strange!

 

[rexxhead]

Do you see your output on the terminal if you

"ALLOC FI(SYSPRINT) DA(*) REU"

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[Adam5]

Hello,

I've found a solution how to pipe the output of LDAPSRCH into a file. I had this idea, after I saw a JCL in HLQ.SGLDSAMP - library. It works like piping stdout & stderr in USS. Here ist my REXX-code:

  'FREE F(DSOUT)'                                                        
 'alloc f(DSOUT) lrecl(1024) recfm(V,B) new reuse'                       
  say 'alloc rc:' rc                                                     
  'FREE F(DSERR)'                                                        
 'alloc f(DSERR) lrecl(1024) recfm(V,B) new reuse'                       
  say 'alloc rc:' rc                                                     
                                                                         
  call LDAPSRCH '-h bk.datev.de ',                                       
  '-D CN=xxxxxxx,OU=Benutzerkonten,DC=bk,DC=xxxxx,DC=de -w xxxxxxxx ',   
  '-b CN='!!user!!',OU=Benutzerkonten,DC=bk,DC=xxxxx,DC=de objectclass=* ',
  'department displayName sn extensionAttribute extensionAttribute1 ',   
  'telephoneNumber [b]1>DD:DSOUT 2>DD:DSERR' [/b]                               
  /*                                                                     
  'telephoneNumber  > DD:DSOUT 2>&1'                                     
  */                                                                     
 msgrc = result                                                          
 say 'LDAPSRCH rc:' msgrc                                                

 address tso "execio * diskr DSOUT (STEM dsout. finis) "                 
 do i = 1 to dsout.0                                                     
   say 'ldapoutput:' dsout.i                                             
 end                                                                     
  "FREE F(DSOUT)"                                                        
                                                                         
 address tso "execio * diskr DSERR (STEM dserr. finis) "                 
 do i = 1 to dserr.0                                                     
   say 'ldaperror:' dserr.i                                              
 end                                                                     
  "FREE F(DSERR)"

This is realy strange notation for trapping the output from a TSO-Command. I'm wondering, that this works in TSO!

Thanks

Adam