When i execute code, it shows "Record 1/?" and takes too much of time to execute.

Question

Hi all,
I have s form with push_button (SEND TO BACKUP).
For this push button - SEND TO BACKUP, i have coded the below for Trigger - WHEN BUTTON PRESSED.
DECLARE
  CNT NUMBER;
  TEMPDATE DATE;
CURSOR C1 IS SELECT MAT_DESC, FRAME, FSIZE,    POLES, NUMS, DRG_NO,    RM_WT, FIN_WT, RATE,    FRAMENAME, FTYPE, CHND_DATE,RATESOFPO
FROM RMC_INACTIVE_MAT_RATES_MP;
BEGIN
  FOR I IN C1 LOOP
   SELECT COUNT(CHND_DATE) INTO CNT FROM RMC_INACTIVE_MAT_RATES_MP_PREV WHERE CHND_DATE=I.CHND_DATE;
  IF CNT > 1 or cnt=1 THEN
   MESSAGE('INACTIVE MATERIAL RATES FOR MEGAPACK  ALREADY EXIST IN BACKUP WITH THIS DATE ');
  MESSAGE(' ');
  Raise Form_Trigger_Failure;
  end if;
end loop;
  FOR I IN C1 LOOP
  INSERT INTO RMC_INACTIVE_MAT_RATES_MP_prev(MAT_DESC, FRAME, FSIZE, POLES, NUMS, DRG_NO,    RM_WT, FIN_WT, RATE,    FRAMENAME, FTYPE, CHND_DATE,
  RATESOFPO )
  VALUES(I.MAT_DESC, I.FRAME, I.FSIZE, I.POLES, I.NUMS, I.DRG_NO,    I.RM_WT, I.FIN_WT, I.RATE,    I.FRAMENAME, I.FTYPE, I.CHND_DATE,I.RATESOFPO  );
  END LOOP;
  COMMIT  ;
  MESSAGE('DATA HAS SENT SUCCESSFULLY ');
  MESSAGE(' ',NO_ACKNOWLEDGE);
END;
It is working but with lot of delay, it takes too much of time.
After i run this form & as i press the button, it shows "Record 1/?" in the below and it takes almost 5 mins to execute completely and dhow the message.
Can you tell why is it showing "Record 1/?" below ???
How to reduce the delay??
Thank You.
Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production

Answer 1

If you want to suppress the message shown in status you can set the sevearity like :system.message_level          := '20';
Can you change your code like
:system.message_level          := '20'; --- To suppress the default messages
DECLARE
  CNT NUMBER;
  TEMPDATE DATE;
CURSOR C1 IS SELECT MAT_DESC, FRAME, FSIZE,    POLES, NUMS, DRG_NO,    RM_WT, FIN_WT, RATE,    FRAMENAME, FTYPE, CHND_DATE,RATESOFPO
FROM RMC_INACTIVE_MAT_RATES_MP;
BEGIN
  FOR I IN C1 LOOP
   SELECT COUNT(CHND_DATE) INTO CNT FROM RMC_INACTIVE_MAT_RATES_MP_PREV WHERE CHND_DATE=I.CHND_DATE;
  IF cnt >= 1 THEN
   MESSAGE('INACTIVE MATERIAL RATES FOR MEGAPACK  ALREADY EXIST IN BACKUP WITH THIS DATE ');
  MESSAGE(' ');
  Raise Form_Trigger_Failure;
  end if;
end loop;
  FOR I IN C1 LOOP
  INSERT INTO RMC_INACTIVE_MAT_RATES_MP_prev(MAT_DESC, FRAME, FSIZE, POLES, NUMS, DRG_NO,    RM_WT, FIN_WT, RATE,    FRAMENAME, FTYPE, CHND_DATE,
  RATESOFPO )
  VALUES(I.MAT_DESC, I.FRAME, I.FSIZE, I.POLES, I.NUMS, I.DRG_NO,    I.RM_WT, I.FIN_WT, I.RATE,    I.FRAMENAME, I.FTYPE, I.CHND_DATE,I.RATESOFPO  );
  END LOOP;
  COMMIT  ;
  MESSAGE('DATA HAS SENT SUCCESSFULLY ');
  MESSAGE(' ',NO_ACKNOWLEDGE);
END;