home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / GETERR.SCR < prev    next >
Text File  |  1992-02-12  |  891b  |  30 lines

  1. > windowshow()
  2. > watch(on)
  3. > delete('\opennew.00?')
  4. > delete('\openold.00?')
  5. > copy('\config.sys','\openold.000',replace)
  6. > nr1 = opennew('\opennew.000',nh1)
  7. > or1 = openold('\openold.000',oh1)
  8. > cr1 = close(nh1)
  9. > cr2 = close(oh1)
  10. > cr3 = close(123)
  11. > message ('test1, result = ' + valtostr(cr1))
  12. > message ('test2, result = ' + valtostr(cr2))
  13. > message ('test3, result = ' + valtostr(cr3))
  14. > if (cr3 != 0)
  15. > message ('text for error [' + valtostr(cr3) + '] = ' + GETERRORTEXT(CR3))
  16. > endif
  17. > message('Current path = [' + PATH + ']')
  18. > message('Current date = [' + DATE + ']')
  19. > message('Current time = [' + TIME + ']')
  20. > message('Escape character = [' + ESCAPE + ']')
  21. > ESCAPE = '|'
  22. > message('Escape character = [' + ESCAPE + ']')
  23. > message('Press any key to terminate script')
  24. > timeout = 0
  25. > wait()
  26. > delete('\opennew.00?')
  27. > delete('\openold.00?')
  28. > end
  29.  
  30.