home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / demos / commercial / rexxvar_demo.lzh / RexxVar_Demo / Programs / s / rexxvar_shutdown
Encoding:
Text File  |  1994-02-12  |  895 b   |  49 lines
  1. /* Shutdown script for REXXVAR */
  2.  
  3. /* Is REXXVAR operational? */
  4.  
  5. If 'SHOW'('PORTS', 'REXXVAR') = 0
  6.   then Exit 0
  7.  
  8. filename = "RAM:rv_status_info"
  9. Address COMMAND 'status >'filename
  10. If rc ~= 0
  11.   then do
  12.     Say 'Unable to shutdown RexxVar.'
  13.     Exit 10
  14.   end
  15.  
  16. If 'OPEN'(1, filename, 'R') = 0
  17.   then do
  18.     Say 'Unable to shutdown RexxVar.'
  19.     Exit 10
  20.   end
  21.  
  22. done = 0
  23. Do Forever
  24.   Parse value 'READLN'(1) with . cli_process ':' . 'command:' name
  25.   If 'EOF'(1)
  26.     then Leave
  27.  
  28.   name = 'UPPER'('STRIP'(name,'B',' '))
  29.  
  30.   If 'INDEX'(name, 'REXXVAR_SERVER') > 0
  31.     then do
  32.       Address COMMAND 'break' cli_process 'C'
  33.       Address COMMAND 'Assign AREXXVAR: dismount'  /* For whatever it's worth */
  34.       done = 1
  35.       Leave
  36.     end
  37. End
  38.   
  39. x = 'CLOSE'(1)
  40. Address COMMAND 'DELETE >NIL:' filename 'QUIET FORCE'
  41.  
  42. If done = 0
  43.   then do
  44.     Say 'Unable to shutdown RexxVar.'
  45.     Exit 10
  46.   end
  47.  
  48. Exit 0
  49.