home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
netdor2.zip
/
DISK_10
/
IMAGE9.ZIP
/
TRACEON.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-06-30
|
2KB
|
52 lines
/****************************************************************************
* COU Administrator Trace Tool *
****************************************************************************
* Licensed Materials-Property of IBM *
* 5604-472 (c) Copyright IBM Corporation, 1993 *
* All rights reserved. *
* US Government Users Restricted Rights - *
* Use, duplication or disclosure restricted *
* by GSA ADP Schedule Contract with IBM Corp. *
****************************************************************************
* Version 1.0 - 8 Jun 93 *
****************************************************************************/
trace 'O'
parse upper arg TraMode ., SysList
if TraMode = '?'
then signal Tell
if TraMode = ''
then TraMode = '?I'
if SysList = ''
then TraceMe = (value('COU.TRACE',,'OS2ENVIRONMENT') value('CORE.TRACE',,,
'OS2ENVIRONMENT') <> '')
else TraceMe = (wordpos(word(rxuserinfo(), 2), SysList) > 0)
if TraceMe
then exit TraMode
else exit 'O'
Tell:
say
say 'TRACEON - Administrative Trace Tool'
say
say 'TRACEON can be used to turn tracing on in a REXX program for selected'
say 'systems without affecting any other user that might run the program.'
say
say 'Form 1: call value traceon([tracemode])'
say
say 'Sets tracing to "tracemode" if the environment variable COU.TRACE or'
say 'CORE.TRACE is set to anything. If not specified, "tracemode" defaults'
say 'to "?I".'
say
say 'Form 2: call value traceon([tracemode], systemlist)'
say '*** LAN Server only ***'
say
say 'Sets traceing to the specified mode if the current machine name is'
say 'specified in the systemlist.'
say
say 'Examples:'
say ' call value traceon()'
say " call value traceon('R')"
say " call value traceon('?E', 'VESUVIUS MACH2 MYSYS')"
say " call value traceon(, 'VESUVIUS MACH2 MYSYS')"
exit 0