IBM OS/2 LAN Server REXX Utility DLL


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


NETDASD Get Info (LS40)


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