home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / smart21b.zip / MACROS / CHGDB.REX next >
OS/2 REXX Batch file  |  1992-11-10  |  609b  |  19 lines
  1. /*                         Change Link Database                                */
  2. /* Rexx Macro to Change the Current Link Database                     */
  3. /* Displays a listbox with Databases used often                     */
  4. /* allows the user to update the listbox entries                    */
  5. /* arg is the filename containing the list of DB directories     */
  6. if ARG(1,'E') 
  7. then
  8.     ListFilename = ARG(1)
  9. else
  10.     S_PROMPT 'Enter Listbox Filename,' ListFilename
  11. if ListFilename = CANCEL 
  12.     then exit      
  13. S_LISTBOX ListFilename', Change Link DB,' SelectedEntry
  14. SAY SelectedEntry
  15. if SelectedEntry = CANCEL 
  16.     then exit
  17. if SelectedEntry = NOSEL
  18.     then exit    
  19. S_SET_DB_PATH SelectedEntry