
  PROCEDURE [XREF] avp$get_field
    (    field_name: ost$name;
         data_record: ^avt$template_file_record;
         description_record: ^avt$template_file_record;
         work_area: ^seq ( * );
     VAR field_value: avt$field_value;
     VAR type_specification: avt$type_specification;
     VAR default_value: avt$field_value;
     VAR descriptive_text: ^avt$descriptive_text;
     VAR utility_information: ^avt$utility_information;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ave$template_file_mgr_errors
*copyc avt$descriptive_text
*copyc avt$field_value
*copyc avt$template_file_record
*copyc avt$type_specification
*copyc avt$utility_information
*copyc ost$status
?? POP ??
