set key = "lastName"

set name = obj.name
 
set lastName = $property(obj,key) 

https://docs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY=RCOS_fproperty