70 likes | 146 Views
UTS PBD I semester 122. Tentukan tipe data dari variable – variable penampung hasil pada beberapa statement dibawah ini : v_satu := v_name || to_char ( v_empno ); Tipe data v_satu adalah CHAR/VARCHAR v_dua := to_date ( ‘ 25-MAR-2013 ’,’ DD-MON-YYYY ’);
E N D
Tentukantipe data dari variable – variable penampunghasilpadabeberapa statement dibawahini : v_satu := v_name || to_char(v_empno); Tipe data v_satuadalah CHAR/VARCHAR v_dua := to_date( ‘ 25-MAR-2013 ’,’ DD-MON-YYYY ’); Tipedata v_duaadalahDATE v_tiga:= (100*5) + 1000; Tipedata v_tigaadalahNUMBER/INTEGER v_empat:= FALSE; Tipe data v_empatadalahBOOLEAN v_lima:= v_temp1 < (v_temp2 / 3); Tipe data v_limaadalahBOOLEAN v_enam:= sysdate; Tipe data v_enamadalahDATE
Evaluasibeberapadeklarasidibawahini. Apakahdeklarasitersebutsesuaidenganketentuanpendeklarasian variable danapakahbisadigunakan? Jelaskanalasannya ! DECLARE v_kota,v_alamat VARCHAR2(14); TidakSesuai, harusdideklarasikansatupersatu DECLARE v_gaji NUMBER(5); Sesuai DECLARE v_totalbeli NUMBER(7,2) = 500; TidakSesuai, inisialisasinilaimenggunakan := DECLARE v_tgllhr BOOLEAN := SYSDATE; TidakSesuai, tipe data BOOLEAN nilainyahanya True, False, ata Null
V_CUSTID diposisi 1 : 300 • V_CUSTNAME diposisi 1 : Shape up Club Jane Club • V_NEW_CUSTID diposisi 2 : 500 • V_NEW_CUSTNAME diposisi 1 : Jane Club • V_CUSTID diposisi 2 : 1920 • V_CUSTNAME diposisi 2 : Women Club
Buatlahsebuah “anonymous block” untukmeng-update GAJI dari table PENDAPATAN denganketentuan : GAJI = 0.1 * BONUS + 0.2 * TUNJ_KESEHATAN + 0.3 * TUNJ_ANAK + 0.4 * TUNJ_ISTRI BEGIN UPDATE pendapatan SET gaji = 0.1 * bonus + 0.2 * tunj_kesehatan + 0.3 * tunj_anak + 0.4 * tunj_istri ; COMMIT; END;
Buatsebuah procedure untukmengisikenaikanGajipadakolom GAJI_BARU dimanaketentuannyaadalahsbb : Untukkaryawan yang masuk tahun 2003, makamendapatkankenaikanGajisebanyak 15% tahun 2004, makamendapatkankenaikanGajisebanyak 10% tahun 2005, makamendapatkankenaikanGajisebanyak 5% Catatan: 2 digit pertamapada NIK menentukantahunmasukkaryawan Untukmempermudahgunakan Cursor dalam procedure yang andabuat.
DECLARE Vgaji number; CURSOR coba IS SELECT nik,gaji FROM pendapatan; BEGIN FOR tes IN coba LOOP IF SUBSTR(tes.nik,1,2) = ‘03’ THEN Vgaji := tes.gaji * 0.15 + tes.gaji; ELSIF SUBSTR(tes.nik,1,2) = ’04’ THEN Vgaji := tes.gaji * 0.1 + tes.gaji; ELSIF SUBSTR(tes.nik,1,2) = ’05’ THEN Vgaji := tes.gaji * 0.05 + tes.gaji; END IF; UPDATE pendapatan SET gaji_baru = Vgaji WHERE nik = tes.nik; COMMIT; END LOOP; END;