
  TYPE
    clt$function_processor = ^procedure
           (    parameter_list: clt$parameter_list;
            VAR work_area {input, output} : ^clt$work_area;
            VAR result: ^clt$data_value;
            VAR status: ost$status);

*copyc clt$data_value
*copyc clt$parameter_list
*copyc clt$work_area
*copyc ost$status
