Procedure error with UTL File

Question

Hi guys, I have got this following error within a procedure which includes the UTL File
I think its to do with the syntax or could be missing an end if somewhere? Im not too sure.
Here it is:
create or replace
PROCEDURE PJW_PRC
IS
-- VARIABLE
v_out_file UTL_FILE.FILE_TYPE;
-- VARIABLE
v_row_Count NUMBER;
rec_users varchar;
BEGIN
---r_dca variable
FOR r_dca IN
( SELECT *
FROM dcaadditionaldata
WHERE directory_name IS NOT NULL
) LOOP
-- Confirm there are actually rows to export
SELECT COUNT
INTO v_row_count
FROM ACCOUNTDETAILS
JOIN CUSTOMERDETAILS
ON ACCOUNTDETAILS.CUSTOMERNUMBER = CUSTOMERDETAILS.CUSTOMERS1
WHERE EXISTS
--Dependent if rows were found or not, below checks to see if rows are found.
( SELECT *
FROM DCAACCOUNTALLOCATION
JOIN DEBTEPISODES ON DEBTEPISODES.ACCOUNTID = DCAACCOUNTALLOCATION.ACCOUNTID
WHERE DCAACCOUNTALLOCATION.dcaid = r_dca.dcaid
AND DCAACCOUNTALLOCATION.status = 3
AND DEBTEPISODES.HANDOVERDATE IS NULL
AND DCAACCOUNTALLOCATION.ACCOUNTID = ACCOUNTDETAILS.ACCOUNTNUMBER
AND DEBTEPISODES.DCAORLAWYER = 'DCA'
-- Checks to see if any rows are available to export, in this case, if there are no rows (0) returned, then.
IF v_row_count = 0 THEN
-- No rows to export so do nothing
NULL;
-- Anything Else, then
ELSE
BEGIN
-- Output file
v_out_file := utl_file.fopen (r_dca.directory_name, 'DCAExport_1_' || TRIM(TO_CHAR(SYSDATE,'DDMMYYYY_HH24MISS')) || '.txt', 'W');
-- Header
utl_file.PUT_LINE(v_out_file,'TASK3');
-- REC_USERS = the variable
FOR rec_users IN
( SELECT
ACCOUNTDETAILS.CUSTOMERNUMBER,
ACCOUNTDETAILS.ACCOUNTNUMBER,
CUSTOMERDETAILS.CDTITLE,
CUSTOMERDETAILS.CDFIRSTNAME,
CUSTOMERDETAILS.CDLASTNAME,
ACCOUNTDETAILS.ACCOUNTTYPE,
ACCOUNTDETAILS.ORIGINALCONTRACTENDDATE,
ACCOUNTDETAILS.CONTRACTTERM,
ACCOUNTDETAILS.CONTRACTENDDATE,
ACCOUNTDETAILS.BRANCHAREA,
ACCOUNTDETAILS.PRODUCTTYPE,
ACCOUNTDETAILS.HOUSEBANKACCOUNT,
ACCOUNTDETAILS.CARMODEL,
ACCOUNTDETAILS.CARLICENCE,
ACCOUNTDETAILS.ARREARSBALANCE,
ACCOUNTDETAILS.CODEBTOR,
ACCOUNTDETAILS.GUARANTORnumber
FROM ACCOUNTDETAILS
JOIN CUSTOMERDETAILS ON ACCOUNTDETAILS.CUSTOMERNUMBER = CUSTOMERDETAILS.CUSTOMERS1
WHERE EXISTS
( SELECT *
FROM DCAACCOUNTALLOCATION
JOIN DEBTEPISODES ON DEBTEPISODES.ACCOUNTID = DCAACCOUNTALLOCATION.ACCOUNTID
WHERE DCAACCOUNTALLOCATION.dcaid = r_dca.dcaid
AND DCAACCOUNTALLOCATION.status = 3
AND DEBTEPISODES.HANDOVERDATE IS NULL
AND DCAACCOUNTALLOCATION.ACCOUNTID = ACCOUNTDETAILS.ACCOUNTNUMBER
AND DEBTEPISODES.DCAORLAWYER = 'DCA'
LOOP
--same as trigger, rec_users is the variable
UTL_FILE.PUT_LINE (v_out_file,
rec_users.CUSTOMERNUMBER|| ',' || rec_users.ACCOUNTNUMBER|| ',' ||rec_users.CDTITLE|| ',' ||rec_users.CDFIRSTNAME || ',' ||
rec_users.CDLASTNAME|| ',' || rec_users.ACCOUNTTYPE|| ',' ||rec_users.ORIGINALCONTRACTENDDATE|| ',' ||rec_users.CONTRACTTERM || ',' ||
rec_users.CONTRACTENDDATE|| ',' || rec_users.BRANCHAREA|| ',' ||rec_users.PRODUCTTYPE|| ',' ||
rec_users.HOUSEBANKACCOUNT|| ',' || rec_users.CARMODEL|| ',' ||rec_users.CARLICENCE|| ',' ||
rec_users.ARREARSBALANCE|| ',' || rec_users.CODEBTOR|| ',' ||rec_users.GUARANTORnumber);
END LOOP;
--Close the file below
UTL_FILE.fclose (v_out_file);
EXCEPTION
WHEN OTHERS THEN
-- IF an error occurs while writing the file then we want to
-- close the open file
IF utl_file.is_open(v_out_file)
THEN
UTL_FILE.fclose (v_out_file)                    *-- ERROR OCCURS HERE **
END IF;
END;
-- We have successfully written a file so set handover date to current date
-- for all relevant debtepisodes
UPDATE DEBTEPISODES
SET handoverdate = TRUNC(SYSDATE)
WHERE DCAORLAWYER = 'DCA'
AND handoverdate IS NULL
AND accountid IN
( SELECT accountid
FROM DCAACCOUNTALLOCATION
WHERE DCAACCOUNTALLOCATION.status = 3
AND DCAACCOUNTALLOCATION.dcaid = r_dca.dcaid
END IF;
END LOOP;
COMMIT;
END PJW_PRC;
The tables and columns stated are what I am currently using and what needs to be used.
The error is shown in bold above producing this:
Error(101,11): PLS-00103: Encountered the symbol "END" when expecting one of the following: := . ( % ; The symbol ";" was substituted for "END" to continue.
Any help would be appreciated, many thanks
Ram

Answer 1

Ram wrote:
Hmm doesnt seem to work
another small error :(And that is? Try and compile your code in SQL*Plus and COPY/PASTE that and Oracle's response here. Use \ tags please :)