{
{ BAI$WRITE_RECORD_HEADER
{
{ This code writes a variable record_header.
{ Record_length must be set by the calling procedure.

record_header := #ADDRESS (osc$min_ring, #SEGMENT (file_instance^.file_pva),
        record_info.current_byte_address);

  record_header^.header_type := bac$full_record;
  record_header^.previous_header_fba := record_info.bor_address;
  record_header^.unique_id := bac$record_header_unique_id;

  record_info.bor_address := record_info.current_byte_address;
  record_info.current_byte_address := record_info.current_byte_address +
        #SIZE (bat$record_header);

{ end of BAI$WRITE_RECORD_HEADER
{

