home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
netdor2.zip
/
DISK_10
/
IMAGE9.ZIP
/
welcome.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1993-08-20
|
2KB
|
44 lines
/*****************************************************************************
* WELCOME - IBM NetDoor/2 Welcome *
* NetDoor 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'
if arg(1) = 'DELETE'
then call DeleteMe
parse source . . Me
if 'REGFUNC'('RXUTILS') = 0
then if rxOs2Ver() >= 2.0
then do
if 'REGFUNC'('REXXUTIL') = 0
then if sysSetObjectData('<CORE_APP_README>','OPEN=DEFAULT;')
then 'DETACH' Me 'DELETE >NUL 2>&1'
end
else do
parse value arg(1) with File'*'Group'\'Name
'@E' File
if rc = 0
then do
call rxDeleteProgram 'USER', Group, Name
call rxOs2Ini 'USER', 'PM_Autostart', Group'\'Name, '$RXDEL'
end
end
exit 0
DeleteMe:
if 'REGFUNC'('RXUTILS') = 0
then if rxOs2Ver() >= 2.0
then if 'REGFUNC'('REXXUTIL') = 0
then do
call rxSleep 30
call sysDestroyObject '<NETDOORWELCOME>'
end
exit 0