/* Unread Areas list */

address spot
options results

/* Build a list of unread areas to speed up processing.
 * Always add the Report Area So that the Reports can be tidied.
 */

'arealist'

'firstarea'
unlist=''

added=0

do until added=0
	'unreadarea'
        'getareaname'
	current=result
	added=0
	if lastpos('<'||current||'>',UNLIST)=0 then do
				unlist=unlist||'<'||current||'>'
                                added=1
	end
end

rarea=getclip('IMP_REPORT')

unlist=unlist||'<'||rarea||'>'

exit unlist

