Dynamic PL/SQL for Deletion of Records

Dear all,
I am using Dynamic PL/SQL for Deletion of Records,In that PL/SQL, i have to get the no.of records deleted and send a report with the no.of rows deleted.
Please help me on this..
Thanks,
Murugesan

Hi,
Try this:
SQL> SELECT * FROM T;
DT              CODE
14-FEB-07          1
14-FEB-07          1
14-FEB-07          1
14-FEB-07          2
14-FEB-07          2
SQL>
SQL> ed
Wrote file afiedt.buf
1 BEGIN
2    EXECUTE IMMEDIATE ' DELETE FROM T WHERE CODE = 1';
3    DBMS_OUTPUT.PUT_LINE(' Total Deleted Rows :'||SQL%ROWCOUNT);
4* END;
SQL> /
Total Deleted Rows :3
PL/SQL procedure successfully completed.
SQL> Regards
Avinash

Similar Messages

Is their any function module for deleting condition record i am trying

Hi Experts,
Is their any function module for deleting condition record i am trying this way.......
DATA: TABLE (4) TYPE C.
DATA: KNUM LIKE KONH-KNUMH
DATA: K_VEWE LIKE T681-KVEWE VALUE 'A'.
DATA: T681_STR LIKE T681.
DATA: LV_NUM TYPE I.
GET PARAMETERS
PARAMETERS: TABNO LIKE T681-KOTABNR.
PARAMETERS: TESTMODE DEFAULT 'X' AS CHECKBOX.
REFRESH INT_KNUMH.
Select single * from T681 into T681_STR
where kvewe = K_VEWE AND
KOTABNR = TABNO.
IF SY-SUBRC NE 0.
WRITE: / 'No entry in T681 for number ', TABNO.
WRITE: / 'Check whether corresponding condition table exists.'.
EXIT.
ENDIF.
TABLE = T681_STR-KOTAB.
SELECT KNUMH FROM (TABLE) INTO KNUM.
SELECT SINGLE * FROM KONH WHERE KNUMH = KNUM.
IF SY-SUBRC NE 0.
INT_KNUMH-KNUMH = KNUM.
COLLECT INT_KNUMH.
ENDIF.
ENDSELECT.
DESCRIBE TABLE INT_KNUMH LINES LV_NUM.
IF LV_NUM EQ 0.
WRITE: / 'No inconsistent entries found.'.
WRITE: / 'Each record in the condition table has a corresponding.'.
WRITE: / 'entry in the KONH table.'.
EXIT.
ENDIF.
LOOP AT INT_KNUMH.
IF TESTMODE IS INITIAL.
DELETE FROM (TABLE) WHERE
KNUMH = INT_KNUMH-KNUMH.
IF SY-SUBRC = 0.
WRITE: / 'KNUMH =', INT_KNUMH-KNUMH(10), ' deleted from table ' ,TABLE.
ELSE.
WRITE: / 'DELETE: SY-SUBRC is', SY-SUBRC , ' FOR KNUMH = ' .
WRITE: INT_KNUMH-KNUMH(10).
ENDIF.
ELSE.
WRITE: / 'TESTRUN: KNUMH =', INT_KNUMH-KNUMH(10).
ENDIF.
ENDLOOP.
is their any Standerd Function module for comparing tables if the condition record not exist in it has to exit if it is their then compare those two tables if not exist in one table also that has to be delete the condition record
Please let me know .....

Hi,
You can use Function module PRICING_CHECK to check condition record. Do a where-used list on it to see how to call it.
Regards
Kiran Sure

Customized delta data source for deleting data record in the source system.

Hello Gurus,
there is a customized delta data source, how to implement delta function for deleting data record in the source system?
I mean if there is record deleted in the source sytem, how to notify SAP BW system for this deleting change by this customized delta
data source?
Many thanks.

Hi,
when ever record deleted we need to write the code to insert the record in Z table load this records into BW in a cube with similar structure.while loading into this cube multiply the Keyfigure by -1.
add this cube in the Multi Provider.The union of the records in the orginal cube and the cube having deleted records will result in zero vale and will not be displayed in report .
Regards,

Javascript for deletion of records

