home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / upsmon12.zip / upsminst.exe / upsstat.cmd < prev    next >
OS/2 REXX Batch file  |  2002-01-24  |  454b  |  22 lines
  1. /* UPSSTAT.CMD for UPS Monitor v1.2c */
  2.  
  3. /* Load RXU.DLL */
  4. call rxfuncadd 'rxuinit','rxu','rxuinit'
  5. call rxuinit
  6.  
  7. /* Get named shared memory */
  8. getrc = RxGetNamedSharedMem('pointer', '\SHAREMEM\UPSMON\UPSSTATUS.MEM', 'r')
  9.  
  10. UPSText = 'UPSMon n/a'
  11. IF getrc = 0 THEN
  12.   DO
  13.     UPSText = RxStorage( pointer, 75)
  14.     UPSText =  STRIP(LEFT(UPSText, 25))
  15.   END
  16.  
  17. SAY UPSText
  18.  
  19. /* free Named Shared Memory */
  20. freerc = RxFreeMem(pointer)
  21.  
  22. EXIT