USE IN SELECT() to close a work area

In lieu of:

  IF USED(<Work Area>)
    USE IN '<Work Area>'
  ENDIF

and:

  USE IN IIF(USED(<Work Area>) …

employ code like the following:

  USE IN SELECT('<Work Area>')

Like the first example above, this one will work regardless of whether the work area is in use or not (the second example will bomb if the specified work area is not in use).

Yours for more concise (yet still readable) code,

Art Bergquist