Using DML in PLsql

Question

Hi,
Can DML queries like insert into be executed in PLSQL?
I have below code, it is a part of a procedure
BEGIN
-- Start entering LOG messages from here
xxmck.mck_write_log_msg.get_log_params('GLTD',gv_prog_src);
IF gv_prog_src = 'NOTASKSUB' THEN
-- check for another program
-- mck_write_log_msg.get_log_params('WIPRPT',gv_prog_src);
NULL;
ELSE
gv_prog_parent:='GLTD';
END IF;
xxmck.mck_write_log_msg.log(gv_prog_parent,'Entering in LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.log_tail(gv_prog_parent,'Entering in LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
BEGIN
DBMS_OUTPUT.PUT_LINE('DROPPING INDEX ON MCK_GLTD_11...');
EXECUTE IMMEDIATE 'DROP INDEX mck_gltd_11_m1';
DBMS_OUTPUT.PUT_LINE('DELETING DATA FROM MCK_GLTD_11...');
DELETE FROM MCK_GLTD_11;
DBMS_OUTPUT.PUT_LINE('Inserting data into table MCK_GLTD_11...');
INSERT INTO mck_gltd_11
SELECT * FROM xxmck.mck_gltd_11_vw
WHERE period_name LIKE '%-'||to_char((sysdate-30),'RR');
DBMS_OUTPUT.PUT_LINE('Updating status and start date of control table...');
UPDATE mck_gltd_mozart_built
SET end_date = sysdate,
status = 'C'
WHERE table_name = 'MCK_GLTD_11';
COMMIT;
DBMS_OUTPUT.PUT_LINE('CREATING INDEX ON MCK_GLTD_11...');
EXECUTE IMMEDIATE 'CREATE INDEX mck_gltd_11_m1 ON mck_gltd_11(code_combination_id,period_name)';
--UNRECOVERABLE;
DBMS_OUTPUT.PUT_LINE('Analyzing tables MCK_GLTD_11...');
--ANALYZE TABLE mck_gltd_11 COMPUTE STATISTICS FOR TABLE FOR INDEXES FOR ALL INDEXED COLUMNS;
END;
xxmck.mck_write_log_msg.log(gv_prog_parent,'Exiting from LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.log_tail(gv_prog_parent,'Exiting from LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.set_decision_param(v_status,gv_prog_src);
-- update MCK_LOG_CONT_EXIT_CHK set cont_exit= v_status, source ='TASK1';
commit;
The code after the inner BEGIN-END block is not getting executed.
I tried using EXECUTE IMMEDIATE for insert and update but there were syntax errors related to '.
Kindly help.
Thanks,
Aditya

Answer 1

Yes, code has exception block...
Here is entire code...
PROCEDURE populate_gltd_tabs11
IS
BEGIN
-- Start entering LOG messages from here
xxmck.mck_write_log_msg.get_log_params('GLTD',gv_prog_src);
IF gv_prog_src = 'NOTASKSUB' THEN
-- check for another program
-- mck_write_log_msg.get_log_params('WIPRPT',gv_prog_src);
NULL;
ELSE
gv_prog_parent:='GLTD';
END IF;
xxmck.mck_write_log_msg.log(gv_prog_parent,'Entering in LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.log_tail(gv_prog_parent,'Entering in LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
BEGIN
DBMS_OUTPUT.PUT_LINE('DROPPING INDEX ON MCK_GLTD_11...');
EXECUTE IMMEDIATE 'DROP INDEX mck_gltd_11_m1';
DBMS_OUTPUT.PUT_LINE('DELETING DATA FROM MCK_GLTD_11...');
DELETE FROM MCK_GLTD_11;
DBMS_OUTPUT.PUT_LINE('Inserting data into table MCK_GLTD_11...');
INSERT INTO xxcognos.mck_gltd_11
SELECT * FROM xxmck.mck_gltd_11_vw
WHERE period_name LIKE '%-'||to_char((sysdate-30),'RR');
DBMS_OUTPUT.PUT_LINE('Updating status and start date of control table...');
UPDATE mck_gltd_mozart_built
SET end_date = sysdate,
status = 'C'
WHERE table_name = 'MCK_GLTD_11';
COMMIT;
DBMS_OUTPUT.PUT_LINE('CREATING INDEX ON MCK_GLTD_11...');
EXECUTE IMMEDIATE 'CREATE INDEX mck_gltd_11_m1 ON mck_gltd_11(code_combination_id,period_name)';
--UNRECOVERABLE;
DBMS_OUTPUT.PUT_LINE('Analyzing tables MCK_GLTD_11...');
--ANALYZE TABLE mck_gltd_11 COMPUTE STATISTICS FOR TABLE FOR INDEXES FOR ALL INDEXED COLUMNS;
END;
xxmck.mck_write_log_msg.log(gv_prog_parent,'Exiting from LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.log_tail(gv_prog_parent,'Exiting from LOAD_GLTD_TABLES.populate_gltd_tabs11','prg',gv_prog_src);
xxmck.mck_write_log_msg.set_decision_param(v_status,gv_prog_src);
-- update MCK_LOG_CONT_EXIT_CHK set cont_exit= v_status, source ='TASK1';
commit;
EXCEPTION
WHEN others THEN
RAISE;
-- Log Entry
v_status := 'err';
xxmck.mck_write_log_msg.set_decision_param(v_status,gv_prog_src);
--update MCK_LOG_CONT_EXIT_CHK set cont_exit='err',source ='TASK3';
xxmck.mck_write_log_msg.err_log(p_parent_prog =>gv_prog_parent
,p_log_desc => SQLERRM
,p_prog_src => gv_prog_src
,p_msg_type => 'prg'
xxmck.mck_write_log_msg.log_tail(p_parent_prog =>gv_prog_parent
,p_log_desc => SQLERRM
,p_prog_src => gv_prog_src
,p_msg_type => 'err'
--commit;
END populate_gltd_tabs11;
Thanks,
Aditya