123456789101112131415161718192021222324252627282930313233343536 |
- //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", " ");
|