set linesize 79
set pagesize 50
set newpage 0
set echo off
set verify off
set sqlcase upper
clear breaks

column contactlast NEW_VALUE xlast noprint format a15 trunc
column contactfirst NEW_VALUE xfirst noprint format a10 trunc
column calldate heading 'Call Date' format a10
column note format a61 word_wrapped

ttitle skip 2 -
left xfirst ' ' xlast -
center 'Contact Calls by Date' 

btitle off

accept glast prompt 'Enter the last name: '

spool ora_ex6.lst

select contact.contactlast, 
	contact.contactfirst,
	call.calldate, call.topic, call.note
	from contact, call
	where contact.contactlast = '&glast'
	and contact.contactid = call.contactid
	order by calldate ;

spool off
clear breaks
clear computes
ttitle off
btitle off
clear columns

/