ENDSET

Terminates a BEGSET property procedure.

ENDSET

Remarks

An ENDSET routine must begin with a BEGSET .

Example

DclFld_Firstname   *string   INZ("")
DclFld_Lastname    *string   INZ(" ")

BegProp Firstname   *string   Access( *public )
   BegSet
      _FirstName = *Propval
   EndSet

   BegGet
      LeaveSr _FirstName
   EndGet
EndProp

BegProp Lastname   *string   Access( *public )
   BegSet NewValname( Lname )
      _LastName = Lname
   EndSet

   BegGet
      LeaveSr _LastName
   EndGet
EndProp

// Read only property
BegProp FullName Type( *string )  Access( *public )
   BegGet
      LeaveSR Value( FirstName + " " + LastName )
   EndGet
EndProp

ENDSET

Remarks

Example

See Also