CLASS A INHERITS cv.B IMPLEMENTS cv.IScheduledTask: 
    DEFINE PUBLIC OVERRIDE PROPERTY propChar AS CHARACTER NO-UNDO 
    GET():
        RETURN  " (modified)".
    END GET.
    SET(INPUT pVal AS CHARACTER):
        message "s".
    END SET.

   CONSTRUCTOR A():
       MESSAGE propInt.
   END.
   
   METHOD PROTECTED OVERRIDE VOID test(INPUT txt AS CHARACTER):
      MESSAGE "TEST A".
   END METHOD.

   METHOD PUBLIC DATETIME GetNextRunTime():
       RETURN NOW.
   END METHOD.
   
   METHOD PUBLIC void Execute():
          MESSAGE cv.E:None.
   END METHOD.

END CLASS.