REXX Tips & Tricks, Version 2.80

0.9b (c) 1995 Peter Childs

Save the Desktop

 
/*                                                                    */
/* 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: 100104.613@compuserve.com */
/*                                                                    */

                        /* 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

Inf-HTML End Run - Successful