
  TYPE
    clt$application_value_scanner = procedure
           (    value_name: clt$application_value_name;
                keyword_values: ^array [1 .. * ] of ost$name;
                text: string ( * );
            VAR value: clt$value;
            VAR status: ost$status);

*copyc clt$value
*copyc clt$application_value
*copyc clt$av_scanner_kind
*copyc ost$name
*copyc ost$status
