Again Thanks Rohit -- I am two thirds of the way there, for some reason EntityClass would not take nine of the company names provided by FinancialData, By chance is there another way???

d = FinancialData["^DJI", "Members"] 

dd = FinancialData[#, "Name"] & /@ d

In[99]:= ddd = 
 EntityValue[EntityList[EntityClass["Company", {"Name" -> #}]], 
    "CanonicalName"] & /@ dd

Out[99]= {{"3MCompany::k67x2"}, {"AmericanExpressCompany::9d6vt"}, \
{"Amgen::6yq5w"}, {"Apple::5zkjq"}, {"Boeing::374s8"}, \
{"Caterpillar::48f69"}, {"ChevronCorporation::tj685"}, {}, \
{"CocaCola::78tc4"}, {}, {"DowHoldings::7wkrd"}, {}, \
{"HomeDepot::cb9gp"}, {}, \
{"InternationalBusinessMachinesCorporation::vq88c"}, \
{"IntelCorporation::vj6f2"}, {"Johnson&Johnson::7z9hd"}, \
{"JPMorganChase&Company::258fx"}, {"McDonaldsCorporation::92mv4"}, \
{}, {"MicrosoftCorporation::j3gxm"}, {"Nike::4b7r6"}, \
{"Procter&GambleCompany::sy7qs"}, {"SalesforceDotCom::zbp4j"}, {}, \
{}, {"VerizonCommunications::g84hj"}, {"Visa::r2fcs"}, {}, {}}

3M is just 3M

EntityValue[
 EntityList[EntityClass["Company", {"Name" -> "3M"}]], "CanonicalName"]

Agree that the naming is not obvious sometimes, but at least it is internally consistent in WL.

To get names usable by CompanyData or EntityClass["Company", ...]

FinancialData[#, "Name"] & /@ dd
(* {"3M", "American Express", "Amgen", "Apple", "Boeing", "Caterpillar", 
"Chevron", "Cisco", "Coca-Cola", "Disney", "Dow", "Goldman Sachs", 
"Home Depot", "Honeywell International Inc", "IBM", "Intel", "Johnson 
& Johnson", "JPMorgan Chase", "McDonald's", "Merck & Co.", 
"Microsoft", "Nike", "Procter & Gamble", "Salesforce.com", \
"Travelers", "UnitedHealth", "Verizon Communications", "Visa", 
"Walgreens Boots Alliance Inc", "Wal-Mart Stores"} *)

Hi Raymond,

In an earlier response, I said "WL is case sensitive, facebook is not the same as Facebook. Try that e.g.

EntityValue[
 EntityList[EntityClass["Company", {"Name" -> "Microsoft"}]], "CanonicalName"]
(* {"MicrosoftCorporation::j3gxm"} *)

HI Sean, I am using Wolfram code used in their documentation, but sometimes it works (ibm, vz, dow) and sometimes it does not work (aapl, kodk, mmm, msft)

In[608]:= Interpreter["Company"]["aapl"]
Interpreter["Company"]["ibm"]
Interpreter["Company"]["kodk"]
Interpreter["Company"]["mmm"]
Interpreter["Company"]["vz"]
Interpreter["Company"]["msft"]
Interpreter["Company"]["dow"]

Out[608]= Failure["InterpretationFailure", 
Association[
 "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
  "MessageParameters" -> Association[
   "Type" -> "company", "Input" -> "aapl"], "Type" -> "Company", 
  "Input" -> "aapl"]]

Out[609]= Entity["Company", \
"InternationalBusinessMachinesCorporation::vq88c"]

Out[610]= Failure["InterpretationFailure", 
Association[
 "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
  "MessageParameters" -> Association[
   "Type" -> "company", "Input" -> "kodk"], "Type" -> "Company", 
  "Input" -> "kodk"]]

Out[611]= Failure["InterpretationFailure", 
Association[
 "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
  "MessageParameters" -> Association[
   "Type" -> "company", "Input" -> "mmm"], "Type" -> "Company", 
  "Input" -> "mmm"]]

Out[612]= Entity["Company", "VZHolding::286x4"]

Out[613]= Failure["InterpretationFailure", 
Association[
 "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
  "MessageParameters" -> Association[
   "Type" -> "company", "Input" -> "msft"], "Type" -> "Company", 
  "Input" -> "msft"]]

Out[614]= Entity["Company", "DowHoldings::7wkrd"]

I tried your code and sometimes it works (ibm, dow, facebook) and sometimes it does not work (aapl, kodk, mmm, msft and now vz does not work)

In[633]:= CompanyData[Interpreter["Company"]["aapl"], "CommonShares"]
CompanyData[Interpreter["Company"]["ibm"], "CommonShares"]
CompanyData[Interpreter["Company"]["kodk"], "CommonShares"]
CompanyData[Interpreter["Company"]["mmm"], "CommonShares"]
CompanyData[Interpreter["Company"]["vz"], "CommonShares"]
CompanyData[Interpreter["Company"]["dow"], "CommonShares"]
CompanyData[Interpreter["Company"]["FaceBook"], "CommonShares"]


During evaluation of In[633]:= CompanyData::notent: Failure[\[WarningSign]  Message:     No company interpretation found. Try again.
Tag:    InterpretationFailure

] is not a known entity, class, or tag for CompanyData. Use CompanyData[] for a list of entities.

Out[633]= CompanyData[Failure["InterpretationFailure", 
Association[
  "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
   "MessageParameters" -> Association[
    "Type" -> "company", "Input" -> "aapl"], "Type" -> "Company", 
   "Input" -> "aapl"]], "CommonShares"]

Out[634]= {Entity["Financial", "NYSE:IBM"], 
 Entity["Financial", "DE:IBM"], Entity["Financial", "F:IBM"], 
 Entity["Financial", "L:IBM"]}

During evaluation of In[633]:= CompanyData::notent: Failure[\[WarningSign]  Message:     No company interpretation found. Try again.
Tag:    InterpretationFailure

] is not a known entity, class, or tag for CompanyData. Use CompanyData[] for a list of entities.

Out[635]= CompanyData[Failure["InterpretationFailure", 
Association[
  "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
   "MessageParameters" -> Association[
    "Type" -> "company", "Input" -> "kodk"], "Type" -> "Company", 
   "Input" -> "kodk"]], "CommonShares"]

During evaluation of In[633]:= CompanyData::notent: Failure[\[WarningSign]  Message:     No company interpretation found. Try again.
Tag:    InterpretationFailure

] is not a known entity, class, or tag for CompanyData. Use CompanyData[] for a list of entities.

Out[636]= CompanyData[Failure["InterpretationFailure", 
Association[
  "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
   "MessageParameters" -> Association[
    "Type" -> "company", "Input" -> "mmm"], "Type" -> "Company", 
   "Input" -> "mmm"]], "CommonShares"]

Out[637]= {}

Out[638]= {Entity["Financial", "NYSE:DOW"], 
 Entity["Financial", "F:2OY"], Entity["Financial", "DE:2OY"]}

Out[639]= {Entity["Financial", "NASDAQ:FB"], 
 Entity["Financial", "DE:FB2A"], Entity["Financial", "F:FB2A"]}  

the capricious nature of the code is tiresome, FaceBook works, but FB does not -- what is the secret in getting this code to work???? VZ works in Interpreter but not when wrapped with CompanyData???

These are related entities, but they aren't exactly interchangeable. A company can have multiple associated Financial entities. So for FinancialData, you will want to give it Financial entities. For CompanyData, you want to give it a Company entity.

It's best to just try following the documentation examples, which should largely work as they're written without adjustment.

https://reference.wolfram.com/language/ref/CompanyData.html https://reference.wolfram.com/language/ref/FinancialData.html

You also noted this isn't working:

Interpreter["Company"]["FB"]

It is probably no longer considered unambiguous enough. Less ambiguous input like "Facebook" should work.

In your other example... "Company" isn't a property. So this doesn't work:

EntityValue[Interpreter["Company"]["FaceBook"], "Company"]

You're effectively asking for a Company entity that corresponds to "FaceBook" and then asking that Company entity be turned into a Company entity... which you don't need to do. It's already a company entity. You can give a Company Entity directly to CompanyData:

CompanyData[Interpreter["Company"]["FaceBook"], "Dataset"]