Mega Code Archive

 

Categories / MSSQL Tutorial / Transact SQL

 

A script that tests and adjusts credit amounts with a WHILE loop

16> 17> 18> create table Billings ( 19>     BankerID           INTEGER, 20>     BillingNumber      INTEGER, 21>     BillingDate        datetime, 22>     BillingTotal       INTEGER, 23>     TermsID            INTEGER, 24>     BillingDueDate     datetime , 25>     PaymentTotal       INTEGER, 26>     CreditTotal        INTEGER 27> 28> ); 29> GO 1> 2> INSERT INTO Billings VALUES (1, 1, '2005-01-22', 165, 1,'2005-04-22',123,321); 3> GO (1 rows affected) 1> INSERT INTO Billings VALUES (2, 2, '2001-02-21', 165, 1,'2002-02-22',123,321.); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (3, 3, '2003-05-02', 165, 1,'2005-04-12',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (4, 4, '1999-03-12', 165, 1,'2005-04-18',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (5, 5, '2000-04-23', 165, 1,'2005-04-17',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (6, 6, '2001-06-14', 165, 1,'2005-04-18',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (7, 7, '2002-07-15', 165, 1,'2005-04-19',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (8, 8, '2003-08-16', 165, 1,'2005-04-20',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (9, 9, '2004-09-17', 165, 1,'2005-04-21',123,321); 2> GO (1 rows affected) 1> INSERT INTO Billings VALUES (0, 0, '2005-10-18', 165, 1,'2005-04-22',123,321); 2> GO (1 rows affected) 1> 2> 3> WHILE (SELECT SUM(BillingTotal - CreditTotal - PaymentTotal) FROM Billings) >= 50000 4>     BEGIN 5>         UPDATE Billings 6>         SET CreditTotal = CreditTotal + .01 7>         WHERE BillingTotal  - CreditTotal - PaymentTotal > 0 8>         IF (SELECT MAX(CreditTotal) FROM Billings) > 3000 9>             BREAK 10>         ELSE --(SELECT MAX(CreditTotal) FROM Billings) <= 3000 11>             CONTINUE 12>     END 13> GO 1> SELECT BillingDate, BillingTotal, CreditTotal 2> FROM Billings 3> GO BillingDate             BillingTotal CreditTotal ----------------------- ------------ ----------- 2005-01-22 00:00:00.000          165         321 2001-02-21 00:00:00.000          165         321 2003-05-02 00:00:00.000          165         321 1999-03-12 00:00:00.000          165         321 2000-04-23 00:00:00.000          165         321 2001-06-14 00:00:00.000          165         321 2002-07-15 00:00:00.000          165         321 2003-08-16 00:00:00.000          165         321 2004-09-17 00:00:00.000          165         321 2005-10-18 00:00:00.000          165         321 (10 rows affected) 1> 2> drop table Billings; 3> GO