home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / TView / Rexx / example.rexx next >
OS/2 REXX Batch file  |  1999-10-10  |  620b  |  31 lines
  1. /********************************************************************
  2.  * Example of an arexx script to be used with TView.
  3.  * Will go thru the list and print it out in a shell.
  4.  * Just type "rx example.rexx" in a shell.
  5.  ********************************************************************/
  6. options results
  7.  
  8.  
  9. address tview.1
  10.  
  11. "GetNumberItems"
  12. items=RESULT
  13. echo "Number of entries:" items
  14.  
  15. do i=0 to items-1
  16.    "SetActive "i
  17.    "GetShowView"
  18.    sw=RESULT
  19.    "GetProgram"
  20.    prog=RESULT
  21.    "GetTime"
  22.    time=RESULT
  23.    "GetInfo"
  24.    info=RESULT
  25.    "GetChannel"
  26.    chan=RESULT
  27.  
  28.    echo chan time prog sw
  29.    /*echo info*/
  30. end
  31.