NOT getting output in SQL PLUS

Question

Hi guys.......
I have one table.fields are like EMP_CODE,ATTENDENCE.
attendence are in like PPLLAAPPLL.
i want to calculate no of P ,L,A.
I wrote one procedure but it is not giving any output.
create or replace procedure EMP1 as
CURSOR c1 IS SELECT eam_daily_status FROM payream_test
WHERE eam_year_month = '201109';
v_eam_daily_status payream_test.eam_daily_status%TYPE;
v_emp_code payream_test.eam_emp_code%TYPE;
PRSNT VARCHAR2(2);
LV_DAYS VARCHAR2(2);
LV_TIMES VARCHAR2(2);
REST VARCHAR2(2);
N NUMBER := '1';
L_VER NUMBER := '0';
L_LENGTH NUMBER;
v_sub varchar2(1);
BEGIN
FOR I IN C1
LOOP
l_length := LENGTH(I.eam_daily_status);
for j in 1.. l_length
LOOP
V_SUB := SUBSTR(I.EAM_DAILY_STATUS,1,N);
IF (V_SUB = 'P' OR V_SUB = 'X' OR V_SUB = 'N' OR V_SUB = 'T'
OR V_SUB = 'B' OR V_SUB = 'K' OR V_SUB = 'I' OR V_SUB = 'Y')
THEN PRSNT := PRSNT + 1;
L_VER := '0';
END IF;
IF (V_SUB = 'G' OR V_SUB = 'C' OR V_SUB = 'H' OR V_SUB = 'M'
OR V_SUB = 'S' OR V_SUB = 'Q' OR V_SUB = 'L'
     OR V_SUB = 'E' OR V_SUB = 'A' OR V_SUB = 'W'
OR V_SUB = 'D' OR V_SUB = 'F' )THEN
IF L_VER = '1' THEN
LV_DAYS := LV_DAYS + 1;
ELSE IF L_VER = '0' THEN
LV_DAYS := LV_DAYS + 1;
LV_TIMES := LV_TIMES + 1;
L_VER := '1';
END IF;
END IF;
END IF;
IF (V_SUB = 'R' OR V_SUB = 'O')THEN
REST := REST + 1;
END IF;
N := N +1;
END LOOP;
DBMS_OUTPUT.PUT_LINE('EMP CODE = ' || V_EMP_CODE || ',PRESENT = ' || PRSNT ||',
LEAVE = ' || LV_DAYS || ',TIMES = ' || LV_TIMES || ',REST = ' || REST);
N := '1';
END LOOP;
end EMP1;
set serveroutput on
execute emp1;

Answer 1

What is the relation with Oracle Forms ?
Francois