home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
ems
/
rexx
/
listdbnames.ems
< prev
next >
Wrap
Text File
|
1993-04-03
|
693b
|
47 lines
/* ListDBnames.ems */
options results
signal on error
signal on syntax
if( ~show( 'l', "ems_rexx.library" ) ) then
do
if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
do
say "Could not open ems_rexx.library"
exit 10
end
end
call EMS_Database_Names( 'msg', 'file' )
say 'Currently installed DataBases for Messages:'
do i=1 to msg.0
say ' ' msg.i
end
say
say 'Currently installed DataBases for Files:'
do i=1 to file.0
say ' ' file.i
end
say
call EMS_FreeScriptData()
exit 0
error:
syntax:
error_text = EMS_LastError()
if error_text = '' then error_text = rc ErrorText( rc )
say '| ***BREAK: error at' sigl error_text
call EMS_FreeScriptData()
exit rc