hi all
i have a table on which a function acts to insert and delete records. I have to check whether the table has existing records for a particular month before deletion and if it does then a javascript popup should say that "records already exist if you continue all records will be deleted. do you wish to continue?"
how can i do that? how can i check whether records are already existing using javascript?
sam

Samd,
Why not put a computation in the Page Rendering phase which will determine whether or not any records exist. Then, you can use a simple JavaScript confirm() to determine whether or not to submit the page, and thus delete the records.
An example of this can be found here: http://apex.oracle.com/pls/otn/f?p=28534:1
The source for the JavaScript is as follows:
function deleteRows()
if (document.getElementById('P1_NUMBER_OF_ROWS').value == 0)
{doSubmit('DELETE');}
else
{alert('There are child records and this delete operation cannot proceed.');}
}There is also a computation for P1_NUMBER_OF_ROWS which will return the number of rows for a specific table/view. If it returns 0, then the process mapped to the "DELETE" button will fire; otherwise, the JavaScript will display an alert with the appropriate message.
One note - always enforce this type of logic at the data model level. Should the JavaScript fail or not fire correctly, you need to ensure that the referential integrity of your data remains in tact.
Thanks,
- Scott -

ODI package - how to watch for delete of records in a table

Hello,
Using ODI package, I am using ODIWaitForData on a table. This works for Inserts/Update, but what do I need to do in a package to do Change Data Capture for Delete?
Thank you.

If your data store is in CDC and you are setting the property named Journalized data only at the interface level then you can set the IKM property named synchronous_jrn_delete . It will take care of the delete operation .

Creating a Trigger for Deleting the records from a parent Table

I am new to creating Trigger
We will need several small tables that will be used to store any records that are deleted by the owner of the table. These will likely need a trigger where we would Delete from the parent table and on that Delete populate the child table with the previous record's data.
Please give me a pseudo code for this
Thanks
John
Edited by: user10750995 on Dec 30, 2008 9:06 AM

Something like this:
CREATE OR REPLACE TRIGGER trg_my_table_hist
AFTER DELETE
ON my_table
FOR EACH ROW
BEGIN
INSERT INTO Hist_MyTable
( column1, column2, ..., DELETION_DATE)
VALUES
(:OLD.column1, :OLD.column2, ...., SYSDATE);
END;
/My_Table is your main table. When a row is deleted, the trigger will be fired and copy the deleted row to another table called Hist_My_Table. I'm supposing that the history table has all columns as they are defined in main tables plus a column named DELETION_DATE.
My experience indicates that, probably, it's a good idea maintain update history and the user. But it depends on your requests.
Regards,
Miguel

How to create BDC for Deletion of Records in Table Control in BDC for PFCG

I have transcation PFCG and have to go to roles of users there.We will upload the users who has to be deleted and it should delete it from the PFCG in one go .Howcan I create a program to delete from the table .If i delete directly from DB table it doesnt show in SAP log how or Who deleted it and the client wants this log which is needed for accountability.
Pls HELP.
George

Hi
You can only indicate the user and all profiles of the user will be deleted.
DATA: BEGIN OF T_DEL_USR OCCURS 0,
                 USERNAME LIKE BAPIBNAME-BAPIBNAME,
      END   OF T_DEL_USR.
DATA T_RESULT TYPE STANDARD TABLE OF BAPIRET2
WITH HEADER LINE.
After loading the users to be deleted:
LOOP AT T_DEL_USR.
CALL FUNCTION 'SUSR_BAPI_USER_PROFILES_DELETE'
    EXPORTING
       USERNAME = T_DEL_USR-USERNAME
    TABLES
        RETURN = T_RESULT.
ENDLOOP.
I'm not sure but perhaps u have to use bapi for commit too: BAPI_TRANSACTION_COMMIT
Max

Pl/Sql for creating Multiple record type file

