Information Madness

Just found this funny PL/SQL Wedding Query. Check it out.

CREATE PROCEDURE MyMarriage
@ BrideGroom Char(NotBad) ,
@ Bride Char(Good)
AS BEGIN
SELECT Bride FROM india_ Brides
WHERE FatherInLaw = 'Millionaire'
AND CarCount > 2 AND HouseStatus ='TwoStoreyed'
AND BrideEduStatus='PG orAbove'
AND HavingBrothers='NO'
AND HavingSisters ='No'
AND AllowRelocate ='YES' SELECT Gold ,Cash,Car,BankBalan ce
FROM FatherInLaw

UPDATE MyBankAccout SET MyBal = MyBal + FatherinLawBal

UPDATE MyLocker SET MyLockerContents = MyLockerContents + FatherinLawGold

INSERT INTO MyCarShed VALUES ('BMW')

END GO

So what Wife writes in response ???

Then the wife writes the below query:

DROP HUSBAND
Commit;

Here is the Updated more technical procedure...

SQL> CREATE Or Replace PROCEDURE MyMarriage
2    AS
3    BrideGroom_m         MALE(25)  ;
4    Bride_f              FEMALE(22);
5    ----- Added New varialbles ---------
6    MyFatherInLawName_m    MALE(65);
7    MyFatherInLawGold_n    NOSEX(10000000000);
8    MyFatherInLawCash_n    NOSEX(10000000000);
9    MyFatherInLawCar_n    NOSEX(10000000000);
10    MyFatherInLawBal_n    NOSEX(1000000000000000);
11   BEGIN
12
13    SELECT Bride ,
14           FatInLaw
15    INTO   Bride_f ,
16              MyFatherInLawName_m
17    FROM   India_Brides
18    WHERE  FatherInLaw = ‘Millionaire’  
19    AND    Carcount > 20                          -- Carcount is field name
20    AND    HouseStatus=’ThreeStoreyed’
21    AND    BrideEduStatus IN ('B.TECH' ,'BE' ,
22                'Degree' ,'MCA' ,'MBA')         -- Quotes were missing
23    AND    HavingBrothers IS NULL                 -- =NULL wont work
24    AND    HavingSisters IS NULL;                 -- =NULL wont work
25
26    SELECT Gold,
27         Cash,
28           Car,
29           BankBalance
30    INTO   MyFatherInLawGold_n,
31           MyFatherInLawCash_n,
32           MyFatherInLawCar_n,
33           MyFatherInLawBal_n
34    FROM   FatherInLaw
35    WHERE  FatInLawName = MyFatherInLawNmae_m ;
36
37    UPDATE MyBankAccout
38    SET    MyBal = (MyBal + MyFatherInLawBal_n)
39    WHERE  WhoAmI= Myname ;                        --(Myname : Pseudocoulumn)
40
41    UPDATE MyLocker
42    SET MyLockerContents = (MyLockerContents +
43                            MyFatherInLawGold +
44                            MyFatherInLawCash_n )            -- Added MyFatherInLawCash_n
45    WHERE  WhoAmI= Myname ;                         --(Myname : Pseudocoulumn);
46
47    INSERT INTO MyCarShed (WhoAmI , CarBrand )
48        VALUES (Myname,’BMW’) ;                --(Myname : Pseudocoulumn)
49
50  END;
51  /

Procedure created.

SQL>