Can't find the cause of the PL/SQL Compilation Error

set scan off
 
CREATE OR REPLACE PACKAGE export_tool AS
 
  FUNCTION get_prereq(p_subj_code in VARCHAR2(20),P_crse_numb in VARCHAR2(20)) RETURN clob;
  FUNCTION get_coreq(p_subj_code in VARCHAR2(20),P_crse_numb in VARCHAR2(20)) RETURN clob;
  PROCEDURE p_print_data;
 
END export_tool;
/
show errors
 
WHENEVER SQLERROR CONTINUE
DROP PUBLIC SYNONYM export_tool;
WHENEVER SQLERROR EXIT ROLLBACK
REM *** BEGINNING OF GURMDBP MODS ***
REM GRANT EXECUTE ON export_tool TO PUBLIC
WHENEVER SQLERROR CONTINUE
REM start gurgrtb export_tool
WHENEVER SQLERROR EXIT ROLLBACK
REM *** END OF GURMDBP MODS ***
create public synonym export_tool for export_tool;
grant execute on export_tool to www_user;
set scan off
 
CREATE OR REPLACE PACKAGE BODY export_tool AS
 
    CURSOR cv_cursor_data IS
          SELECT distinct CONCAT(a.SCBCRSE_SUBJ_CODE,a.SCBCRSE_CRSE_NUMB) AS ID, a.SCBCRSE_TITLE, a.SCBCRSE_CREDIT_HR_LOW, f.stvdept_desc, get_prereq(a.SCBCRSE_SUBJ_CODE,a.SCBCRSE_CRSE_NUMB), get_coreq(a.SCBCRSE_SUBJ_CODE,a.SCBCRSE_CRSE_NUMB)
          FROM  SCBCRSE a, SCBCRKY, STVDEPT f
          WHERE a.SCBCRSE_EFF_TERM = (SELECT MAX(b.SCBCRSE_EFF_TERM)
                                     FROM SCBCRSE b
                                     WHERE b.SCBCRSE_CRSE_NUMB = a.SCBCRSE_CRSE_NUMB
                                     AND b.SCBCRSE_SUBJ_CODE = a.SCBCRSE_SUBJ_CODE
                                     AND b.SCBCRSE_EFF_TERM <= 200910)
          AND   a.SCBCRSE_SUBJ_CODE = SCBCRKY_SUBJ_CODE
          AND   a.SCBCRSE_CRSE_NUMB = SCBCRKY_CRSE_NUMB
          AND   a.SCBCRSE_CSTA_CODE = 'A'
          AND   a.SCBCRSE_CRSE_NUMB <> '000'
          AND   a.SCBCRSE_CRSE_NUMB <> '001'
          AND   a.SCBCRSE_CRSE_NUMB <> '002'
          AND   a.SCBCRSE_CRSE_NUMB <> '998'
          AND   a.SCBCRSE_CRSE_NUMB <> '999'
          AND   a.SCBCRSE_DEPT_CODE = f.stvdept_code
          AND   SCBCRKY_TERM_CODE_START <= 200910
          AND   SCBCRKY_TERM_CODE_END >= 200910
          ORDER BY ID;
          
   v_id VARCHAR2;
   v_title VARCHAR2;
   v_credit VARCHAR2;
   v_dept VARCHAR2;
   v_prereq VARCHAR2(4000);
   v_coreq VARCHAR2(4000);
   
  -- Function to get course PRE-REQS
  FUNCTION get_prereq(p_subj_code in VARCHAR2(20),p_crse_numb in VARCHAR2(20)) 
  RETURN clob IS
      
       CURSOR p_cursor IS
             SELECT CONCAT(b.SCRRTST_SUBJ_CODE_PREQ,b.SCRRTST_CRSE_NUMB_PREQ)
             FROM SCRRTST b
             WHERE p_subj_code    = b.SCRRTST_SUBJ_CODE
             AND p_crse_numb        = b.SCRRTST_CRSE_NUMB
             AND b.SCRRTST_CONCURRENCY_IND <> 'Y';
             
       l_value   p_cursor%ROWTYPE;
       l_result  clob;
       p_del varchar2 := ' ';
       
  BEGIN
      OPEN p_cursor;
      
      IF l_result IS NOT NULL THEN
              l_result := l_result || p_del;
      END IF;
      
      LOOP
          FETCH p_cursor INTO l_value;
          EXIT WHEN p_cursor%NOTFOUND;
          
          l_result := l_result || l_value;
      END LOOP;
      CLOSE p_cursor;
      RETURN l_result;
  END get_prereq;
 
  -- Function to get courses CO-REQS
  FUNCTION get_coreq(p_subj_code in VARCHAR2(20),p_crse_numb in VARCHAR2(20))
  RETURN clob IS
       
       CURSOR p_cursor2 IS
             SELECT CONCAT(d.SCRRTST_SUBJ_CODE_PREQ,d.SCRRTST_CRSE_NUMB_PREQ)
             FROM SCRRTST d
             WHERE p_subj_code = d.SCRRTST_SUBJ_CODE
             AND p_crse_numb = d.SCRRTST_CRSE_NUMB
             AND d.SCRRTST_CONCURRENCY_IND = 'Y';
             
       l_value2   p_cursor2%ROWTYPE;
       l_result2  clob;
       p_del2 VARCHAR2 := ' ';
             
  BEGIN
      
      IF l_result2 IS NOT NULL THEN
              l_result2 := l_result2 || p_del2;
      END IF;
          
      OPEN p_cursor2;
      LOOP
          FETCH p_cursor2 into l_value2;
          EXIT WHEN p_cursor2%NOTFOUND;
          
          l_result2 := l_result2 || l_value2;
      END LOOP;
      CLOSE p_cursor2;
      RETURN l_result2;
  END get_coreq;
  
  -- Output data
  PROCEDURE p_print_data 
  AS      
  BEGIN  
      OPEN cv_cursor_data;
      LOOP
        FETCH cv_cursor_data INTO v_id, v_title, v_credit, v_dept, v_prereq, v_coreq;
        EXIT WHEN cv_cursor_data%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_id||','||v_title||','||v_credit||','||v_dept||','||v_prereq||','||v_coreq);
      END LOOP;
      CLOSE cv_cursor_data;  
  END p_print_data;
  
END export_tool;
/
show errors
set scan on