/***** MARC 21 (Library of Congress) country codes *****/

program k_marc
version 8.2

replace NAMES_STD = "Afghanistan" if NAMES_STD == "af"
replace NAMES_STD = "Albania" if NAMES_STD == "aa"
replace NAMES_STD = "Algeria" if NAMES_STD == "ae"
replace NAMES_STD = "American Samoa" if NAMES_STD == "as"
replace NAMES_STD = "Andorra" if NAMES_STD == "an"
replace NAMES_STD = "Angola" if NAMES_STD == "ao"
replace NAMES_STD = "Anguilla" if NAMES_STD == "am"
replace NAMES_STD = "Antigua and Barbuda" if NAMES_STD == "aq"
replace NAMES_STD = "Argentina" if NAMES_STD == "ag"
replace NAMES_STD = "Armenia" if NAMES_STD == "ai" | NAMES_STD == "air"
replace NAMES_STD = "Aruba" if NAMES_STD == "aw"
replace NAMES_STD = "Australia" if NAMES_STD == "at"
replace NAMES_STD = "Austria" if NAMES_STD == "au"
replace NAMES_STD = "Azerbaijan" if NAMES_STD == "aj" | NAMES_STD == "ajr"
replace NAMES_STD = "Bahamas" if NAMES_STD == "bf"
replace NAMES_STD = "Bahrain" if NAMES_STD == "ba"
replace NAMES_STD = "Bangladesh" if NAMES_STD == "bg"
replace NAMES_STD = "Barbados" if NAMES_STD == "bb"
replace NAMES_STD = "Belarus" if NAMES_STD == "bw" | NAMES_STD == "bwr"
replace NAMES_STD = "Belgium" if NAMES_STD == "be"
replace NAMES_STD = "Belize" if NAMES_STD == "bh"
replace NAMES_STD = "Benin" if NAMES_STD == "dm"
replace NAMES_STD = "Bermuda" if NAMES_STD == "bm"
replace NAMES_STD = "Bhutan" if NAMES_STD == "bt"
replace NAMES_STD = "Bolivia" if NAMES_STD == "bo"
replace NAMES_STD = "Bosnia and Herzegovina" if NAMES_STD == "bn"
replace NAMES_STD = "Botswana" if NAMES_STD == "bs"
replace NAMES_STD = "Brazil" if NAMES_STD == "bl"
replace NAMES_STD = "British Virgin Islands" if NAMES_STD == "vb"
replace NAMES_STD = "Brunei" if NAMES_STD == "bx"
replace NAMES_STD = "Bulgaria" if NAMES_STD == "bu"
replace NAMES_STD = "Burkina Faso" if NAMES_STD == "uv"
replace NAMES_STD = "Burundi" if NAMES_STD == "bd"
replace NAMES_STD = "Cambodia" if NAMES_STD == "cb"
replace NAMES_STD = "Cameroon" if NAMES_STD == "cm"
replace NAMES_STD = "Canada" if NAMES_STD == "xxc"
replace NAMES_STD = "Cape Verde" if NAMES_STD == "cv"
replace NAMES_STD = "Cayman Islands" if NAMES_STD == "cj"
replace NAMES_STD = "Central African Republic" if NAMES_STD == "cx"
replace NAMES_STD = "Chad" if NAMES_STD == "cd"
replace NAMES_STD = "Chile" if NAMES_STD == "cl"
replace NAMES_STD = "China" if NAMES_STD == "ch"
replace NAMES_STD = "Christmas Islands" if NAMES_STD == "xa"
replace NAMES_STD = "Cocos Islands" if NAMES_STD == "xb"
replace NAMES_STD = "Colombia" if NAMES_STD == "ck"
replace NAMES_STD = "Comoros" if NAMES_STD == "cq"
replace NAMES_STD = "Democratic Republic of Congo" if NAMES_STD == "cg"
replace NAMES_STD = "Congo" if NAMES_STD == "cf"
replace NAMES_STD = "Cook Islands" if NAMES_STD == "cw"
replace NAMES_STD = "Costa Rica" if NAMES_STD == "cr"
replace NAMES_STD = "Cuba" if NAMES_STD == "cu"
replace NAMES_STD = "Croatia" if NAMES_STD == "ci"
replace NAMES_STD = "Cyprus" if NAMES_STD == "cy"
replace NAMES_STD = "Czech Republic" if NAMES_STD == "xr" | NAMES_STD == "cz"
replace NAMES_STD = "Czechoslovakia" if NAMES_STD == "cs"
replace NAMES_STD = "Denmark" if NAMES_STD == "dk"
replace NAMES_STD = "Djibouti" if NAMES_STD == "ft"
replace NAMES_STD = "Dominica" if NAMES_STD == "dq"
replace NAMES_STD = "Dominican Republic" if NAMES_STD == "dr"
replace NAMES_STD = "Ecuador" if NAMES_STD == "ec"
replace NAMES_STD = "Egypt" if NAMES_STD == "ua"
replace NAMES_STD = "El Salvador" if NAMES_STD == "es"
replace NAMES_STD = "Equatorial Guinea" if NAMES_STD == "eg"
replace NAMES_STD = "Eritrea" if NAMES_STD == "ea"
replace NAMES_STD = "Estonia" if NAMES_STD == "er" | NAMES_STD == "err"
replace NAMES_STD = "Ethiopia" if NAMES_STD == "et"
replace NAMES_STD = "Falkland Islands" if NAMES_STD == "fk"
replace NAMES_STD = "Faeroe Islands" if NAMES_STD == "fa"
replace NAMES_STD = "Fiji" if NAMES_STD == "fj"
replace NAMES_STD = "Finland" if NAMES_STD == "fi"
replace NAMES_STD = "France" if NAMES_STD == "fr"
replace NAMES_STD = "French Guiana" if NAMES_STD == "fg"
replace NAMES_STD = "French Polynesia" if NAMES_STD == "fp"
replace NAMES_STD = "Gabon" if NAMES_STD == "go"
replace NAMES_STD = "Gambia" if NAMES_STD == "gm"
replace NAMES_STD = "Georgia" if NAMES_STD == "gs" | NAMES_STD == "gsr"
replace NAMES_STD = "German Democratic Republic" if NAMES_STD == "ge"
replace NAMES_STD = "Germany" if NAMES_STD == "gw"
replace NAMES_STD = "Ghana" if NAMES_STD == "gh"
replace NAMES_STD = "Gibraltar" if NAMES_STD == "gi"
replace NAMES_STD = "Greece" if NAMES_STD == "gr"
replace NAMES_STD = "Greenland" if NAMES_STD == "gl"
replace NAMES_STD = "Grenada" if NAMES_STD == "gd"
replace NAMES_STD = "Guadeloupe" if NAMES_STD == "gp"
replace NAMES_STD = "Guam" if NAMES_STD == "gu"
replace NAMES_STD = "Guatemala" if NAMES_STD == "gt"
replace NAMES_STD = "Guinea" if NAMES_STD == "gv"
replace NAMES_STD = "Guinea-Bissau" if NAMES_STD == "pg"
replace NAMES_STD = "Guyana" if NAMES_STD == "gy"
replace NAMES_STD = "Haiti" if NAMES_STD == "ht"
replace NAMES_STD = "Honduras" if NAMES_STD == "ho"
replace NAMES_STD = "Hong Kong" if NAMES_STD == "hk"
replace NAMES_STD = "Hungary" if NAMES_STD == "hu"
replace NAMES_STD = "Iceland" if NAMES_STD == "ic"
replace NAMES_STD = "India" if NAMES_STD == "ii"
replace NAMES_STD = "Indonesia" if NAMES_STD == "io"
replace NAMES_STD = "Iran" if NAMES_STD == "ir"
replace NAMES_STD = "Iraq" if NAMES_STD == "iq"
replace NAMES_STD = "Ireland" if NAMES_STD == "ie"
replace NAMES_STD = "Israel" if NAMES_STD == "is"
replace NAMES_STD = "Italy" if NAMES_STD == "it"
replace NAMES_STD = "Cote d'Ivoire" if NAMES_STD == "iv"
replace NAMES_STD = "Jamaica" if NAMES_STD == "jm"
replace NAMES_STD = "Japan" if NAMES_STD == "ja"
replace NAMES_STD = "Jordan" if NAMES_STD == "jo"
replace NAMES_STD = "Kazakhstan" if NAMES_STD == "kz" | NAMES_STD == "kzr"
replace NAMES_STD = "Kenya" if NAMES_STD == "ke"
replace NAMES_STD = "Kiribati" if NAMES_STD == "gb"
replace NAMES_STD = "South Korea" if NAMES_STD == "ko"
replace NAMES_STD = "North Korea" if NAMES_STD == "kn"
replace NAMES_STD = "Kuwait" if NAMES_STD == "ku"
replace NAMES_STD = "Kyrgyz Republic" if NAMES_STD == "kg" | NAMES_STD == "kgr"
replace NAMES_STD = "Laos" if NAMES_STD == "ls"
replace NAMES_STD = "Latvia" if NAMES_STD == "lv" | NAMES_STD == "lvr"
replace NAMES_STD = "Lebanon" if NAMES_STD == "le"
replace NAMES_STD = "Lesotho" if NAMES_STD == "lo"
replace NAMES_STD = "Liberia" if NAMES_STD == "lb"
replace NAMES_STD = "Libya" if NAMES_STD == "ly"
replace NAMES_STD = "Liechtenstein" if NAMES_STD == "lh"
replace NAMES_STD = "Lithuania" if NAMES_STD == "li" | NAMES_STD == "lir"
replace NAMES_STD = "Luxembourg" if NAMES_STD == "lu"
replace NAMES_STD = "Macao" if NAMES_STD == "mh"
replace NAMES_STD = "Macedonia" if NAMES_STD == "xn"
replace NAMES_STD = "Madagascar" if NAMES_STD == "mg"
replace NAMES_STD = "Malawi" if NAMES_STD == "mw"
replace NAMES_STD = "Malaysia" if NAMES_STD == "my"
replace NAMES_STD = "Maldives" if NAMES_STD == "xc"
replace NAMES_STD = "Mali" if NAMES_STD == "ml"
replace NAMES_STD = "Malta" if NAMES_STD == "mm"
replace NAMES_STD = "Marshall Islands" if NAMES_STD == "xe"
replace NAMES_STD = "Martinique" if NAMES_STD == "mq"
replace NAMES_STD = "Mauritania" if NAMES_STD == "mu"
replace NAMES_STD = "Mauritius" if NAMES_STD == "mf"
replace NAMES_STD = "Mayotte" if NAMES_STD == "ot"
replace NAMES_STD = "Mexico" if NAMES_STD == "mx"
replace NAMES_STD = "Micronesia" if NAMES_STD == "fm"
replace NAMES_STD = "Moldova" if NAMES_STD == "mv" | NAMES_STD == "mvr"
replace NAMES_STD = "Monaco" if NAMES_STD == "mc"
replace NAMES_STD = "Mongolia" if NAMES_STD == "mp"
replace NAMES_STD = "Montenegro" if NAMES_STD== "mo"
replace NAMES_STD = "Montserrat" if NAMES_STD == "mj"
replace NAMES_STD = "Morocco" if NAMES_STD == "mr"
replace NAMES_STD = "Mozambique" if NAMES_STD == "mz"
replace NAMES_STD = "Myanmar" if NAMES_STD == "br"
replace NAMES_STD = "Namibia" if NAMES_STD == "sx"
replace NAMES_STD = "Nauru" if NAMES_STD == "nu"
replace NAMES_STD = "Nepal" if NAMES_STD == "np"
replace NAMES_STD = "Netherlands" if NAMES_STD == "ne"
replace NAMES_STD = "Netherlands Antilles" if NAMES_STD == "na"
replace NAMES_STD = "New Caledonia" if NAMES_STD == "nl"
replace NAMES_STD = "New Zealand" if NAMES_STD == "nz"
replace NAMES_STD = "Nicaragua" if NAMES_STD == "nq"
replace NAMES_STD = "Niger" if NAMES_STD == "ng"
replace NAMES_STD = "Nigeria" if NAMES_STD == "nr"
replace NAMES_STD = "Niue" if NAMES_STD == "xh"
replace NAMES_STD = "Norway" if NAMES_STD == "no"
replace NAMES_STD = "Oman" if NAMES_STD == "mk"
replace NAMES_STD = "Pakistan" if NAMES_STD == "pk"
replace NAMES_STD = "Palau" if NAMES_STD == "pw"
replace NAMES_STD = "Panama" if NAMES_STD == "pn"
replace NAMES_STD = "Papua New Guinea" if NAMES_STD == "pp"
replace NAMES_STD = "Paraguay" if NAMES_STD == "py"
replace NAMES_STD = "Peru" if NAMES_STD == "pe"
replace NAMES_STD = "Philippines" if NAMES_STD == "ph"
replace NAMES_STD = "Poland" if NAMES_STD == "pl"
replace NAMES_STD = "Portugal" if NAMES_STD == "po"
replace NAMES_STD = "Puerto Rico" if NAMES_STD == "pr"
replace NAMES_STD = "Qatar" if NAMES_STD == "qa"
replace NAMES_STD = "Reunion" if NAMES_STD == "re"
replace NAMES_STD = "Romania" if NAMES_STD == "rm"
replace NAMES_STD = "Russia" if NAMES_STD == "ru" | NAMES_STD == "rur" | NAMES_STD == "ur" | NAMES_STD == "xxr"
replace NAMES_STD = "Rwanda" if NAMES_STD == "rw"
replace NAMES_STD = "Saint Helena" if NAMES_STD == "xj"
replace NAMES_STD = "Saint Kitts and Nevis" if NAMES_STD == "xd"
replace NAMES_STD = "Saint Lucia" if NAMES_STD == "xk"
replace NAMES_STD = "Saint Pierre and Miquelon" if NAMES_STD == "xl"
replace NAMES_STD = "Saint Vincent and the Grenadines" if NAMES_STD == "xm"
replace NAMES_STD = "Samoa" if NAMES_STD == "ws"
replace NAMES_STD = "San Marino" if NAMES_STD == "sm"
replace NAMES_STD = "Sao Tome and Principe" if NAMES_STD == "sf"
replace NAMES_STD = "Saudi Arabia" if NAMES_STD == "su"
replace NAMES_STD = "Senegal" if NAMES_STD == "sg"
replace NAMES_STD = "Seychelles" if NAMES_STD == "se"
replace NAMES_STD = "Sierra Leone" if NAMES_STD == "sl"
replace NAMES_STD = "Singapore" if NAMES_STD == "si"
replace NAMES_STD = "Slovak Republic" if NAMES_STD == "xo"
replace NAMES_STD = "Slovenia" if NAMES_STD == "xv"
replace NAMES_STD = "Solomon Islands" if NAMES_STD == "bp"
replace NAMES_STD = "Somalia" if NAMES_STD == "so"
replace NAMES_STD = "South Africa" if NAMES_STD == "sa"
replace NAMES_STD = "Spain" if NAMES_STD == "sp"
replace NAMES_STD = "Sri Lanka" if NAMES_STD == "ce"
replace NAMES_STD = "Sudan" if NAMES_STD == "sj"
replace NAMES_STD = "South Sudan" if NAMES_STD == "so"
replace NAMES_STD = "Suriname" if NAMES_STD == "sr"
replace NAMES_STD = "Swaziland" if NAMES_STD == "sq"
replace NAMES_STD = "Sweden" if NAMES_STD == "sw"
replace NAMES_STD = "Switzerland" if NAMES_STD == "sz"
replace NAMES_STD = "Syria" if NAMES_STD == "sy"
//they use "china" for taiwan
replace NAMES_STD = "Tajikistan" if NAMES_STD == "ta" | NAMES_STD == "tar"
replace NAMES_STD = "Tanzania" if NAMES_STD == "tz"
replace NAMES_STD = "Thailand" if NAMES_STD == "th"
replace NAMES_STD = "Timor" if NAMES_STD == "em"
replace NAMES_STD = "Togo" if NAMES_STD == "tg"
replace NAMES_STD = "Tonga" if NAMES_STD == "to"
replace NAMES_STD = "Trinidad and Tobago" if NAMES_STD == "tr"
replace NAMES_STD = "Tunisia" if NAMES_STD == "ti"
replace NAMES_STD = "Turkey" if NAMES_STD == "tu"
replace NAMES_STD = "Turkmenistan" if NAMES_STD == "tk" | NAMES_STD == "tkr"
replace NAMES_STD = "Turks and Caicos Islands" if NAMES_STD == "tc"
replace NAMES_STD = "Tuvalu" if NAMES_STD == "tv"
replace NAMES_STD = "Uganda" if NAMES_STD == "ug"
replace NAMES_STD = "Ukraine" if NAMES_STD == "un" | NAMES_STD == "unr"
replace NAMES_STD = "United Arab Emirates" if NAMES_STD == "ts"
replace NAMES_STD = "United Kingdom" if NAMES_STD == "xxk" | NAMES_STD == "uk"
replace NAMES_STD = "United States" if NAMES_STD == "xxu" | NAMES_STD == "us"
replace NAMES_STD = "United States Virgin Islands" if NAMES_STD == "vi"
replace NAMES_STD = "Uruguay" if NAMES_STD == "uy"
replace NAMES_STD = "Uzbekistan" if NAMES_STD == "uz" | NAMES_STD == "uzr"
replace NAMES_STD = "Vanuatu" if NAMES_STD == "nn"
replace NAMES_STD = "Vatican" if NAMES_STD == "vc"
replace NAMES_STD = "Venezuela" if NAMES_STD == "ve"
replace NAMES_STD = "Vietnam" if NAMES_STD == "vm"
replace NAMES_STD = "Republic of Vietnam" if NAMES_STD == "vs"
replace NAMES_STD = "Wallis and Futuna" if NAMES_STD == "wf"
replace NAMES_STD = "Western Sahara" if NAMES_STD == "ss"
replace NAMES_STD = "Yemen" if NAMES_STD == "ye"
replace NAMES_STD = "Yemen People's Republic" if NAMES_STD == "ys"
replace NAMES_STD = "Yugoslavia" if NAMES_STD == "yu" | NAMES_STD == "rb"
replace NAMES_STD = "Zambia" if NAMES_STD == "za"
replace NAMES_STD = "Zimbabwe" if NAMES_STD == "rh"

end
exit