tldm-universe/Ardent/UV/src.u/d_filestat.u

/******************************************************************************
/*
/*	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'"