/* REXX ***************************************************************/
/* -------------------------------------------------------------------*/
/* Name:       FF (Find First)                                        */
/* Short:      Find First                                             */
/* Type:       REXX-Macro                                             */
/* Author:     Norbert Haas                                           */
/* Function:   FIND with parm FIRST                                   */
/* Syntax:     FF parm<s>                                             */
/* Parameter:  like FIND command                                      */
/*                                                                    */
/* Version   Author        Date      Why                              */
/* --------- ------------- --------- -------------------------------- */
/* V01.00    N.Haas        17.09.96  Creation                         */
/**********************************************************************/
"ISREDIT MACRO (parm) NOPROCESS"                                        
"ISPEXEC CONTROL ERRORS RETURN"                                         
                                                                        
/* These two lines do all the work ---------------------------------- */
"ISREDIT FIND FIRST" parm                                               
find_rc = rc                                                            
                                                                        
IF find_rc = 4 THEN DO                                                  
   zedsmsg = 'NOT FOUND'                                                
   zedlmsg = parm "- NOT FOUND."                                        
   "ISPEXEC SETMSG MSG(isrz000)"                                        
END                                                                     
                                                                        
/* This is it ------------------------------------------------------- */
EXIT