
/* create new launchpad object on desktop and display results */	

/* load RexxUtil function */
call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject';

setupString = ,
	'OBJECTID=<OpsLaunchPad>;'  ||,
	'FPOBJECTS=<WP_DCALC>,<WP_DCALEM>,<WP_DDIARY>,<WP_TODO>;' ||,
	'DRAWEROBJECTS=3,<WP_DMNTH>;'	              
   
rc = SysCreateObject('WPLaunchPad', 'Operations Launch Pad',,
	'<WP_DESKTOP>', setupString ); 
	if rc = 1 then 
        say 'Launch pad object created w/Rexx'
      else say 'Could not create Lauch pad w/Rexx'
