  TYPE
    cst$key_type = (csc$standard_function, csc$application_function,
                    csc$screen_function, csc$unused_entry);
