Add a different character to the last line of a loop

Question

Hi,
I'm attempting to use some pl/sql to generate an RMAN copy script. After each line there needs to be comma, but the last line of the loop should have a semi-colon to terminate the statement. How can I do that?
In the example below, the copy for controlfile 3 needs to be a semi-colon, not a comma:
run
SHUTDOWN IMMEDIATE
STARTUP MOUNT
COPY
DATAFILE 1 TO '/u20/oraflash/ORCL1/dbcopy/system01.dbf',
DATAFILE 2 TO '/u20/oraflash/ORCL1/dbcopy/undotbs01.dbf',
DATAFILE 3 TO '/u20/oraflash/ORCL1/dbcopy/drsys01.dbf',
DATAFILE 4 TO '/u20/oraflash/ORCL1/dbcopy/example01.dbf',
DATAFILE 5 TO '/u20/oraflash/ORCL1/dbcopy/indx01.dbf',
DATAFILE 6 TO '/u20/oraflash/ORCL1/dbcopy/tools01.dbf',
DATAFILE 7 TO '/u20/oraflash/ORCL1/dbcopy/users01.dbf',
DATAFILE 8 TO '/u20/oraflash/ORCL1/dbcopy/xdb01.dbf',
CURRENT CONTROLFILE TO '/u20/oraflash/ORCL1/dbcopy/control01.ctl',
CURRENT CONTROLFILE TO '/u20/oraflash/ORCL1/dbcopy/control02.ctl',
CURRENT CONTROLFILE TO '/u20/oraflash/ORCL1/dbcopy/control03.ctl',
ALTER DATABASE OPEN
My script is:
set serveroutput on format wrapped
set feedback off
spool db_copy.rcv
declare
cursor df is
select
file#,
substr(name,29,50) name
from
v$datafile;
cursor cf is
select
substr(name,27,50) name
from
v$controlfile;
BEGIN
DBMS_OUTPUT.ENABLE(2000);
DBMS_OUTPUT.PUT_LINE('run');
DBMS_OUTPUT.PUT_LINE('{');
DBMS_OUTPUT.PUT_LINE('SHUTDOWN IMMEDIATE');
DBMS_OUTPUT.PUT_LINE('STARTUP MOUNT');
DBMS_OUTPUT.PUT_LINE('COPY');
for dfbkup in df loop
dbms_output.put_line(' DATAFILE '||dfbkup.file#||
' TO ''' || '/u20/oraflash/ORCL1/dbcopy/' || dfbkup.name ||''',');
end loop;
for cfbkup in cf loop
dbms_output.put_line(' CURRENT CONTROLFILE' ||
' TO ''' || '/u20/oraflash/ORCL1/dbcopy/' || cfbkup.name ||''',');
end loop;
DBMS_OUTPUT.PUT_LINE(' ;');
DBMS_OUTPUT.PUT_LINE('ALTER DATABASE OPEN');
DBMS_OUTPUT.PUT_LINE('}');
end;
spool off

Answer 1

Hi
Try this then and remove any returns that I've put in as appropriate
DECLARE
l_string VARCHAR2(32767);
l_num NUMBER := 1;
CURSOR df IS
SELECT  file#, SUBSTR (name, 29, 50) name
FROM v$datafile;
CURSOR cf IS
SELECT   SUBSTR (name, 27, 50) name
FROM v$controlfile;
BEGIN
   l_string := ('run
   l_string := l_string||('{
   l_string := l_string||('SHUTDOWN IMMEDIATE
   l_string := l_string||('STARTUP MOUNT
   l_string := l_string||('COPY
   FOR dfbkup IN df
   LOOP
      l_string := l_string||(   ' DATAFILE '
                           || dfbkup.file#
                           || ' TO '''
                           || '/u20/oraflash/ORCL1/dbcopy/'
                           || dfbkup.name
                           || ''',
   END LOOP;
   FOR cfbkup IN cf
   LOOP
      l_string := l_string||(   ' CURRENT CONTROLFILE'
                           || ' TO '''
                           || '/u20/oraflash/ORCL1/dbcopy/'
                           || cfbkup.name
                           || ''',
   END LOOP;
   l_string := RTRIM(l_string,'
   l_string := l_string||(' ;
   l_string := l_string||('ALTER DATABASE OPEN
   l_string := l_string||('}');
WHILE l_num <= LENGTH(l_string) LOOP
DBMS_OUTPUT.PUT_LINE(SUBSTR(l_string, l_num, 200));
l_num := l_num + 200;
END LOOP;
END;Cheers
Ben