home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
prgramer
/
rexx
/
rdebug
/
tell.kex
< prev
next >
Wrap
Text File
|
1993-03-25
|
1KB
|
36 lines
/* TELL.KEX 10-21-91 17:45 */
Parse source sys .
if sys='OS/2' then sys='OS2'
else if sys='PCDOS' then sys='DOS'
if (sys='DOS') + (sys='OS2')>0 then pc?=1
me='tell'
If arg(1)=? Then Exit tell(me)
trace o?r /*T*/
Parse Arg t
Parse Var t t , tformat , sample , message
If tformat<>'' Then Exit tellold(t, tformat, sample, message)
If (stype='REX')+(stype='CMD')+(stype='EXEC')>0
Then type='E'; Else type='M'
If type='M' Then noscreen=''
If type='M'
Then class='MACRO'
else class='PROC'
if type='E'
then say 'Tell help not available yet'
else 'EMSG Tell help not available yet'
exit 0
/*
if sys='DOS' then if dosenv('USERID')='Gil' then /*T*/
file = "c:\doc\G"class".DOC"; else do /*T*/
*/
If pc? Then file = "\rdebug\R"class".DOC"
Else file = "R"class "DOC"
/*
end /*T*/
*/
Push 'MACRO TELLSRCH' t type
'X' file '(NOPROFILE' noscreen
Exit 999
Push 'X' file '(NOPROFILE' noscreen
exit 0