/*------------------------------------------------------------------------
    File        : isWorking
    Purpose     : 
    Syntax      : 
    Description : 
    Author(s)   : walter.riechsteiner
    Created     : Mon Jun 23 17:46:00 CEST 2025
    Notes       : 
  ----------------------------------------------------------------------*/

USING Progress.Lang.*.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS isWorking FINAL: 

    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    CONSTRUCTOR PUBLIC isWorking (  ):
        SUPER ().
        
    END CONSTRUCTOR.

END CLASS.