/* Close a folder                                                     */

   folderID = '<WP_OS2SYS>'

   call CloseFolder folderID
exit

/* ------------------------------------------------------------------ */
/* function: Close a folder                                           */
/*                                                                    */
/* call:     call closeFolder folderID                                */
/*                                                                    */
/* where:    folderID - Object ID of the folder                       */
/*                                                                    */
/* returns:  -                                                        */
/*                                                                    */
/* note:     Works only with Object REXX; WPS support for Object      */
/*           REXX must be active.                                     */
/*           This routine closes all (!) open views of a folder.      */
/*                                                                    */
/*                                                                    */
CloseFolder: PROCEDURE
  parse arg folderObjectID
  .wpobject˜wpclsQueryFolder( folderObjectID,1 )˜wpClose
return