=cut
sub GetMandatoryFieldZ3950($){
sub GetMandatoryFieldZ3950 {
my $authtypecode = shift;
#Tags guessed (see GuessAuthTypeCode from AuthoritiesMarc.pm)
-