home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / INTERWORD1.DMS / in.adf / Rexx / Status.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-03-31  |  1.2 KB  |  55 lines
  1. /*
  2.  *
  3.  * Script name:     Status.rexx
  4.  * Author:          Franz Hemmer
  5.  * Purpose:         Demonstrate how to get status information from InterWord.
  6.  * Related Program: InterWord Pro
  7.  * Written:         01.03.93
  8.  *
  9.  */
  10.  
  11. /*--------------------*/
  12. /* Get result in 'rc' */
  13. /*--------------------*/
  14. OPTIONS RESULTS
  15. PARSE ARG type
  16.  
  17. /*-------------------------*/
  18. /* Address INTERWORD port. */
  19. /*-------------------------*/
  20. ADDRESS INTERWORD1
  21.  
  22. /*---------------------------*/
  23. /* Check for type parameter. */
  24. /*---------------------------*/
  25. IF type = "" THEN
  26.     DO
  27.         STATUS
  28.         PARSE VAR RESULT file drawer line linenum page x y lastlinenum select pagelen startpage saved
  29.         SAY 'InterWord status:'
  30.         SAY 'File           = ' file
  31.         SAY 'Drawer         = ' drawer
  32.         SAY 'Line           = ' line
  33.         SAY 'Line number    = ' linenum
  34.         SAY 'Page           = ' page
  35.         SAY 'Cursor at x, y = ' x ',' y
  36.         SAY 'Last line num. = ' lastlinenum
  37.         SAY 'Block selected?= ' select
  38.         SAY 'Page length    = ' pagelen
  39.         SAY 'Start page     = ' startpage
  40.         SAY 'Document saved?= ' saved
  41.     END
  42. ELSE
  43.     DO
  44.         STATUS type
  45.         IF RC > 0 THEN
  46.             DO
  47.                 SAY INTERWORD.LASTERROR
  48.             END
  49.         ELSE
  50.             DO
  51.                 SAY 'Status type 'type' returned 'RESULT
  52.             END
  53.     END
  54.  
  55.