37 lines
971 B
Text
37 lines
971 B
Text
|
//This is a comment
|
||
|
|
ABORT "You experienced an abort.";
|
||
|
|
WARN "THIS IS A WARNING";
|
||
|
|
CALL "RIDER_X";
|
||
|
|
DONE;
|
||
|
|
FOR EACH X IN CSV_FILE "d:\lodestar\user\d377.lse"
|
||
|
|
LEAVE FOR;
|
||
|
|
END FOR;
|
||
|
|
IF ((BILL_KW = 0) AND (KW > 0)) THEN
|
||
|
|
END IF;
|
||
|
|
INCLUDE "R1";
|
||
|
|
LEAVE RIDER;
|
||
|
|
SELECT BILL_PERIOD
|
||
|
|
WHEN "WINTER"
|
||
|
|
BLOCK KWH
|
||
|
|
FROM 0 TO 400 CHARGE $0.03709
|
||
|
|
FROM 400 CHARGE $0.03000
|
||
|
|
TOTAL $ENERGY_CHARGE_WIN;
|
||
|
|
WHEN "SUMMER"
|
||
|
|
$VOLTAGE_DISCOUNT_SUM = $0.00
|
||
|
|
OTHERWISE
|
||
|
|
$VOLTAGE_DISCOUNT_SUM = $1.00
|
||
|
|
END SELECT;
|
||
|
|
/* Report top five peaks */
|
||
|
|
LABEL PK.NM "Peak Number";
|
||
|
|
SAVE_UPDATE MV TO TABLE "METERVALUE";
|
||
|
|
|
||
|
|
FOR EACH INX IN ARRAYUPPERBOUND(#MYARRAY[])
|
||
|
|
#MYARRAY[INX].VALUE = 2;
|
||
|
|
CLEAR #MYARRAY[];
|
||
|
|
END FOR
|
||
|
|
|
||
|
|
//Interval Data
|
||
|
|
HNDL_1_ADD_EDI = INTDADDATTRIBUTE(HNDL_1, "EDI_TRANSACTION", EDI_ID);
|
||
|
|
HNDL_1_ADD_VAL_MSG = INTDADDVMSG(HNDL_1,"Missing (Status Code 9) values found");
|
||
|
|
EMPTY_HNDL = INTDCREATEHANDLE('05/03/2006 00:00:00', '05/03/2006 23:59:59', 3600, "Y", "0", " ");
|