home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rdebug / rddemo.cmd < prev    next >
Encoding:
Text File  |  1993-03-25  |  791 b   |  36 lines
  1. /*H* RDDEMO.REX 02-10-93 11:47*/
  2.  trace o?r
  3.  Parse Source sys .
  4.  if sys='OS/2'  then sys='OS2'
  5.  if sys='PCDOS' then sys='DOS'
  6.  If arg(1)='?' Then Exit tell(me)
  7.  arg source
  8.  prgm = 'DEMO'
  9.  parms = 'DEMO'
  10.  if sys='OS2' then rexx=''
  11.  if sys='DOS' then do
  12.    rexx='REXX'
  13.    object=rexx 'RDEBUG' prgm parms
  14.    select
  15.      when source=1 then Queue '     ' object
  16.      when source=2 then nop
  17.      otherwise Exit tell(me)
  18.    end
  19.  end
  20.  select
  21.    when sys='DOS' then do
  22.      'CD \RDEBUG'
  23.      'COPY \RDEBUG\RDDEMO.INC   SESSION.LOG >nul'
  24.    end
  25.    when sys='OS2' then do
  26.      'CD \RDEBUG'
  27.      'COPY \RDEBUG\RDDEMO.INC   SESSION.LOG >nul'
  28.      call 'rDEBUG' prgm parms
  29.      exit
  30.    end
  31.    otherwise do
  32.      'COPY RDDEMO INC a SESSION LOG a'
  33.    end
  34.  end
  35.  Exit object
  36.