/*
** Example script for MM_GetAreas and MM_GetAreaInfo commands
*/

address 'MAILMANAGER'

MM_GetAreas AREA

say area.count

if RC=0 THEN DO i=0 FOR AREA.COUNT
	MM_GetAreaInfo AREA.i AREA
	if RC=0 THEN DO
		say
		say
		say 'Name    :' AREA.NAME
		say 'Desc    :' AREA.DESC
		say 'Path    :' AREA.PATH
		say 'AltPath :' AREA.PATH
		say 'Group   :' AREA.GROUP
		say 'Level   :' AREA.LEVEL
		say 'Addr    :' AREA.ADDR

		DO j=0 FOR AREA.NODE.COUNT
			say 'Node :' AREA.NODE.j
			END

		say 'Type :' AREA.TYPE
		say 'MBase:' AREA.MBASE
		say 'NMsg :' AREA.NMSG
		say 'HiMsg:' AREA.HIMSG
		END
	END