*******************************************************************************
*
*	List File Statistics
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenance log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	03/08/94 12297 JSW Added PI/Open flavor.
*	11/25/92 10317 WLC Changed STAT-FILE to STAT.FILE
*	10/01/92 10317 PVW Bring filestat terminology into line with ULTIMATE
*	09/11/92 10196 PVW Added LOCAL option to list.stats
*	09/08/92 8125  PVW Created program from code by GMH
*
*******************************************************************************

	equate	NEWACC.FORMAT		to 1
	equate	IN2.FORMAT		to 16
	equate	REALITY.FORMAT		to 8
	equate	INFORMATION.FORMAT	to 4
	equate	PICK.FORMAT		to 2
        equate  PIOPEN.FORMAT           to 64
	
*******************************************************************************
MainProgram:

	* setup default values
	
	VOC.ID = "UNIVERSE.STAT.FILE"
	LPTR = ""
	* Get flavor because BREAK.ON works differently
	FLAVOR = system(1001)
	if FLAVOR = INFORMATION.FORMAT or FLAVOR = NEWACC.FORMAT
	then
		SMALL = "@I80"
		BIG = "@I132"
	end
	else
		SMALL = "@P80"
		BIG = "@P132"
	end
	if @crtwide <= 80
	then
		SENT = SMALL
	end
	else
		SENT = BIG
	end

	* Parse command line
	
	COMMAND.LINE = trim(@sentence)
	COMMAND.LINE = convert(" ",@am,COMMAND.LINE)

	loop
		remove ARGUMENT from COMMAND.LINE setting MORE.ARGUMENTS
		begin case
		case ARGUMENT = "LPTR" or ARGUMENT[1,2] = "(P"
			LPTR = "LPTR"
		case ARGUMENT = "LOCAL"
			VOC.ID = "STAT.FILE"
		case ARGUMENT = "WIDE"
			SENT = BIG
		case 1
			NULL ;* garbage
		end case
	until not(MORE.ARGUMENTS)
	repeat
	*

	chain "LIST ":VOC.ID:" ":SENT:" ":LPTR
	
end