0.9b (c) 1995 Peter Childs
The function retrieves directory limits information for a particular directory resource. Before this function can be used successfully, directory limits must be enabled on the 386-HPFS drive. (See the NetMisc(NETDASDCONTROL) function)
Syntax
MyRc = NetGetInfo(NETDASD, 'DASDInfo', SrvName)
Parameters
The parameters required and returned are:
'DASDInfo' The directory limits information variable, which is divided into:
o DASDInfo.DirPath
A string containing the directory path. The string must be directory path, beginning with the drive letter, and only ending with a backslash when a root directory is specified.
If a redirected drive is specified for DASDInfo.DirPath, the SrvName parameter must be ''
o DASDInfo.resource_name
The name of the directory having a directory limit.
o DASDInfo.max
The amount of disk space allotted to this directory by directory limits. Specified in KB, this field can be set from 1 to 67108863.
o DASDInfo.use
The amount (in KB) of disk space already occupied within the specified directory resource
o DASDInfo.thresh
The initial alert threshold as a percentage of the total directory limit space allotted, with values ranging from 0 to 99. Zero specifies that no threshold alert is to be generated, and 99 specifies that an alert is generated when 99% of the allotted directory limit for this directory has been reached.
o DASDInfo.delta
The increment in which alerts are to be generated after the DASDInfo.thresh threshold has been crossed, but before all of the allotted disk space has been used.
SrvName The computer name of the server to enumerate the directory limits on
Note
The server computer name can be specified as '' for a local server.
Example
/* DASD directory limit get information */ call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs' call LoadLsRxutFuncs NETDASD = 750 DASDInfo.DirPath = 'D:\APPS\DATA' SrvName = '\\DOMAIN_CONTRLR' myRc = NetGetInfo(NETDASD, 'DASDInfo', SrvName) if myRc <> '0' then do say 'Got error from NetGetInfo() ' myRc exitRc = 9 end else do say 'Directory path ' DASDInfo.resource_name say 'Directory limit ' DASDInfo.max say 'Current Usage ' DASDInfo.use say 'Threshold ' DASDInfo.thresh say 'Delta ' DASDInfo.delta exitRc = 0 end call DropLsRxutFuncs call RxFuncDrop 'LoadLsRxutFuncs' exit exitRc
Example Output
Directory path D:\APPS\DATA Directory limit 512 Current Usage 102 Threshold 90 Delta 5
Inf-HTML End Run - Successful