home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / CloseAll.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-08  |  1KB  |  64 lines
  1. /*
  2.  
  3.    v1.05 Close All
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. checkbit=0
  17.  
  18. GET ALPHA
  19. apic=result
  20. GET PRIMARY
  21. ppic=result
  22. if apic=ppic then checkbit=1
  23.  
  24.  
  25. PROJECT_LIST
  26. list=result
  27.  
  28. if list="" then exit
  29.  
  30. kpl=words(list)
  31.  
  32. do i=1 to kpl
  33.  
  34.   pic=subword(list,i,1)
  35.   if pic=apic then do
  36.     if checkbit~="1" then CLOSE pic
  37.   end
  38.   else do
  39.     CLOSE pic
  40.   end
  41.  
  42. end
  43.  
  44.  
  45. exit
  46.  
  47. /*******************************************************************/
  48. /* This is where control goes when an error code is returned by IE */
  49. /* It puts up a message saying what happened and on which line     */
  50. /*******************************************************************/
  51. error:
  52. if RC=5 then do            /* Did the user just cancel us? */
  53.     IE_TO_FRONT
  54.     LAST_ERROR
  55.     'REQUEST "'||RESULT||'"'
  56.     exit
  57. end
  58. else do
  59.     IE_TO_FRONT
  60.     LAST_ERROR
  61.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  62.     exit
  63. end
  64.