home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rdebug / rdbio.os < prev    next >
Encoding:
Text File  |  1993-03-23  |  1.3 KB  |  38 lines
  1.  /*! Interface routines */
  2.  DBPULL:    parse arg dbcode dbtemplate
  3.  /*!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
  4.  /*!      simulate REXX pull commands directly              */
  5.  /*!________________________________________________________*/
  6.  address value dbenvir
  7.  trace o?r         /*T*/
  8.  dbso 'TABCMDB'
  9.  dbcurfile=db8thisfile()
  10.  call db1entry sigl
  11.  dbxx dbpath''dbuser '(PROF RDPROFIL'
  12.  dbc 'EMSG' rdbmsg(014) /*!See bottom of this screen for prompt*/
  13.  dbc 'READV CMDLINE'
  14.  dbc 'INP' readv.2
  15.  if (dbcode='p')+(dbcode='pu')>0 then dbcase='Upper'; else dbcase=''
  16.  /*!1 call db8shield 'interpret parse dbcase value readv.1 with dbtemplate' */
  17.  interpret 'parse' dbcase 'value' readv.1 'with' dbtemplate /*!1*/
  18.  call db1exit
  19.  dbxx dbcurfile '(PROF RDPROFIL'
  20.  dbso 'TABCMDF'
  21.  
  22.  return 0;   dbSAY:
  23.  /*!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
  24.  /*!     Used instead of REXX say command. Writes to a file */
  25.  /*!________________________________________________________*/
  26.  trace o?r         /*T*/
  27.  parse arg dbsay
  28.  address value dbenvir
  29.  call db1entry dbg
  30.  dbcurfile=db8thisfile()
  31.  dbxx dbpath''dbuser '(PROF RDPROFIL'
  32.  dbc 'INP' dbsay
  33.  dbc 'MSG' dbsay
  34.  dbxx dbcurfile '(PROF RDPROFIL'
  35.  call db1exit
  36.  drop dbsay
  37.  return 0
  38.