Hi all,
I have a scenario where I need to create a flat file that contains two different record types in the same file. Basically, a way of getting both the header record and the corresponding detail records. Following are the details:
Table A (Header Records)
"REC_TYPE" "M_ID" "DATE" "*C_ID*"
1 123 090807 *222*
1 345 090907 *333*
Table B (Detail Records)
"REC_TYPE" "A_NO" "LINE_NO" "*C_ID*"
2 7564 1 *222*
2 4535 2 *222*
2 4656 1 *333*
2 6576 2 *333*
In the output file, the resultset should be as:
222, 123, 090807 (Header Record)
*222, 7564, 1* (Detail Record)
*222, 4535, 2* (Detail Record)
333, 345, 090907 (Header Record)
*333, 4656, 1 (Detail Record)*
*333, 6576, 2 (Detail Record)*
Any input is greatly appreciated.
Thank you!

NOT TESTED ! Don't remember when I used loops for the last time. I won't have database access until september (on vacation).
declare
type header_t is record
    c_id ... ,
type detail_t is record
    c_id ... ,
header_r header_t;
detail_r detail_t;
cursor c_h is select c_id, ...
                  from ...
                 order by 1;                      -- header cursor
cursor c_d is select c_id, ...
                  from ...
                 order by 1;                      -- detail cursor
end_line    varchar2(2) := chr(13) || chr(10); -- chr(10) to be used for non Windows
a_separator varchar2(1) := ',';
a_buffer    varchar2(32767);
l_buffer    constant number := 32767;
f_handle    utl_file.file_type;
procedure buffer_put(p_line in varchar2) is
begin
    if length(a_buffer) + length(p_line) < l_buffer then
      a_buffer := a_buffer || p_line;
    else
      utl_file.put(f_handle,a_buffer);
      a_buffer := p_line;
    end if;
end;
function build_header_record(p_record in header_t) return varchar2 is
    retval varchar2(4000) := '';
begin
    retval := retval || to_char(p_record.c_id) || a_separator;
    retval := retval || ... || a_separator;
    retval := retval || ... || end_line;
    return retval;
end;
function build_detail_record(p_record in detail_t) return varchar2 is
    retval varchar2(4000) := '';
begin
    retval := retval || to_char(p_record.c_id) || a_separator;
    retval := retval || ... || a_separator;
    retval := retval || ... || end_line;
    return retval;
end;
begin
f_handle := utl_file.fopen ('THE_DIRECTORY','the_file.ext','w',l_buffer);
open c_h;
open c_d;
loop
    fetch c_h into header_r;
    exit when c_h%notfound;
    buffer_put(build_header_record(header_r));
    if c_h%rowcount > 1 and (header_r.c_id = detail_r.c_id) then
      buffer_put(build_detail_record(detail_r));
    end if;
    loop
      fetch c_d into detail_r;
      exit when c_d%notfound or (detail_r.c_id != header_r.c_id);
      buffer_put(build_detail_record(detail_r));
    end loop;
end loop;
if length(a_buffer) > 0 then
    utl_file.put(f_handle,a_buffer);
end if;
utl_file.fflush(f_handle);
utl_file.fclose(f_handle);
end;Regards
Etbin
utl_file.fclose(f_handle); instead of utl_file.fclose;
Edited by: Etbin on 11.8.2009 8:54

Query for deleting the minimum updated record.

