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