home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
addnew.zip
/
PROGRAM.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-30
|
849b
|
28 lines
/* REXX instructions to create a new program object on the WPShell */
/* Written by Paul Serice serice@sprynet.com (if you have any problems) */
/* First, you need to extend the basic REXX function calls to include the one you need */
/* However, the function you want may already be loaded. */
HadToAdd=0
IF RxFuncQuery("SysCreateObject") /* returns TRUE if NOT registered */
THEN DO
call RxFuncAdd "SysCreateObject","RexxUtil","SysCreateObject"
HadToAdd=1
END
count=1
name="New Program Object"
done=0
DO UNTIL done
CALL SysCreateObject "WPProgram",name,"<WP_DESKTOP>"
IF result=0 THEN /* apparently, "result" is a built in variable (?) */
DO
name="New Program Object:"||count
count=count+1
END
ELSE done=1
END
IF HadToAdd THEN call RxFuncDrop("SysCreateObject")