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

    VAR
      scw_value: integer;

    rh.header_type := v$header_types [start_of_data] [end_of_data];
    scw_value := put_size + rhl;
    IF scw_value > bac$scw_length_value_max THEN
      amp$set_file_instance_abnormal (file_identifier, ame$tape_rcd_mgr_malfunction, operation,
            'SCW length overflow encountered in US/S put_ansi_rcw_for_putn ', status);
      RETURN; {----->
    IFEND;

    i#int_to_unsig_0_fill_rjstring (scw_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;

    start_of_data := FALSE;

  PROCEND bai$put_ansi_scw_for_putn;

