Example of Enumeration

Trying to figure out how to use enumerations.  Can anybody help?

I also noticed that visual Cobol doesn't support the Enumeration TryParse?  The goal is to edit the domain extension and ignoring the case.

Here is what I have so far.

enum-id DomainExtensions.
01  binary-long.
      78  com.        
      78  edu.        
      78  gov.       
end enum.

Now trying to use it is the problem. 

method-idValidateDomainprivate

01 domainExttypeDomainExtensions.

proceduredivisionusingbyvaluedomainStringasString

                   returningvalidDomainastypeBoolean.

   setvalidDomaintofalse.

   setdomainExttonewDomainExtensions()

   setdomainExtto (typeDomainExtensions)::Enum::Parse(typeDomainExtensions, domainString, true)

   setdomainExttotype (DomainExtensions)::Enum::Parse(typeDomainExtensions, domainString, true)          

   setdomainExttotype (typeDomainExtensions)::Enum::Parse(typeDomainExtensions, domainString, true)          

   setdomainExttotypeEnum(typeDomainExtensions)::Parse(typeDomainExtensions, domainString, true)

   setdomainExttotypeEnum::Parse(typeDomainExtensions, domainString, true).

   if domainExt = type DomainExtensions::com

endmethod.