Skip to main content

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