Here is a bit of code I have been playing with:-

Background:

Version 10.04.03 has deprecated the command scan and it has been superseeded with $scan.

The $scan command can be used within an if condition.

This may help with the deprecated scan problem.  It may need tweaking for various situations.  It should speed up the clean-up process.

Old code:

   scan MyVariable.MyEntity, "IceCream"
   if ($result!=0) ; did you find it

New Code:

     if ($scan( MyVariable.MyEntity, "IceCream")!=0) ; did you find it

How to convert:

copy the code somehow into notepad++.  Best to export the code to xml and open the xml document in notepad++.

Do search replace(ctrl-H) and select the radio button regular expression:

Find:

[^$]scan(.*)\\r\\n(.*)(\\$result)(.*)

Replace:

\\2\\$scan\\((\\1)\\)\\4)

Best to play around with it, but it may be of use.  

------------------------------
Osman Shariff
Freelance Uniface Consultant - France

Private message me if you need help with a project
English, French, German
------------------------------