83 lines
2.1 KiB
Plaintext
83 lines
2.1 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* 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
|