
 PROCEDURE [XREF] fsp$open_file (file: fst$file_reference;
        access_level: amt$access_level;
        file_attachment: ^fst$attachment_options;
*IF NOT $true(osv$unix)
        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;
*IFEND
    VAR file_identifier: amt$file_identifier;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*IF NOT $true(osv$unix)
*copyc amc$condition_code_limits
*copyc ame$label_validation_errors
*copyc ame$lfn_program_actions
*copyc ame$open_validation_errors
*copyc ame$ring_validation_errors
*ELSE
*copyc amc$ecc_range
*copyc ame$improper_access_level
*copyc ame$improper_file_attrib_key
*copyc ame$improper_file_attrib_value
*copyc ame$no_permission_for_access
*copyc ose$unix_system_error
*IFEND
*copyc amt$access_level
*copyc amt$file_identifier
*IF NOT $true(osv$unix)
*copyc amt$local_file_name
*IFEND
*copyc fse$attach_validation_errors
*copyc fse$open_validation_errors
*IF NOT $true(osv$unix)
*copyc fst$file_cycle_attributes
*IFEND
*copyc fst$file_reference
*copyc fst$attachment_options
*copyc ost$status
*copyc pfe$error_condition_codes
?? POP ??





