You can avoid the macro substitution here:

>        for i = 1 to alen(arr_obj)
                 oCursor=getpem(oDataEnvironment, arr_obj(i))
>            j = oCursor.baseclass
>            if upper(alltrim(j)) = 'CURSOR'
>                db_name=upper(justfname(oCursor.database )))
>                oCursor.database=this.get_database(allt(db_name))
>                if !file(oCursor.database)
>                    messagebox('['oCursor.database+']'+chr(13)+;
>                        'Not found - Check Your blah..blah')
>                endif
>

That's Fabio's "GetPem returns object" trick, and I love it. I've found that it made my code cleaner and leaner in many places.