/* */
/* Name: SaveWPS.CMD */
/* */
/* Function: */
/* Save the desktop (OS/2 3.0 and above) */
/* */
/* Usage: */
/* SaveWPS */
/* */
/* Where: */
/* - */
/* */
/* Returns: */
/* - */
/* */
/* Credits: */
/* - */
/* */
/* History: */
/* - */
/* */
/* Notes: */
/* Create a program object for the program "\OS2\PMREXX.EXE" and */
/* insert the name of the file with the code below as parameters. */
/* */
/* (c) 1996 Bernd Schemmer, Germany, EMail: Bernd.Schemmer@gmx.de */
/* */
/* load the necessary function from REXXUTIL */
call rxFuncAdd 'SysSaveObject', 'REXXUTIL', 'SysSaveObject'
/* save the desktop object & check the result */
if SysSaveObject( '<WP_DESKTOP>', 0 ) = 1 then
rc = rxMessageBox( 'Desktop saved.' ,,
'SaveWPS - Result ' ,,
'OK' ,,
'INFORMATION' )
else
rc = rxMessageBox( 'Error saving the Desktop!' ,,
'SaveWPS - Result ' ,,
'OK' ,,
'ERROR' )
/* release the function SysSaveObject */
call rxFuncDrop 'SysSaveObject'
exit 0