Siemens MD-P1 - Page 63

Appendices
Appendix F - Measuring Consumption (kWh), Demand, and Other Applications
63
Siemens Industry, Inc.
125-201
09/30/2019
04020
“%X%CDL” = “%Z%”
04994
C
04996
C CALCULATE THE PROPER DAY.
04998
C
05000
IF (DAY .NE. 1) THEN GOTO 5020
05010
SAMPLE(60) “%X%MON” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05020
IF (DAY .NE. 2) THEN GOTO 5040
05030
SAMPLE(60) “%X%TUE” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL")
05040
IF (DAY .NE. 3) THEN GOTO 5060
05050
SAMPLE(60) “%X%WED” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05060
IF (DAY .NE. 4) THEN GOTO 5080
05070
SAMPLE(60) “%X%THU” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05080
IF (DAY .NE. 5) THEN GOTO 5100
05090
SAMPLE(60) “%X%FRI” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05100
IF (DAY .NE. 6) THEN GOTO 5120
05110
SAMPLE(60) “%X%SAT” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05120
IF (DAY .NE. 7) THEN GOTO 6000
05130
SAMPLE(60) “%X%SUN” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05998
C
05990
C ------- WEEKLY CONSUMPTION -------
05992
C IF IT IS THE LAST DY OF THE WEEK AND IT IS 12:00 AM, THEN SET THE
05994
C VIRTUAL METER CONSUMPTION POINT EQUAL TO THE ACTUAL DEM VALUES.
05996
C OTHERWISE, SKIP AND CALCULATE THE WEEKLY VALUE.
05998
C
06000
IF (DAY .EQ. 7.0 .AND. CRTIME .GE. 23.99) THEN GOTO 6010 ELSE GOTO 7000
06010
“%X%CWH” = “%Y%”
06020
“%X%CWL” = “%Z%”
06994
C
06996
C CALCULATE THE PROPER WEEK.
06998
C
07000
SAMPLE(60) “%X%WEK” = (“%Y%” – “%X%CWH”) + (“%Z%” – “%X%CWL”)
10000
GOTO 1000