# fields.census.bad_sort_order.data

@fields = qw(
    lastname
    firstname
    cno
    unit
    ward
    dateadmission
    datebirth
);

%parameters = (
    $fields[0]          => [14, 'U', 'a', 'Last Name'],
    $fields[1]          => [10, 'U', 'a', 'First Name'],
    $fields[2]          => [ 6, q{M}, 'n', 'C No.'],
    $fields[3]          => [ 6, 'U', 'a', 'Unit'],
    $fields[4]          => [ 4, 'U', 'n', 'Ward'],
    $fields[5]          => [10, 'U', 'a', 'Date of Admission'],
    $fields[6]          => [10, 'U', 'a', 'Date of Birth'],
);

#	                     ^   ^    ^    ^
#                            width of field in output
#                                U:  sort ascending (up); D: sort descending (down)
#                                     a:  alphabetical (case-insensitive)
#                                     n:  numerical
#                                     s:  ASCII-betical (case-sensitive)
#                                          column header for use in &writeformat_plus_header

$index = 2;