IsA ( object-reference AS Progress.Lang.Class
INPUT INPUT object-type-name AS CHARACTER ) |
DEFINE VARIABLE b AS LOGICAL NO-UNDO.
DEFINE VARIABLE barType AS Progress.Lang.Class NO-UNDO. DEFINE VARIABLE custType AS Progress.Lang.Class NO-UNDO. /* Determines if a "Customer" class object is within the hierarchy of a "Bar" class */ ASSIGN barType = Progress.Lang.Class:GetClass("Bar") custType = Progress.Lang.Class:GetClass("Customer"). b = barType:IsA(custType). /* or */ b = barType:IsA("Customer"). |