Hello Everybody,
I have table USER_RECENT_PROJECTS which has SIX columns USER_NAME,PROJECT_ID,CREATED_BY,CREATED_ON,UPDATED_BY
and UPDATED_ON.The purpose of having this table to get 5 recent PROJECTS
on which user has worked on.
I have trigger called RECENT_PRJ_TRIGG which IS FIRED when the data is inserted or updated on PROJECT table.After this trigger calls procedure PROC_USER_RECENT_PRJ and that procedure puts the data in this table.
It is inserting the data upto 5 records when the six records comes it deleting the record which is least UPDATED_ON from the table USER_RECENT_PROJECTS but the problem is it is deleting
the record from other user that i don't want.I want to delete the the record which is
least UPDATED_ON from particular user.
Please help me on this issue.
Here is the trigger
CREATE TRIGGER RECENT_PRJ_TRIGG
AFTER INSERT OR UPDATE ON PROJECT
FOR EACH ROW
DECLARE
NUMBER_OF_PROJECTS NUMBER:=0;
EXISTING_PROJECT_ID NUMBER:=0;
BEGIN
SELECT COUNT(*) INTO NUMBER_OF_PROJECTS FROM USER_RECENT_PROJECTS WHERE USER_NAME=:NEW.UPDATED_BY;
SELECT PROJECT_ID INTO EXISTING_PROJECT_ID FROM USER_RECENT_PROJECTS WHERE PROJECT_ID=:NEW.PROJECT_ID AND USER_NAME=:NEW.UPDATED_BY;
NVLX.PROC_USER_RECENT_PRJ(NUMBER_OF_PROJECTS,:NEW.PROJECT_ID,EXISTING_PROJECT_ID,:NEW.UPDATED_BY,:NEW.CREATED_BY,:NEW.CREATED_ON);
EXCEPTION
WHEN NO_DATA_FOUND THEN
NVLX.PROC_USER_RECENT_PRJ(NUMBER_OF_PROJECTS,:NEW.PROJECT_ID,0,:NEW.UPDATED_BY,:NEW.CREATED_BY,:NEW.CREATED_ON);
END;
And this is the procedure which is inserting the data
CREATE OR REPLACE PROCEDURE PROC_USER_RECENT_PRJ (
               NUMBER_OF_PROJECTS IN NUMBER,
               NEW_PROJECT_ID IN PROJECT.PROJECT_ID%TYPE,
               EXISTING_PROJECT_ID IN USER_RECENT_PROJECTS.PROJECT_ID%TYPE,
               USER_NAME IN CONTENT_USER.USER_NAME%TYPE,
                    CREATED_BY IN PROJECT.CREATED_BY%TYPE,
                    CREATED_ON IN PROJECT.CREATED_ON%TYPE)
          IS
                              MAX_RECENT_PROJECTS NUMBER := 5;
          BEGIN
                    IF NUMBER_OF_PROJECTS<=MAX_RECENT_PROJECTS AND EXISTING_PROJECT_ID=NEW_PROJECT_ID THEN
                         UPDATE USER_RECENT_PROJECTS SET USER_RECENT_PROJECTS.UPDATED_ON=SYSDATE,USER_RECENT_PROJECTS.UPDATED_BY=USER_NAME WHERE PROJECT_ID=EXISTING_PROJECT_ID
                         AND USER_RECENT_PROJECTS.USER_NAME=USER_NAME;
                    ELSE IF NUMBER_OF_PROJECTS<MAX_RECENT_PROJECTS AND EXISTING_PROJECT_ID!= NEW_PROJECT_ID THEN
                    INSERT INTO USER_RECENT_PROJECTS VALUES (USER_NAME,NEW_PROJECT_ID,CREATED_BY,CREATED_ON,USER_NAME,SYSDATE);
                    ELSE IF NUMBER_OF_PROJECTS=MAX_RECENT_PROJECTS AND EXISTING_PROJECT_ID!= NEW_PROJECT_ID THEN
                    DELETE FROM USER_RECENT_PROJECTS WHERE USER_RECENT_PROJECTS.PROJECT_ID IN(
                                   SELECT PROJECT_ID FROM USER_RECENT_PROJECTS
                                             WHERE UPDATED_ON=(SELECT MIN(UPDATED_ON) FROM USER_RECENT_PROJECTS
                              WHERE USER_RECENT_PROJECTS.USER_NAME=USER_NAME));
               INSERT INTO USER_RECENT_PROJECTS VALUES (USER_NAME,NEW_PROJECT_ID,CREATED_BY,CREATED_ON,USER_NAME,SYSDATE);
                    END IF;
                    END IF;
                    END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NVLX.PROC_USER_RECENT_PRJ(NUMBER_OF_PROJECTS,NEW_PROJECT_ID,0,USER_NAME,CREATED_BY,CREATED_ON);
END PROC_USER_RECENT_PRJ;
Please help me on this issue.
Thanks in advance.....

