?? RIGHT := 110 ??
  PROCEDURE {[INLINE]} bai$put_ansi_rcw;

    VAR
      rcw_value: integer;

    rcw_value := put_size + rhl;
    IF rcw_value > bac$rcw_length_value_max THEN
      amp$set_file_instance_abnormal (file_identifier, ame$tape_rcd_mgr_malfunction, operation,
            'RCW length overflow encountered in US/D put_ansi_rcw ', status);
      RETURN; {----->
    IFEND;

    i#int_to_unsig_0_fill_rjstring (rcw_value, rh.length);
    put_data (file_identifier, operation, #LOC (rh), rhl, term_option, terminate_previous_block,
          {convert_if_ebcdic} TRUE, status);

    IF status.normal THEN
      last_record_header_p := ^tape_descriptor^.put_tape_block_buffer^
            [block_info^.current_block_byte_address + 1 - rhl];
    IFEND;

  PROCEND bai$put_ansi_rcw;

