The currentSchema system variable references the current schema instance. The following example outputs the names of all locales supported by the current schema.
vars objArray : ObjectArray; obj : Object; begin create objArray transient; currentSchema.getAllLocales(objArray); foreach obj in objArray do write obj.Locale.makeLocaleName; endforeach; epilog delete objArray; end;