home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / util / batch / requestlist11.lha / RxMe.rexx < prev   
OS/2 REXX Batch file  |  1995-11-16  |  1KB  |  57 lines
  1. /* AREXX script example for RequestList */
  2.  
  3. Start:
  4.  
  5.     portlist = Show("Ports",,";")
  6.     portlist = portlist";"
  7.  
  8.     pos = 1
  9.     lines = 0
  10.  
  11.     success = open(tempfile,"T:RequestListTemp","W")
  12.     if success = 0
  13.         then do
  14.             say "Unable to open temporary file!"
  15.             exit
  16.         end
  17.  
  18. Loop:
  19.     seperator = Index(portlist,";",pos)
  20.     if seperator ~= 0
  21.         then do
  22.             call writeln(tempfile,substr(portlist,pos,seperator-pos))
  23.             lines = lines + 1
  24.             pos = seperator+1
  25.             signal Loop
  26.         end
  27.  
  28.     call close(tempfile)
  29.  
  30.  
  31.     address command 'RequestList >T:RequestListResults "Select a port..." T:RequestListTemp FULL LINES='lines
  32.  
  33.  
  34.     success = open(resultfile,"T:RequestListResults","R")
  35.     if success = 0
  36.         then do
  37.             say "Unable to open results file!"
  38.             exit
  39.         end
  40.  
  41.     results = readln(resultfile)
  42.     call close(resultfile)
  43.  
  44.     if results = ""
  45.         then do
  46.             say "The window was closed."
  47.         end
  48.         else do
  49.             say "The port selected was '"results"'."
  50.         end
  51.  
  52.     address command 'delete T:RequestListTemp QUIET'
  53.     address command 'delete T:RequestListResults QUIET'
  54.  
  55.     exit
  56.  
  57.