Cursor in ORACLE FORMS 10g/6i

Question

Dear All Seniors
Please tell me with complete example about CURSORS in ORACLE 10g/ 6i.
i.e
-> declaration
->opening
-> fetching
-> close etc
Shall be very thankfull to him.
thanks in advance
yassen

Answer 1

Here is an example
DECLARE
     /* cursor declaration */
     CURSOR C IS
     SELECT  EMP_MST.EMP_ID,EMP_MST.EMP_DESIG_ID,     
     EMP_MST.EMP_CODE, EMP_MST.EMP_NAME,
     DESIG_MST.DESIG_NAME,EMP_MST.EMP_MIN_DOLLAR,EMP_MST.EMP_GROSS_SAL,  EMP_MST.EMP_BASIC,
     EMP_MST.EMP_MOBILE_BILL,EMP_MST.EMP_TA,EMP_MST.EMP_FES_BONUS
     FROM EMP_MST, DEPT_MST,DESIG_MST
     WHERE NVL(EMP_MST.EMP_QUIT, 0) = 0
     AND EMP_MST.EMP_CID_ID=:GLOBAL.GUNIT_ID
     AND EMP_MST.EMP_DEPT_ID=:GLOBAL.GDEPT_ID
     AND EMP_MST.EMP_DEPT_ID=DEPT_MST.DEPT_ID
     AND EMP_MST.EMP_DESIG_ID=DESIG_MST.DESIG_ID
     AND EMP_MST.EMP_SAL_TYPE=1
     ORDER BY EMP_MST.EMP_CODE;
     ALT NUMBER;
     R C%ROWTYPE;
     N NUMBER;
     errnum NUMBER       := ERROR_CODE;
  V_COUNT NUMBER;
  SD_COUNT NUMBER;
     V_ADD_AMT NUMBER;
     V_ADD_DEDUCT NUMBER;
     V_SAL_ADD_AMT NUMBER;
BEGIN     
     SELECT COUNT(SD_EMP_ID) INTO SD_COUNT
     FROM SALARY_DTL,SALARY_MST
     WHERE SALARY_DTL.SD_SM_ID=SALARY_MST.SM_ID
     AND SALARY_MST.SM_MONTH=:SALARY_MST.SM_MONTH;
/*cursor open*/
     OPEN C;
     --=================
       IF errnum = 40508 THEN    
            ALT:=SHOW_ALERT('DUP_MYD');
            RAISE Form_Trigger_Failure;
       END IF;      
     --================     
          GO_BLOCK('SALARY_DTL');     
          IF SD_COUNT=0 THEN
          FIRST_RECORD;
          ELSE
               LAST_RECORD;
               NEXT_RECORD;
          END IF;
     LOOP
      FETCH C INTO R;               ----cursor fetch/read
      EXIT WHEN C%NOTFOUND;     
      :SALARY_DTL.SD_EMP_ID:=R.EMP_ID;         --- data assign...
      :SALARY_DTL.SD_DESIG_ID:=R.EMP_DESIG_ID;     
      :SALARY_DTL.TXT_EMP_CODE:=R.EMP_CODE;     
      :SALARY_DTL.TXT_NAME:=R.EMP_NAME;     
      :SALARY_DTL.TXT_DESIG:=R.DESIG_NAME;
      :SALARY_DTL.SD_OLD_GROSS_SAL:=R.EMP_GROSS_SAL;
      :SALARY_DTL.SD_GROSS_SAL:=ROUND(R.EMP_MIN_DOLLAR*:SALARY_MST.SM_DOLLAR_RATE);
--      :SALARY_DTL.SD_ORG_BASIC:=R.EMP_BASIC;     
      :SALARY_DTL.SD_ORG_BASIC:=ROUND(:SALARY_DTL.SD_GROSS_SAL*60/100);
      :SALARY_DTL.SD_MOBILE_BILL:=R.EMP_MOBILE_BILL;     
      IF NVL(:SM_BONUS_MONTH,0) =1 THEN
           :SALARY_DTL.SD_FES_BONUS:=R.EMP_FES_BONUS;     
      ELSE
           :SALARY_DTL.SD_FES_BONUS:=NULL;
      END IF;
      NEXT_RECORD;     
     END LOOP;
     PREVIOUS_RECORD;
     CLOSE C;
END;Hope this helps..