home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rdebug / rdxwrap.kex < prev    next >
Text File  |  1993-03-25  |  1KB  |  34 lines
  1. /*H* RDXWRAP.KEX 02-10-93 12:04*/
  2.  Parse Value 'COMMAND SET!COMMAND EXT' With dbcs'!'dbce
  3.  Parse Value 'COMMAND!COMMAND SOS!COMMAND X' With dbc'!'dbso '!'dbxx
  4.  parse arg origin dbmacro? dbprgmmacro dbdprgm'!'dbparms'!'dbdfile'!',
  5.  dbsource'!'dbinvoke'!'dbrun'!'dbsession'!'dbprgm
  6.  dbce '/OPSYS'
  7.  trace  o?r  /*T*/
  8.  dbme='rdxWRAP'
  9.  dbsys=opsys.1
  10.  if dbsys='OS/2' then dbsys='OS2'        /*O*/
  11.  address KEDIT
  12.  if origin='' Then Return tell(dbme)
  13.  If origin='?'  Then Return tell(dbme)
  14.  trace  o?r  /*T*/
  15.  if origin='/FINIS' then signal db8finis
  16.  DB8WRAP_UP:
  17.  
  18.  dbxx dbdfile '(PROF RDPROFIL'
  19.  DB8FINIS:
  20.  dbxx dbrun       '(NOPROF'; dbc 'QQUIT'
  21.  dbxx dbsource    '(NOPROF'; dbc 'QQUIT'
  22.  dbxx dbprgmmacro '(NOPROF'; dbc 'QQUIT'
  23.  dbxx dbsession   '(NOPROF'; dbc 'QQUIT'
  24.  dbxx dbinvoke    '(NOPROF'
  25.  If dbmacro?=0 Then dbc 'QQUIT'
  26.  dbce '/NBF'
  27.  If dbsys='OS2' then do                                                /*O*/
  28.    dbxx dbdfile   '(NOPROF'; dbc 'QQUIT'                               /*O*/
  29.    'QQUIT'                                                             /*O*/
  30.    if nbfile.1>2 then dbc 'MSG' rdbmsg(190 nbfile.1 'remaining files') /*O*/
  31.  
  32.  end                                                                   /*O*/
  33.  return 0
  34.