/* GMA - Give Me All */

address spot
options results


signal on Syntax
signal on failure
options failat 20


parse arg area

'gotoarea'area
if rc=0 then do
	'messagelist'

	'include "All" TO UNREAD NOGUI NOREQ'

        /* Get numer of GMA's */
	'Getnumselected'
        selected=RESULT

	'setflags unreplied'

	'excludeflag all'

exit selected

syntax:
failure:

signal off failure
signal off syntax

parse source . . . program

program = subword(program,1,words(program)-2)

call 'spot/impmaster/imperror'(program,rc,sigl,sourceline(sigl))

exit