{
{ BAI$VALIDATE_BLOCK_HEADER

    IF (block_header^.unique_id <> bac$block_header_unique_id) OR
          (block_header^.block_length > UPPERVALUE
          (block_header^.block_length)) OR (block_header^.block_length <
          LOWERVALUE (block_header^.block_length)) THEN
      amp$set_file_instance_abnormal (file_identifier,
            ame$block_hdr_validation_error, call_block.operation, error_text,
            status);
    IFEND;

{ end of BAI$VALIDATE_BLOCK_HEADER
{
