
  PROCEDURE [XREF] bap$open_file
    (    access_level: amt$access_level;
         file_attachment: ^fst$attachment_options;
         default_creation_attributes: ^fst$file_cycle_attributes;
         mandated_creation_attributes: ^fst$file_cycle_attributes;
         attribute_validation: ^fst$file_cycle_attributes;
         attribute_override: ^fst$file_cycle_attributes;
{ evaluated_file_reference is only updated on a normal status.
     VAR evaluated_file_reference: {i/o} fst$evaluated_file_reference;
     VAR contains_data: boolean;
     VAR file_identifier: amt$file_identifier;
     VAR archive_cycle_number: fst$cycle_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amc$condition_code_limits
*copyc ame$lfn_program_actions
*copyc ame$open_validation_errors
*copyc ame$ring_validation_errors
*copyc amt$access_level
*copyc amt$file_identifier
*copyc fst$attachment_options
*copyc fst$evaluated_file_reference
*copyc fst$file_cycle_attributes
*copyc ost$status
*copyc pfe$error_condition_codes
?? POP ??
