Trying to perform this same call from un-managed COBOL code but not sure how to instantiate the Address class and set the properties of that class.
Set oDomesticAddressValidator = CreateObject("My.AddressValidation")
Set oAddress = CreateObject("My.Address")
'*************************
'Set up the lookup fields
'*************************
oAddress.Line1 = oDOMNodeList(0).Attributes.getNamedItem("addressline1").Text
oAddress.Line2 = oDOMNodeList(0).Attributes.getNamedItem("addressline2").Text
oAddress.Line3 = oDOMNodeList(0).Attributes.getNamedItem("addressline3").Text
oAddress.Line4 = oDOMNodeList(0).Attributes.getNamedItem("addressline4").Text
oAddress.CITY = oDOMNodeList(0).Attributes.getNamedItem("city").Text
oAddress.STATE = oDOMNodeList(0).Attributes.getNamedItem("state").Text
oAddress.Zip = oDOMNodeList(0).Attributes.getNamedItem("zip").Text
Set oAddress = oDomesticAddressValidator.ValidateAddress(oAddress)
I've got this in the class-control section:
CLASS-CONTROL.
cVBAddress IS CLASS "$OLE$My.AddressValidation"
cAddress is class "$OLE$My.Address".
And this in working-storage section:
05 ADDRESS-OBJECT usage OBJECT REFERENCE cAddress.
05 MYVB-OBJECT usage OBJECT REFERENCE cVBAddress.
And this in procedure division:
invoke cAddress "new" RETURNING ADDRESS-OBJECT
INVOKE cVBAddress "new" RETURNING MYVB-OBJECT
Not sure where to go from here.
#VisualStudio