palate 0.3.9

File type detection combining tft and hyperpolyglot
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

DROP FUNCTION COMM_AMOUNT;
CREATE FUNCTION COMM_AMOUNT(SALARY DEC(9,2))
  RETURNS DEC(9,2)
  LANGUAGE SQL READS SQL DATA
  BEGIN ATOMIC
    DECLARE REMAINDER DEC(9,2) DEFAULT 0.0;--
    DECLARE COMM_PAID DEC(9,2) DEFAULT 0.0;--
    DECLARE COMM_INCR INT      DEFAULT 1;--
    DECLARE MAX_COMM  DEC(9,2) DEFAULT 0.0;--

    IF (SALARY <= 0) THEN
       SIGNAL SQLSTATE '75000'
         SET MESSAGE_TEXT = 'Bad Salary';--
    END IF;--

    SET REMAINDER = SALARY;--

L1: WHILE REMAINDER > 0.0 DO
      SET COMM_PAID = COMM_PAID + (COMM_INCR * 500.00);--
      SET REMAINDER = REMAINDER-(COMM_INCR * 5000.00);--
      SET COMM_INCR = COMM_INCR + 1;--
    END WHILE L1;--

    SET MAX_COMM =
       (SELECT SUM(SALARY)/100.00 FROM EMPLOYEE);--
    IF (COMM_PAID > MAX_COMM) THEN
       SET COMM_PAID = MAX_COMM;--
    END IF;--
    RETURN COMM_PAID;--
END;