279 lines
4.8 KiB
Plaintext
Executable File
279 lines
4.8 KiB
Plaintext
Executable File
/******************************************************************************
|
|
/*
|
|
/* The d_filestat file, used for creating D_&FILESTATS&
|
|
/*
|
|
/* 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.
|
|
/*
|
|
/******************************************************************************
|
|
/*
|
|
/* Maintenence log - insert most recent change descriptions at top
|
|
/*
|
|
/* Date.... GTAR# WHO Description.........................................
|
|
/* 10/14/98 23801 SAP Change copyrights.
|
|
/* 06/13/96 18438 JC Port to NT
|
|
/* 09/08/92 8125 PVW Program created from code by GMH
|
|
/*
|
|
/*******************************************************************************
|
|
@ID D Default record ID for RetrieVe
|
|
0
|
|
|
|
ID
|
|
20L
|
|
S
|
|
FILENAME D
|
|
1
|
|
|
|
File Name
|
|
20L
|
|
S
|
|
FILENAME.SHORT D
|
|
1
|
|
|
|
File Name
|
|
12L
|
|
S
|
|
FILENAME.LONG D
|
|
1
|
|
|
|
File Name
|
|
30L
|
|
S
|
|
FILEPATH D
|
|
2
|
|
|
|
Unix Path
|
|
15L
|
|
S
|
|
FILETYPE D
|
|
3
|
|
|
|
Type
|
|
4R
|
|
S
|
|
FILEMOD D
|
|
4
|
|
|
|
Mod
|
|
4R
|
|
S
|
|
FILESEP D
|
|
5
|
|
|
|
Sep
|
|
3R
|
|
S
|
|
FILESIZE D
|
|
6
|
|
|
|
File}Size
|
|
9R
|
|
S
|
|
FILEINODE D
|
|
7
|
|
|
|
Inode
|
|
5R
|
|
S
|
|
FILEDEV D
|
|
8
|
|
|
|
Dev
|
|
2R
|
|
S
|
|
RECORDS D
|
|
9
|
|
|
|
Record}Count
|
|
7R
|
|
S
|
|
DATABYTES D
|
|
10
|
|
|
|
Data}Bytes
|
|
9R
|
|
S
|
|
AVG.REC.GRP D
|
|
11
|
|
|
|
Avg }Recs/}Group
|
|
5R
|
|
S
|
|
AVG.BYTE.GRP D
|
|
12
|
|
|
|
Avg }Bytes/}Group
|
|
10R
|
|
S
|
|
MIN.REC.GRP D
|
|
13
|
|
|
|
Min }Recs/}Group
|
|
5R
|
|
S
|
|
MAX.REC.GRP D
|
|
14
|
|
|
|
Max }Recs/}Group
|
|
5R
|
|
S
|
|
AVG.BYTE.REC D
|
|
15
|
|
|
|
Avg }Bytes/}Record
|
|
10R
|
|
S
|
|
MIN.BYTE.REC D
|
|
16
|
|
|
|
Min }Bytes/}Record
|
|
5R
|
|
S
|
|
MAX.BYTE.REC D
|
|
17
|
|
|
|
Max }Bytes/}Record
|
|
5R
|
|
S
|
|
DYNAMIC.DATA.SIZE D
|
|
18
|
|
|
|
Dynamic}Data Size
|
|
7R
|
|
S
|
|
DYNAMIC.ID.SIZE D
|
|
19
|
|
|
|
Dynamic}Id Size
|
|
7R
|
|
S
|
|
DYNAMIC.UNUSED.SPACE D
|
|
20
|
|
|
|
Dynamic}Unused}Space
|
|
7R
|
|
S
|
|
GRP25 D
|
|
21
|
|
|
|
} } 25%
|
|
5R
|
|
S
|
|
GRP50 D
|
|
22
|
|
|
|
} } 50%
|
|
5R
|
|
S
|
|
GRP75 D
|
|
23
|
|
|
|
} } 75%
|
|
5R
|
|
S
|
|
GRP100 D
|
|
24
|
|
|
|
} } 100%
|
|
5R
|
|
S
|
|
GRP125 D
|
|
25
|
|
|
|
} } 125%
|
|
5R
|
|
S
|
|
GRP150 D
|
|
26
|
|
|
|
} }150%
|
|
4R
|
|
S
|
|
GRP175 D
|
|
27
|
|
|
|
} }175%
|
|
4R
|
|
S
|
|
GRP200 D
|
|
28
|
|
|
|
} }200%
|
|
4R
|
|
S
|
|
RUNDATE I
|
|
FIELD(@ID,"*",1,1)
|
|
D2/
|
|
Date}Run
|
|
8R
|
|
S
|
|
|
|
RUNTIME I
|
|
FIELD(@ID,"*",2,1)
|
|
MTS
|
|
Time}Run
|
|
8R
|
|
S
|
|
|
|
FIRST.LINE I
|
|
COUNT(CONVERT('\','/',@RECORD<2>),'/') ; FIELD(CONVERT('\','/',@RECORD<2>),'/',1,@1) ; IF MATCHFIELD(@2,"0X'I_'0X",1) = "" THEN @2 ELSE FIELD(CONVERT('\','/',@RECORD<2>),'/',1,(@1-1)) ; @3:" ":RUNDATETIME
|
|
|
|
|
|
L80
|
|
S
|
|
|
|
UNIXNAME I
|
|
DCOUNT(CONVERT('\','/',@RECORD<2>),'/') ; FIELD(CONVERT('\','/',@RECORD<2>),"/",@1,1)
|
|
|
|
Unix File Name
|
|
10L
|
|
S
|
|
|
|
FILESIZE.EXT I
|
|
FILESIZE ; IF @1 > 0 THEN @1 ELSE (DATABYTES)
|
|
|
|
File}Size (ext)
|
|
9R
|
|
S
|
|
|
|
INODE.DEV I
|
|
FILEINODE:".":FILEDEV
|
|
|
|
Inode&}Device
|
|
10R
|
|
S
|
|
|
|
RUNDATETIME I
|
|
"gathered on ":OCONV(FIELD(@ID,"*",1,1),"D"):" at ":OCONV(FIELD(@ID,"*",2,1),"MTS:"):"."
|
|
|
|
\
|
|
100L
|
|
S
|
|
|
|
ACCOUNTNAME I
|
|
COUNT(CONVERT('\','/',@RECORD<2>),'/') ; FIELD(CONVERT('\','/',@RECORD<2>),'/',1,@1) ; IF MATCHFIELD(@2,"0X'I_'0X",1) = "" THEN @2 ELSE FIELD(CONVERT('\','/',@RECORD<2>),'/',1,(@1-1))
|
|
|
|
Account Path
|
|
15L
|
|
S
|
|
|
|
@I132 PH
|
|
BY ACCOUNTNAME BY @ID BREAK.SUP "'B'" FIRST.LINE FILENAME.LONG FILETYPE FILEMOD FILESEP TOTAL RECORDS TOTAL FILESIZE.EXT TOTAL DATABYTES MIN.BYTE.REC MAX.BYTE.REC GRP25 GRP50 GRP75 GRP100 GRP125 GRP150 GRP175 GRP200 ID-SUPP COL.SPACES 1 GRAND.TOTAL "'V'Totals" HEADING " * * * F I L E S T A T S R E P O R T * * * Page 'PLLBL'"
|
|
@P132 PH
|
|
BY ACCOUNTNAME BY @ID BREAK.SUP FIRST.LINE "'B'" FILENAME.LONG FILETYPE FILEMOD FILESEP TOTAL RECORDS TOTAL FILESIZE.EXT TOTAL DATABYTES MIN.BYTE.REC MAX.BYTE.REC GRP25 GRP50 GRP75 GRP100 GRP125 GRP150 GRP175 GRP200 ID-SUPP COL.SPACES 1 GRAND.TOTAL "Totals" HEADING " * * * F I L E S T A T S R E P O R T * * * Page 'PLLBL'"
|
|
GRP100+ I
|
|
GRP100 + GRP125 + GRP150 + GRP175 + GRP200 ; IF @1 > 0 THEN @1 ELSE ""
|
|
|
|
} } >100%
|
|
6R
|
|
S
|
|
|
|
@I80 PH
|
|
BY ACCOUNTNAME BY @ID BREAK.SUP "'B'" FIRST.LINE FILENAME FILETYPE FILEMOD FILESEP TOTAL RECORDS TOTAL FILESIZE.EXT GRP25 GRP50 GRP75 GRP100+ ID-SUPP COL.SPACES 1 GRAND.TOTAL "'V'Totals" HEADING " * * * F I L E S T A T S R E C O R D * * * Page 'PLLBL'"
|
|
@P80 PH
|
|
BY ACCOUNTNAME BY @ID BREAK.SUP FIRST.LINE "'B'" FILENAME FILETYPE FILEMOD FILESEP TOTAL RECORDS TOTAL FILESIZE.EXT GRP25 GRP50 GRP75 GRP100+ ID-SUPP COL.SPACES 1 GRAND.TOTAL "Totals" HEADING " * * * F I L E S T A T S R E C O R D * * * Page 'PLLBL'"
|