
{ The following defines an ANSI Variable-Record Record-Control-Word:

  TYPE
    bat$d_record_rcw = record
      length: string (bac$rcw_length_size),
    recend;

  CONST
    bac$rcw_length_size = 4;

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

  CONST
    bac$rcw_min_length_value = '0004',
    bac$rcw_max_length_value = '9999',
    bac$rcw_length_value_min = 4,
    bac$rcw_length_value_max = 9999,
    bac$rcw_length_value_of_zero = '0000',
    bac$ansi_block_padding_chars = '^^^^';

  TYPE
    bat$rcw_length_value_range = bac$rcw_length_value_min .. bac$rcw_length_value_max;


