PL-SQL

|                         

Views 290 Downloads 10 File size 83KB

Report DMCA / Copyright

DOWNLOAD FILE

Recommend stories

Citation preview

|             

                                     !       

   

"#$ !%#

&"  '  ('      &

)#*+,

&#   (         &

&          - &

#.$# +,

&#   (        &

#,"/

#                  0 !    12 23  0 !   /

     '     -   

] 

 

0           0 !        ,|4)#% 0 "                 #* "#$ !%#  ,|4)#%/ )

]!%$5!%1673/

] 

 89 #  "#$ !%# )

)

  89 #/

 8%:9 #  "#$ !%# 

 )

 8%:9 #/

] 

 2(;2    "#$ !%# ,|4)#%(;/ #,"/  /

       $%#!#!) #>1

+,#*#% +,#*#% 3/ "# ##?%4>/ +,#%+,>]! |#1>]! |#16@3/

ý  ý

 





       

ý 



"#$ !%# ý  ,|4)#%/   ,|4)#%/   )#*+, # #$ +,((?%4>:5#%# A>/ +,#%+,>]! |#1((3/ #,"/  /

$ ?    +?    +?BC>A5#, # +?BC6A5#,  # +?BCA5#, # # #,"+?/

$ ?    # "#$ !%# ,|4)#%/ ,|4)#%/ )#*+, # #$ +,((?%4>:5#%# A>/ +?;>5#, +,#%+,>]! |#1((3/ # # +,#%+,>]! |#1(=>7(=>73/ #,"+?/ #,"/  /

$ ?     (  B CA &!      & #,"  /

 #.+ #.+:5#,BA/

 #* "#$ !%# ,|4)#%(;>/ )#*+,  +,#%+,>]! |#1((3/ (;=>/ #.+:5#, A>77/ #,"  / #,"/  /

$ ?    :5+ #  :5+ #BA  B CA #,"  /

 ?%  ?%B'A+,B AB A  B CA #,"  /

"#$ !%# ,|4)#%(;>77/ )#*+, ?%+, >>7  +?4"163;75#, DD   '  +,#%+, ]! |#1(E  ' E3/ # # +,#%+, ]! |#1(E E3/ #,"+?/ (;=>77/ #,"  / $44+/ #,"/  

DECLARE acct_balace NUMBER(11,2); acct

CONSTANT NUMBER(4) := 3;

debit_amt

CONSTANT NUMBER(5,2) := 500 00;

BEGIN SELECT bal INTO :acct_balace FROM accots WHERE accot_id = :acct

FOR UPDATE OF bal; IF acct_balace >= debit_amt THEN UPDATE accots SET bal = bal - :debit_amt WHERE accot_id = :acct;

ELSE INSERT INTO temp VALUES (:acct, :acct_balace, 'Isiciet ds'); -- ise t accot, c et balace, ad message

END IF; COMMIT;

END;

"#$ !%#     89 #/ C 89 #/  C    89 #/ C $,!,,|4)#%1@3(;FG76/

)#*+, # #$  +,(  (C?%4  :5#%# ;( C /

:5+ #  B@777  # #$    +,(  (C(  C

?%4  :5#%# ;(C/

#,"  / +,#%+, ]! |#1,| (  (  C 3/ $44+/

#,"/

$   "  $|%%>$ + # #$  ?%4> :5#%# B/

ý               ý!"#$ %   ý!"#$ %   &' ' ()  * +,. $ - ý % ý/ $   & 0        ' $ 12   ýý 3  4 ý  ,- 5 %  ,   ' 6 0  &5 7    ý 8, 94 - ý "-3:-%  ,'     ý ,-1  ,- ý ; : 1 -% ý? ! ý) '%

"#$ !%# $|%%C + # #$  =,] 173    ?%4 / C C 8%:9 #/

)#*+,  #,C /

 ?#$5C +,(C / #.+ :5#, C 8,?|,"/ +? C  A67775#, +,#%+, ]! |#1,| C   C   3/

#,"+?/ #,"  / $ #C /

#,"/

DECLARE CURSOR m1_c IS SELECT m FROM m1_tab ORDER BY seqece; CURSOR m2_c IS SELECT m FROM m2_tab ORDER BY seqece; m1 m1_tab m%TYPE; m2 m2_tab m%TYPE; pai _m NUMBER := 0;

BEGIN OPEN m1_c ; OPEN m2_c ;

LOOP

-- loop th ogh the two tables ad get -- pai s o mbe s FETCH m1_c INTO :m1; FETCH m2_c INTO :m2; EXIT WHEN (m1_c %NOTFOUND) OR (m2_c %NOTFOUND); pai _m := pai _m + 1; INSERT INTO sm_tab VALUES (pai _m, m1 + m2);

END LOOP; CLOSE m1_c ; CLOSE m2_c ;

END;

"#$ !%# $|%% > # #$     ?%4  %"#%)9  "#$/DD  D  

C  $5!%1>73/ C ,|4)#%1@3/ C  ,|4)#%1F63/

)#*+,  #,>/

 ?#$5>+,(C  (C (C  / #.+:5#,1>8%:$|,AH3%1>8,?|,"3/ +,#%+, ]! |#1C  C C  3/ $44+/

#,"  / $ #>/

#,"/

"#$ !%# >C >89 #/DD "   '

6C 689 #/DD      + # #$>6/

)#*+,  #,>/

 ?#$5>+,(>(6(8,?|,"/ DD  >8,?|," ' 

DD %|# ?#$5  

&         &   (;6 1>=