home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / CDSG.ZIP / CDLIST.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-20  |  748b  |  27 lines
  1. /* REXX */
  2. /* Adapted from CDList.PAS */
  3.  
  4. say "Change Directory Set/Go - by GLen"
  5. say "CDList - Lists keys and directories currently saved."
  6. CDSGdir = value('CDSG',,'os2environment')
  7. if CDSGdir = "" then call error 'Environment string CDSG is not set.'
  8. '@rxqueue /clear'
  9. '@dir' CDSGdir '/b | rxqueue /fifo'
  10. say "Stored Key         Path refered to by Key"
  11. say "-----------------  --------------------------------------------"
  12. do queued()
  13.    parse upper pull keyName
  14.    StoredPath = linein(cdsgdir'\'keyName)
  15.    if StoredPath='' then call error 'Problem with CDSG system - file empty...'
  16.    say left(keyName,18) StoredPath
  17.    end
  18. exit
  19. /* end */
  20.  
  21. error:
  22. parse arg s
  23. say "Error:" s
  24. say "Type CDS for instructions."
  25. say
  26. exit 1
  27.