╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■     ■    ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Root Entry        аЧсb╬ку`М╠%оа*E$д%╬└AuthorityNewFieldsCorporate.SRC@            ╪AuthorityNewFieldsCorporate.DES@    AUTHORITYNEWFIELDSCORPORATE.BIN@             ■   ■    B■   ■   6 !"#$%&■   ()*+,-./012345■   789:;<=>?@A■   CDEFGHIJ■                                                                                                                                                                                                                       'MacroName:AuthorityNewFieldsCorporate 'MacroDescription:AuthorityAddedFieldsCorporate Sub Main Dim CS As Object Set CS = CreateObject("Connex.Client") CS.AddField 1, "046 Special coded dates" CS.AddField 1, "368 Other CorporaAuthorityAddedFieldsCorporatete Body Attributes" CS.AddField 1, "370 Associated place" CS.AddField 1, "371 Address" CS.AddField 1, "372 Field of Activity" CS.AddField 1, "377 Associated language" End Sub ╟_CS_ISRM╥── Connex.Client addfieldA046 Special coded dates$368 Other Corporate Body Attributes370 Associated place 371 Address372 Field of Activity377 Associated languageД'MacroName:AuthorityNewFieldsFamily 'MacroDescription:Authority New Fields Family 370, 376, 678 Sub Main Dim CS As Object Set CS = CreateObject("Connex.Client") CS.AddFiAuthorityNewFieldsFamily.SRC:     NAuthorityNewFieldsFamily.DES:        )AUTHORITYNEWFIELDSFAMILY.BIN:            \AuthorityNewFieldsPerson.SRC:    1eld 1, "046 Special coded dates" + chr(223) + "s Start date" + chr(223) + "d End date" CS.AddField 1, "370 Associated place" + chr(223) + "e Place of residence" + chr(223) + "f Other assAuthority New Fields Family 370, 376, 678ociated place" CS.AddField 1, "376 Family information" + chr(223) + "b Name of Prominent member" + chr(223) + "c Hereditary title" CS.AddField 1, "678 Biographical or Historical Data" End Sub ce of residencef Other associated place adISRM2$$ Connex.Client046 Special coded dates s Start date d End date addfieldA370 Associated placee Place of residencef Other associated place376 Family informationb Name of Prominent memberc Hereditary title$678 Biographical or Historical DataД 'MacroName:Add374&375 'MacroDescription:Add 374 , 375 to Authority Records Sub Main Dim CS As Object Set CS = CreateObject("Connex.Client") CS.AddField 1, "046 Special coded dates" CS.AddField 1, "370 Associated place" CS.AddField 1, "371 Address" CS.AddField 1, "372 Field of Activity" CS.AddField 1, "373 Associated group" CS.AddField 1, "374 Occupation" CS.AddField 1, "375 Gender" CS.AddField 1, "377 Associated language" CS.AddField 1, "378 Fuller Form of Personal Name" End Sub ISRM №№ Connex.Client addfieldAAuthorityNewFieldsPerson.DES:         ■   AuthorityNewFieldsPerson.BIN:            '╢                        046 Special coded dates370 Associated place 371 Address372 Field of Activity373 Associated group374 Occupation 375 Gender377 Associated language!378 Fuller Form of Personal NameД MainB[╛Тl╫ ╟_CS__ object0 Б CreateObject>rlyT$7)Й~╡/H┼ ╦/H┼<╦/H┼T╦/H┼d╦ /H┼А╦ /H┼Ш╦ /H┼м╦ /H┼╝╦ /H┼╪╦zMainТ[╛ТЪ ╫ ╟(8HXhxРа_CS__________ object0 Б CreateObject╢аЪy\Ь7)Й~╡/░LH┼╦(T▀N╓ц8,╦HцXhT▀N╓▐xИ<╦Рца/░LH┼\╦(T▀N╓ц8t╦HцXhT▀N╓▐xИМ╦Рца/░LH┼и╦(T▀N╓ц8─╦HцXhT▀N╓▐xИф╦Рца/LH┼№╦ z MainB[╛Т╫ ╟_CS__ object0 Б CreateObject yT$7)Й~╡/H┼ ╦/H┼<╦/H┼d╦/H┼|╦ /H┼М╦ /H┼и╦ z