sub ProcessSegment000 {
	my $dataline = shift;
	my $seg000 = shift;
	$seg000->{fileid} = substr($dataline,0,3);
# et cetera