home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / smart / macros / chgdb.rex next >
Encoding:
OS/2 REXX Batch file  |  1992-11-09  |  609 b   |  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