And finally, here is the entire first script, as described above.

#Start the search routine
   Go to Layout [ -Entry" (T1.Globals) ] Go to Field [ T1.Globals::Search ] Pause/Resume Script [ Indefinitely ] #Enter search string
   Set Field [ T1.Globals::gSearch; T1.Globals::Search ]
   Clear [ T1.Globals::Search ] [ Select ]

#Then go to find in Friends
   Set Error Capture [ On ]
   Go to Layout [ -Friends" (T2.Friends) ]
   Perform Find [ Specified Find Requests: Find Records; Criteria: T2.Friends::cIfMatchComposite: -1" ] [ Restore ]

#Import these records into the SearchReturn table
   Go to Layout [ -SearchReturn" (T4.SearchReturn) ]
   Import Records [ Source: -file:Builder.fp7"; Target: -T4.SearchReturn"; Method: Add; Character Set: -Windows ANSI"; Field Mapping: Source field 1 import to T4.SearchReturn::iID
   Source field 6 import to T4.SearchReturn::iComp
   Source field 8 import to T4.SearchReturn::iTable ]
   [ No dialog ]

#Next, go to find in Contacts
   Go to Layout [ -Contacts" (T3.Contacts) ]
   Perform Find [ Specified Find Requests: Find Records; Criteria: T3.Contacts::cIfMatchComposite: -=1" ] [ Restore ]
   Pause/Resume Script [ Indefinitely ]

#Import these records into the SearchReturn table
   Go to Layout [ -SearchReturn" (T4.SearchReturn) ]
   Import Records [ Source: -file:Builder.fp7"; Target: -T4.SearchReturn"; Method: Add; Character Set: -Windows ANSI"; Field Mapping: Source field 1 import to T4.SearchReturn::iID
   Source field 7 import to T4.SearchReturn::iComp
   Source field 9 import to T4.SearchReturn::iTable ]
   [ No dialog ]
   Pause/Resume Script [ Indefinitely ] #Then PassSerial Show All Records
   If [ Get(FoundCount)=0 ]
   Go to Layout [ -SearchReturn" (T4.SearchReturn) ]
   Show Custom Dialog [ Title: "Nothing Found"; Message: "No records found"; Buttons: -OK", -Cancel" ]
   Exit Script [ ] 
   End If
   Sort Records [ Specified Sort Order: T4.SearchReturn::iTable; ascending ] [ Restore; No dialog ]