currentSchema

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;