home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
netdor2.zip
/
DISK_10
/
IMAGE9.ZIP
/
pmcal.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-06-30
|
2KB
|
73 lines
/*****************************************************************************
* PMCal frontend *
* CORE Development (CORE at WATSON) *
*****************************************************************************
* 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. *
****************************************************************************/
trace 'O'
call setlocal
say
say ' PMCal initializing. Please wait...'
parse arg Args
call rxfuncadd 'RXCOUINFO', 'COUENV', 'RXCOUINFO'
CDr = RxCouInfo('GET', 'REMOTE')
CDr = strip(CDr, 'T', '\')||'\'
DDr = RxCouInfo('GET', 'DATA')
DDr = strip(DDr, 'T', '\')||'\'
PDr = value('PMCAL.DIR',,'OS2ENVIRONMENT')
if PDr <> ''
then if \rxDirExist(PDr)
then PDr = ''
if PDr = ''
then do
PDr = DDr
call value 'PMCAL.DIR', PDr, 'OS2ENVIRONMENT'
end
call directory DDr
call 'MODPATH' 'PATH ADD' CDr'PMCAL FIRST /DUP /Q'
call 'MODPATH' 'DPATH ADD' DDr 'FIRST /DUP /Q'
NoTz = wordpos('/NOTZ', translate(Args))
if NoTz > 0
then do
call value 'TZ', '', 'OS2ENVIRONMENT'
Args = delword(Args, NoTz, 1)
end
Find = rxBootDrive()'\OS2\FIND.EXE'
if rxFileExist(Find) = 0 then do
Ver = RxOS2Ver()
if Ver < 2.00 then Find = CDr'OS2BASE\1.3\FIND.EXE'
if Ver = 2.00 then Find = CDr'OS2BASE\2.0\FIND.EXE'
if Ver > 2.00 then Find = CDr'OS2BASE\2.1\FIND.EXE'
end
PS = rxBootDrive()'\OS2\PS.EXE'
if rxFileExist(Find) & rxFileExist(PS)
then do
PreQ = queued()
PS '/C 2>NUL |' Find '"TIMEXEC" 2>NUL | RXQUEUE'
NowQ = queued()
RunTimeExec = (NowQ = PreQ)
do NowQ - PreQ; pull .; end
end
else RunTimeExec = 1
say
if RunTimeExec
then do
say ' Starting TIMEXEC...'
'DETACH' CDr'TIMEXEC > NUL 2>&1'
end
say ' Starting PMLIST...'
'START' CDr'PMCAL\PMLIST -B -I -O'
say ' Starting PMCAL...'
CDr'PMCAL\PMCAL' Args
call endlocal
exit