Insert statement is not executing.....

Question

From below procedure the insert statement is not executing....
update statement is working perfectly but insert......
create or replace PROCEDURE PAYMENT(AMT NUMBER,UID NUMBER) IS
AMT1 NUMBER;
AMT NUMBER;
PD VARCHAR2(100);
C1 NUMBER;
PER NUMBER;
ACC1 VARCHAR2(15);
CF NUMBER;
CRF NUMBER;
ACC2 VARCHAR2(15);
begin
SELECT  PAY_DESC INTO PD FROM SUB.PAYMENT_TY WHERE ORD=0;
SELECT NVL(AMOUNT,0) INTO C1 FROM FOOD.MEMBER WHERE LTRIM(RTRIM(UPPER(NAME))) LIKE
LTRIM(RTRIM(UPPER(PD)))
AND USER_ID=UID;
IF NVL(C1,0)>AMT THEN /*CASH*/
C1:=C1-AMT;
SELECT ACCOUNT_CODE INTO ACC1 FROM SUB.MASTER WHERE PAY_CODE=2;
INSERT INTO ACC(AMOUNT_TD,ACC_CODE,EN_DATE,FO_TYPE,PART) VALUES(AMT,ACC1,SYSDATE,'JV','CASH
PERCENTAGE FOR '||45457);
STANDARD.COMMIT;STANDARD.COMMIT;STANDARD.COMMIT;
UPDATE FOOD.MEMBER_DET SET AMOUNT=C1 WHERE USER_ID=UIDAND C_COD=2;
STANDARD.COMMIT;STANDARD.COMMIT;STANDARD.COMMIT;
END IF;
end;the values receiving in insert statement is correct values.
how to resolve this?
Thanks skud...

Answer 1

Check for too many rows or no data found exception.
And also check the number of rows either inserted or updated.
Something like this:
create or replace PROCEDURE PAYMENT(AMT NUMBER,UID NUMBER) IS
  AMT1  NUMBER;
  AMT   NUMBER;
  PD    VARCHAR2(100);
  C1    NUMBER;
  PER   NUMBER;
  ACC1  VARCHAR2(15);
  CF    NUMBER;
  CRF   NUMBER;
  ACC2  VARCHAR2(15);
begin
  begin
    SELECT  PAY_DESC
    INTO PD
    FROM SUB.PAYMENT_TY
    WHERE ORD=0;
    exception
      when too_many_rows then
        dbms_output.put_line('Too many rows in first SELECT');
      when no_data_found then
        dbms_output.put_line('No data found in first select');
  end;
  begin
    SELECT NVL(AMOUNT,0)
    INTO C1
    FROM FOOD.MEMBER
    WHERE LTRIM(RTRIM(UPPER(NAME))) LIKE LTRIM(RTRIM(UPPER(PD)))
    AND USER_ID=UID;
    exception
      when too_many_rows then
        dbms_output.put_line('Too many rows in second SELECT');
      when no_data_found then
        dbms_output.put_line('No data found in second select');
  end;
  IF NVL(C1,0)>AMT THEN /*CASH*/
    C1:=C1-AMT;
    begin
      SELECT ACCOUNT_CODE
      INTO ACC1
      FROM SUB.MASTER
      WHERE PAY_CODE=2;
      exception
        when too_many_rows then
          dbms_output.put_line('Too many rows in third SELECT');
        when no_data_found then
          dbms_output.put_line('No data found in third select');
    end;
    INSERT INTO ACC(AMOUNT_TD,ACC_CODE,EN_DATE,FO_TYPE,PART) VALUES(AMT,ACC1,SYSDATE,'JV','CASH PERCENTAGE FOR '||45457);
    dbms_output.put_line('Insert ' || sql%rowcount);
    COMMIT;
    UPDATE FOOD.MEMBER_DET SET AMOUNT=C1 WHERE USER_ID=UIDAND C_COD=2;
    dbms_output.put_line('Update ' || sql%rowcount);
    commit;
  END IF;
end;
/UNTESTED!!