SET SERVEROUTPUT OFF/ON
SQL> SQL> SQL> SET ECHO ON SQL> SET SERVEROUTPUT OFF SQL> SQL> BEGIN 2 DBMS_OUTPUT.ENABLE (2000); 3 DBMS_OUTPUT.PUT_LINE('Three names will be written.'); 4 DBMS_OUTPUT.PUT('J'); 5 DBMS_OUTPUT.NEW_LINE; 6 DBMS_OUTPUT.PUT('S'); 7 DBMS_OUTPUT.NEW_LINE; 8 DBMS_OUTPUT.PUT('T'); 9 DBMS_OUTPUT.NEW_LINE; 10 END; 11 / PL/SQL procedure successfully completed. SQL> SQL> SET SERVEROUTPUT ON SQL> DECLARE 2 throw_away VARCHAR2(50); 3 names DBMS_OUTPUT.CHARARR; 4 lines_to_get NUMBER; 5 inx1 NUMBER; 6 combined_names VARCHAR2(80); 7 status NUMBER; 8 BEGIN 9 DBMS_OUTPUT.GET_LINE(throw_away, status); 10 11 lines_to_get := 3; 12 DBMS_OUTPUT.GET_LINES(names, lines_to_get); 13 14 combined_names := ''; 15 FOR inx1 IN 1 .. lines_to_get LOOP 16 IF inx1 > 1 THEN 17 combined_names := combined_names || ' and '; 18 END IF; 19 20 combined_names := combined_names || names(inx1); 21 END LOOP; 22 DBMS_OUTPUT.PUT_LINE(combined_names); 23 END; 24 / J and S and T PL/SQL procedure successfully completed. SQL> SQL> --