И правда --- есть
## Код:
```
PROCEDURE MaskFileList (loc : Files.Locator; IN mask : ARRAY OF CHAR) : Files.FileInfo;
...         res1 : INTEGER; (* 28.09.2006   ING *)
...         res1 := res; (* 28.09.2006   ING *)
...         IF res1 = ok THEN res := ok END; (* 28.09.2006   ING *)
   END MaskFileList;
```
