  TYPE
    jmt$user_validation_options = array [1 .. * ] of
          jmt$user_validation_option;

  TYPE
    jmt$user_validation_option = record
      case key: jmt$attribute_keys of
      = jmc$encrypted_password =
        encrypted_password: ost$name,
      = jmc$login_password =
        login_password: ost$name,
      = jmc$null_attribute =
        ,
      casend,
    recend;

*copyc jmt$attribute_keys
*copyc ost$name
