home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rdebug21.zip
/
RDBIO.OS
< prev
next >
Wrap
Text File
|
1993-03-23
|
1KB
|
38 lines
/*! Interface routines */
DBPULL: parse arg dbcode dbtemplate
/*!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
/*! simulate REXX pull commands directly */
/*!________________________________________________________*/
address value dbenvir
trace o?r /*T*/
dbso 'TABCMDB'
dbcurfile=db8thisfile()
call db1entry sigl
dbxx dbpath''dbuser '(PROF RDPROFIL'
dbc 'EMSG' rdbmsg(014) /*!See bottom of this screen for prompt*/
dbc 'READV CMDLINE'
dbc 'INP' readv.2
if (dbcode='p')+(dbcode='pu')>0 then dbcase='Upper'; else dbcase=''
/*!1 call db8shield 'interpret parse dbcase value readv.1 with dbtemplate' */
interpret 'parse' dbcase 'value' readv.1 'with' dbtemplate /*!1*/
call db1exit
dbxx dbcurfile '(PROF RDPROFIL'
dbso 'TABCMDF'
return 0; dbSAY:
/*!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
/*! Used instead of REXX say command. Writes to a file */
/*!________________________________________________________*/
trace o?r /*T*/
parse arg dbsay
address value dbenvir
call db1entry dbg
dbcurfile=db8thisfile()
dbxx dbpath''dbuser '(PROF RDPROFIL'
dbc 'INP' dbsay
dbc 'MSG' dbsay
dbxx dbcurfile '(PROF RDPROFIL'
call db1exit
drop dbsay
return 0