Thanks for your suggestion....
I am using the trigger for populating the data in USER_RECENT_PROJECTS.This
trigger is fired when data is INSERTED or UPDATED in PROJECT table.And that trigger will call the procedure PROC_USER_RECENT_PRJ.This is used
to put data in USER_RECENT_PROJECTS table.I am getting the problem in procedure the problem is upto five records it is inserting the record when i go for insert sixth record it should delete least UPDATED_ON and insert new record.But it is deleting the record from other user that i don't want.I want to delete the record from the paarticular user.I am using this query for deleting the record..
               DELETE FROM USER_RECENT_PROJECTS WHERE USER_RECENT_PROJECTS.PROJECT_ID=(
     SELECT PROJECT_ID FROM USER_RECENT_PROJECTS
                    WHERE UPDATED_ON=(SELECT MIN(UPDATED_ON) FROM USER_RECENT_PROJECTS WHERE USER_RECENT_PROJECTS.USER_NAME=USER_NAME)
                         AND USER_RECENT_PROJECTS.USER_NAME=USER_NAME
               ) AND USER_RECENT_PROJECTS.USER_NAME=USER_NAME;
when i fire this query individually it is deleting the proper record,but when i use it
inside procedure it is creating the problem it is deleting the record from other user.
Please suggest me other query for deletion.
Thanks in advance.......

Deletion of records

Hello,
i am getting from user..and i want to delete the records that starts with that user input...how to write query for this?
delete * from emp where emp_name like 's%'...
the above query is for deleting records of the employee whose name starts with s.
suppose temp=a;
how to use the variable in the sql to delete the record?
can anyone help me?
Thanks,
Sri

Dear srivalli
the syntax of delete query is wong
delete from emp where emp_name like 's%' try for this with any sql statements in java.
delete * from emp where emp_name like 's%' is worng please...
go to sql prompt and try once u will get that
thanking u

Dynamic pl/sql - Error -911: ORA-00911: invalid character

This is the first time I am using dynamic pl/sql for self education. I am getting
Error -911: ORA-00911: invalid character
Here is my code;
PROCEDURE DYNAMIC_SQL (table_name in varchar2,
column1 in varchar2,
column2 in varchar2,
v_no out number)
is
dyn_cur integer;
v_table varchar2(2000);
v_field1 varchar2(20);
v_field2 varchar2(20);
v_select varchar2(2000);
v_cursor integer;
begin
DBMS_OUTPUT.enable;
dyn_cur := DBMS_SQL.open_cursor;
v_table := table_name;
v_field1 := column1;
v_field2 := column2;
v_select := 'select '| |v_field1| |','| |
v_field2| |' from '| |v_table;
DBMS_SQL.parse(dyn_cur,v_select,DBMS_SQL.V7);
v_no := DBMS_SQL.execute(dyn_cur);
DBMS_OUTPUT.put_line(v_select);
end;
ANY IDEAS????
Mayur
Thanx
null

Hi Mayur,
I don't exatly know your problem. It seems the syntax is correct. I too got the similar error when I was writing PL/SQL script few years ago. That time after few rounds of investigations, I found that I copied the code from some editor, due to which certain characters are not identified by Oracle. So just retype the code in any editor like (notepad, PF Editor) and compile.
I think this may solve problem.
Cheers!!
r@m@

Dynamic java applet for binary search tree

dynamic java applet for deleting an element of a tree at any specified locationin the tree.

sorry, having thought a bit more about it let me try to be more correct and concrete. say i have feature a at arbitrary chromosome position 7 and features b at positions 1, 2, 3, 5, 6, 9, 10. right now i have to get the closest distance (Math.abs(7-6)) by doing brute force comparison of all values (Math.abs(7-1), Math.abs(7-2), so on). what i want to do is set up a binary tree thus (please forgive poor ASCII):
5
2 9
1 3 6 10
and get back the keys that the tree tried (since i know that 7 is not in the tree and a traditional binary search e.g. TreeMap.get(new Integer(7)) will return a null). i should get back 5, 9, 6, in an array/ArrayList and be able to find the closest feature b in three comparisons rather than 7. that doesn't seem like much but when you have a million b features the difference between 1000000 comparisons and log2(1000000) is pretty appreciable. so i am wondering if there is an extant class that will give me back the trace of attempted keys through a binary tree as described or, if not, if this would be horribly difficult to implement as an extension of TreeMap.

To delete duplicate records from internal table

hi friends,
i have to delete records from internal table based on following criterion.
total fields are 7.
out of which if 4 fields are same and 5th field is different,then both records must be deleted.
in case all five fields are same,the program should do nothing.
for example.
if there are 3 records as follows
a1 b1 c1 d1 e1 f g
a1 b1 c1 d1 e2 w r
a1 b1 c1 d1 e1 j l
then first two records should be deleted as four fields are same but fifth(e) field differs.
but third record should remain as it is evenif first five fields are same for first and third record.
values of last two fields need not to be consider for deleting the records.

