home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / stmon013.zip / Sample2.CMD < prev    next >
OS/2 REXX Batch file  |  1999-01-05  |  598b  |  24 lines
  1. /* Sample2 */
  2. /* Initialize RexxUtil */
  3. rc=RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs')
  4. Call SysLoadFuncs
  5. /* Initialize StHealth */
  6. rc=RxFuncAdd('StHealthLoadFuncs','StHealth','StHealthLoadFuncs')
  7. Call StHealthLoadFuncs
  8.  
  9. /* Query correction value for Temp2 */
  10. VCC1=StHealthCorrection(TEMP2)
  11. Say VCC1
  12.  
  13. /* Set new correction value to +10 */
  14. rc=StHealthCorrection(TEMP2,10)
  15. Say rc
  16.  
  17. /* Reset to old value */
  18. rc=StHealthCorrection(TEMP2,VCC1)
  19. Say rc
  20.  
  21. /* Now the same logic with only two function calls */
  22. VCC1=StHealthCorrection(TEMP2,10)
  23. rc=StHealthCorrection(TEMP2,VCC1)
  24.