?? NEWTITLE := 'NOS/VE : Basic Access Methods : get open information' ??
MODULE bam$get_open_information;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$non_negative_integers
*copyc amt$file_identifier
*copyc ost$status
?? POP ??
*copyc fmp$get_open_information
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$GET_OPEN_INFORMATION' ??

*copyc bah$get_open_information

  PROCEDURE [XDCL, #GATE] bap$get_open_information
    (    file_identifier: amt$file_identifier;
         attachment_information: ^SEQ ( * );
         catalog_information: ^SEQ ( * );
         cycle_attribute_sources: ^SEQ ( * );
         cycle_attribute_values: ^SEQ ( * );
         instance_information: ^SEQ ( * );
         resolved_file_reference: ^SEQ ( * );
         user_defined_attributes: ^SEQ ( * );
     VAR user_defined_attribute_size: ost$non_negative_integers;
     VAR status: ost$status);

    fmp$get_open_information (file_identifier, attachment_information, catalog_information,
          cycle_attribute_sources, cycle_attribute_values, instance_information, resolved_file_reference,
          user_defined_attributes, user_defined_attribute_size, status);

  PROCEND bap$get_open_information;
?? OLDTITLE ??
MODEND bam$get_open_information;