LOOP AT ITAB.
V_FILED5 = ITAB-F5. "to compare later
V_TABIX = SY-TABIX. "used to delete if condition not matches
READ TABLE ITAB WITH KEY F1 = ITAB-F1
                           F2 = ITAB-F2
                           F3 = ITAB-F3
                           F4 = ITAB-F4.
IF SY-SUBRC = 0.
    IF ITAB-F5 <> V_FIELD5.
*--both the records to be deleted,as Field5 is different.
      DELETE ITAB INDEX SY-TABIX. "deletes that record
      DELETE ITAB INDEX V_TABIX. "deletes the current record
    ENDIF.
ENDIF.
ENDLOOP.
Message was edited by: Srikanth Kidambi
added comments
Message was edited by: Srikanth Kidambi

DELETING THE RECORDS IN THE FORM

Dear Friends
I have a problem for deleting the records in my form
on the form I have button for deleting the record
and this button has
when-button-pressed trigger
And it has this contains
Do_Key('DELETE_RECORD');
COMMIT_FORM;
The system displayed this message after pressing the delete button
FRM-40400 : transaction complete: 1 record applied and saved
But when I inquiry, about this record it is not deleted .
Can any one tell me why the record is not deleted .
I am using this version of form
Forms [32 Bit] Version 6.0.8.11.3 (Production)
Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production
With the Partitioning, Oracle Label Security, OLAP and Oracle Data Mining
waiting for your valuable replay.
Best regards
Jamil

Dear Pavel
Yes the ON-DELETE trigger , it is exists in the block ,and because of that, it was not saving the deleted record and this code was in the
on-delete trigger
DECLARE
V_LOC VARCHAR(25);
BEGIN
SELECT CAR_NO INTO V_LOC
FROM CAR_FILE
WHERE CAR_NO = :J_CAR_NO ;
IF V_LOC IS NOT NULL THEN
UPDATE CAR_FILE
SET CAR_STATUS =2
WHERE CAR_NO = :J_CAR_NO;
ELSE
NULL;
END IF;
END ;
Why it is not working with ON-DELETE TRIGGER
But it is working with POST-DELETE TRIGGER.
Best regards
jamil

Deleting selected record in Dynamic Internal table

Hi Friends,
I want to delete selected row from a dynamic internal table. The selected entry should be deleted from Adobe and as well as Webdynpro abap.
Kindly help me how to solve this problem.
Thanks in advance.
Regards,
Phani.

Hi Matthias,
Thanks a lot for responding.
In my adobe i kept a check box to delete the record. It should delete the selected ones. But right now, its deleting one by one.
I have coded following script for delete button:
IT_TIME_SHEET --> is my internal table
G_ROW_STATUS is the field to track the action performed.
var tlength = xfa.resolveNodes("IT_TIME_SHEET.DATA[*]").length;
for ( var i=0; i<tlength; i++
if(xfa.resolveNode("IT_TIME_SHEET.DATA["i"].FLAG").rawValue ==
1 )
IT_TIME_SHEET.DATA.instanceManager.removeInstance(i);
G_ROW_STATUS.rawValue = "DELETE";
In the Webdynpro abap following code I wrote:
    row_count = 1.
    FIELD-SYMBOLS <wa> TYPE zshr_time_sheet_time.
    LOOP AT it_time_sheet ASSIGNING <wa>.
      <wa>-srl_no = row_count.
      row_count = row_count + 1.
    ENDLOOP.
    last_row = <wa>-srl_no.
      DELETE it_time_sheet WHERE srl_no EQ last_row.
Suppose if two records checkboxes are selected I can loop at the internal table IT_TIME_SHEET in webdynpro and delete where checkbox is selected.
But problem is once user deletes records, adobe is deleting only one record and if i delete two records from webdynpro it looks like something wrong for the user.
Please help me how to solve this problem.
Regards,
Phani.

Dynamic PL/SQL for Deletion of Records

Similar Messages

Maybe you are looking for