home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / cmdpk164.zip / pushd.cmd < prev    next >
OS/2 REXX Batch file  |  1997-11-28  |  365b  |  16 lines
  1. /* pushd.cmd */
  2.  
  3. envvar = 'DIRSTACK.'translate(DosGetInfoBlocks(), '.', ' ')
  4. qname = value(envvar,,'OS2ENVIRONMENT')
  5.  
  6. if qname = '' then do
  7.    qname = RxQueue('Create', envvar)
  8.    call value envvar, qname, 'OS2ENVIRONMENT'
  9.    end
  10.  
  11. oldq = RxQueue('Set', qname)
  12. queue directory()
  13. if arg(1) \= '' then
  14.    call directory arg(1)
  15. call RxQueue 'Set', oldq
  16.