/* REXX
 |
 | Name: FINDMAC
 |
 | Author: David Alcock
 |
 | Purpose: Search thru various MACLIBs for a member
 |
 */

arg member

/*
 | Verify that the user gave us a macro to look for
 */
if member == "" then do
   zedsmsg = "Member not given"
   zedlmsg = "You must give me something to search for"
   address ISPEXEC "SETMSG MSG(ISRZ001)"
   exit
   end

/**********************************************************************
 | Search thru proclibs for member
 **********************************************************************/

proclib.1  = 'SYS1.MACLIB'
proclib.2  = 'SYS1.MODGEN'
proclib.3  = 'SYS1.HASPSRC'
proclib.4  = 'SYS1.SISTMAC1'
proclib.5  = 'IBMUSER.MACLIB'
proclib.0  = 5

browse_notdone = 1
address ISPEXEC "CONTROL ERRORS RETURN"
do i = 1 to proclib.0
   dsn = "'"proclib.i"("member")'"
   say "Searching "dsn
   address ISPEXEC "BROWSE DATASET("dsn")"
   browse_rc = rc
   if browse_rc == 0 then do
      i = proclib.0
      browse_notdone= 0
      end
   end

/*
 |  Gripe if nothing found
 */
if browse_notdone then do
   zedsmsg = "Member not found"
   zedlmsg = ""
   address ISPEXEC "SETMSG MSG(ISRZ001)"
   exit
   end
exit