
{ The following defines an ANSI Spanned-Record Segment-Control-Word:

  TYPE
    bat$s_record_scw = record
      header_type: CHAR,
      length: string (bac$scw_length_size),
    recend;

  CONST
    bac$scw_length_size = 4;

{ The following defines the bat$s_record_scw.header_type values:

  CONST
    bac$full_segment = '0',
    bac$start_segment = '1',
    bac$continued_segment = '2',
    bac$end_segment = '3';

{ The following defines the bat$s_record_scw.length range:

  CONST
    bac$scw_min_length_value = '0005',
    bac$scw_max_length_value = '9999',
    bac$scw_length_value_min = 5,
    bac$scw_length_value_max = 9999,
    bac$scw_length_value_of_zero = '0000',
    bac$ansi_block_padding_char = '^';

  TYPE
    bat$scw_length_value_range = bac$scw_length_value_min .. bac$scw_length_value_max;


