
  PROCEDURE [INLINE] bai$forced_write
    (    file_identifier: amt$file_identifier;
     VAR forced_write: amt$forced_write;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      call_block: amt$call_block,
      fetch_attribute: array [1 .. 1] of amt$fetch_item;

    call_block.operation := amc$fetch_req;
    fetch_attribute [1].key := amc$forced_write;
    call_block.fetch.file_attributes := ^fetch_attribute;
    bap$fap_control (file_identifier, call_block, global_layer_number, status);
    IF status.normal THEN
      forced_write := fetch_attribute [1].forced_write;
    IFEND;

  PROCEND bai$forced_write;

*copyc amt$file_identifier
*copyc amt$fetch_attributes
*copyc amt$call_block
*copyc ost$status
*copyc bap$fap_control
?? POP ??
