home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / comm / ems-1.0.lha / EMS / Rexx / ListDBnames.ems < prev    next >
Text File  |  1993-04-03  |  693b  |  47 lines
  1. /* ListDBnames.ems */
  2.  
  3. options results
  4. signal on error
  5. signal on syntax
  6.  
  7. if( ~show( 'l', "ems_rexx.library" ) ) then
  8. do
  9.    if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
  10.    do
  11.       say "Could not open ems_rexx.library"
  12.       exit 10
  13.    end
  14. end
  15.  
  16. call EMS_Database_Names( 'msg', 'file' )
  17.  
  18. say 'Currently installed DataBases for Messages:'
  19. do i=1 to msg.0
  20.    say ' ' msg.i
  21. end
  22.  
  23. say
  24.  
  25. say 'Currently installed DataBases for Files:'
  26. do i=1 to file.0
  27.    say ' ' file.i
  28. end
  29.  
  30. say
  31.  
  32.  
  33. call EMS_FreeScriptData()
  34. exit 0
  35.  
  36. error:
  37. syntax:
  38.  
  39. error_text = EMS_LastError()
  40.  
  41. if error_text = '' then error_text = rc ErrorText( rc )
  42.  
  43. say '| ***BREAK: error at' sigl error_text
  44.  
  45. call EMS_FreeScriptData()
  46. exit rc
  47.