IBM OS/2 LAN Server REXX Utility DLL


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


Monitor Number Shares


This function monitors the number of shares on a server. The administrator 
who wrote this procedure wanted to know if the MAXSHARES parameter was 
configured correctly. 
NUMSHARE Procedure   


/* Display number shares on a server */
call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
call SysLoadFuncs
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETSHARE = 190
SrvName = '\\FSCDC'
'@CLS'

signal on error name error
signal on halt name error
signal on syntax name error
call SysCurState OFF

do forever
 myRc = NetEnumerate(NETSHARE, 'shareInfo', SrvName)

 if myRc <> '0' then do
  say 'Got error from NetEnumerate() ' myRc
  call SysCurState ON
  call DropLsRxutFuncs
  call SysDropFuncs
  exit 9
 end

 if shareInfo.1 = '-none-' then do
  say shareInfo.1
  call SysCurState ON
  call DropLsRxutFuncs
  call SysDropFuncs
  exit 0
 end

 pos = SysCurPos(0,0)
 say 'Time:' TIME('N') 'Num shares: ' shareInfo.0
 call SysSleep 60

end

error:
call SysCurState ON
call DropLsRxutFuncs
call SysDropFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0



Inf-HTML End Run - Successful