isWorking.cls 723 B

12345678910111213141516171819202122232425262728
  1. /*------------------------------------------------------------------------
  2. File : isWorking
  3. Purpose :
  4. Syntax :
  5. Description :
  6. Author(s) : walter.riechsteiner
  7. Created : Mon Jun 23 17:46:00 CEST 2025
  8. Notes :
  9. ----------------------------------------------------------------------*/
  10. USING Progress.Lang.*.
  11. BLOCK-LEVEL ON ERROR UNDO, THROW.
  12. CLASS isWorking FINAL:
  13. /*------------------------------------------------------------------------------
  14. Purpose:
  15. Notes:
  16. ------------------------------------------------------------------------------*/
  17. CONSTRUCTOR PUBLIC isWorking ( ):
  18. SUPER ().
  19. END CONSTRUCTOR.
  20. END CLASS.