@LANGUAGE
ENGLISH

@VERSION
1.03.00

@FIELDS
NAME,COMPILE,METHOD

@CLASS_DF
"CIENG_TANK",1,@"
CLASS CIENG_TANK;
  PROLOG
    ATTRIBUTE CAPACITY OBJECT FLOAT;
    PROMPT CAPACITY QUERY "Tank capacity (m3)";
    SIGNAL LEVEL := SECTION || ".LEVEL" TRIGGER VALUE;
    SIGNAL VOLUME := FROM "CI-Eng-Sample.TEMPLATES.TPL_REAL" MAKE
      "DESCRIPTION" EQUAL "Tank volume (m3), class CIENG_TANK";
    IF CAPACITY <= 0 THEN
      ERROR "CIENG_TANK: capacity must be > 0";
    ENDIF;
  BODY
    METHOD CALC;
      BODY
        VOLUME := LEVEL * CAPACITY / 100.0;
        IF LEVEL >=: 80.0 THEN
          PRINT "CIENG_TANK ", SECTION, ": V15 changed text, volume ", VOLUME;
        ENDIF;
    ENDMETHOD CALC;
ENDCLASS CIENG_TANK;
"@