home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #5 / AmigaPlus_Extra-CD_5-97.iso / online-tools / mail / ems / rexx / export.ems < prev    next >
Text File  |  1993-03-07  |  609b  |  37 lines
  1. /* Export.ems */
  2.  
  3. options results
  4. signal on error
  5. signal on syntax
  6.  
  7. parse arg areas
  8.  
  9. if( ~show( 'l', "ems_rexx.library" ) ) then
  10. do
  11.    if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
  12.    do
  13.       say "Could not open ems_rexx.library"
  14.       exit 10
  15.    end
  16. end
  17.  
  18. areas = strip( areas, 'B' )
  19.  
  20. if areas = '' then call EMS_Tosser_Export(       )
  21. else               call EMS_Tosser_Export( areas )
  22.  
  23. call EMS_FreeScriptData()
  24. exit 0
  25.  
  26. error:
  27. syntax:
  28.  
  29. error_text = EMS_LastError()
  30.  
  31. if error_text = '' then error_text = rc ErrorText( rc )
  32.  
  33. say '| ***BREAK: error at' sigl error_text
  34.  
  35. call EMS_FreeScriptData()
  36. exit rc
  37.