home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
prgramer
/
rexx
/
rdebug
/
rddemo.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-03-25
|
791b
|
36 lines
/*H* RDDEMO.REX 02-10-93 11:47*/
trace o?r
Parse Source sys .
if sys='OS/2' then sys='OS2'
if sys='PCDOS' then sys='DOS'
If arg(1)='?' Then Exit tell(me)
arg source
prgm = 'DEMO'
parms = 'DEMO'
if sys='OS2' then rexx=''
if sys='DOS' then do
rexx='REXX'
object=rexx 'RDEBUG' prgm parms
select
when source=1 then Queue ' ' object
when source=2 then nop
otherwise Exit tell(me)
end
end
select
when sys='DOS' then do
'CD \RDEBUG'
'COPY \RDEBUG\RDDEMO.INC SESSION.LOG >nul'
end
when sys='OS2' then do
'CD \RDEBUG'
'COPY \RDEBUG\RDDEMO.INC SESSION.LOG >nul'
call 'rDEBUG' prgm parms
exit
end
otherwise do
'COPY RDDEMO INC a SESSION LOG a'
end
end
Exit object