default.txt 971 B

123456789101112131415161718192021222324252627282930313233343536
  1. //This is a comment
  2. ABORT "You experienced an abort.";
  3. WARN "THIS IS A WARNING";
  4. CALL "RIDER_X";
  5. DONE;
  6. FOR EACH X IN CSV_FILE "d:\lodestar\user\d377.lse"
  7. LEAVE FOR;
  8. END FOR;
  9. IF ((BILL_KW = 0) AND (KW > 0)) THEN
  10. END IF;
  11. INCLUDE "R1";
  12. LEAVE RIDER;
  13. SELECT BILL_PERIOD
  14. WHEN "WINTER"
  15. BLOCK KWH
  16. FROM 0 TO 400 CHARGE $0.03709
  17. FROM 400 CHARGE $0.03000
  18. TOTAL $ENERGY_CHARGE_WIN;
  19. WHEN "SUMMER"
  20. $VOLTAGE_DISCOUNT_SUM = $0.00
  21. OTHERWISE
  22. $VOLTAGE_DISCOUNT_SUM = $1.00
  23. END SELECT;
  24. /* Report top five peaks */
  25. LABEL PK.NM "Peak Number";
  26. SAVE_UPDATE MV TO TABLE "METERVALUE";
  27. FOR EACH INX IN ARRAYUPPERBOUND(#MYARRAY[])
  28. #MYARRAY[INX].VALUE = 2;
  29. CLEAR #MYARRAY[];
  30. END FOR
  31. //Interval Data
  32. HNDL_1_ADD_EDI = INTDADDATTRIBUTE(HNDL_1, "EDI_TRANSACTION", EDI_ID);
  33. HNDL_1_ADD_VAL_MSG = INTDADDVMSG(HNDL_1,"Missing (Status Code 9) values found");
  34. EMPTY_HNDL = INTDCREATEHANDLE('05/03/2006 00:00:00', '05/03/2006 23:59:59', 3600, "Y", "0", " ");