################
$METHODS
Case [L]CURPTH
When ""
Case [L]ACTION
When "ZINFORMATION"
Gosub SHOW_INFORMATION
When "ZLISTINFORMATION"
Gosub SHOW_INFORMATION_OPERATION
Endcase
Endcase
Return
$PROPERTIES
Case [L]CURPRO
Endcase
Return
######################
$SHOW_INFORMATION
[L]ASTATUS = fmet this.ASETERROR("", "This is a Method", [V]CST_AWARNING) ## this will show a message that this is a method
Return
##########
$SHOW_INFORMATION_OPERATION
[L]ASTATUS = fmet this.ASETERROR("", "This is an Operation", [V]CST_AWARNING) ## this will show a message that this is an Operation
Return