cliu
48426a0a14
With the user's approval: item blocking and string length, alarm raise / acknowledge / delay / repeat and INFO event, report generate / print / item trigger / rptstp / SPOOL, class change and reset and attribute change. All results match R1.03 (ISS-028 still holds). Everything was removed again; before/after snapshot identical. ISS-129 and ISS-158 closed. Test package saved in examples/CI-Eng-Sample/shared/write_test; snapshot.ps1 now removes the dss_*.tmp files its own exports leave. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
31 lines
724 B
Text
31 lines
724 B
Text
@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;
|
|
"@
|