home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / slip-cm.zip / CMExit.CMD < prev    next >
OS/2 REXX Batch file  |  1994-04-06  |  670b  |  21 lines
  1. /*************************************************************/
  2. /* CMEXIT                                                    */
  3. /*                                                           */
  4. /*   Send an EXIT request to CMANAGER (this will terminate   */
  5. /*   CMANAGER operation).                                    */
  6. /*                                                           */
  7. /*************************************************************/
  8.  
  9. trace OFF
  10.  
  11.   signal on HALT name CLEANUP
  12.   signal on FAILURE name CLEANUP
  13.   signal on SYNTAX name CLEANUP
  14.  
  15.   parse arg caller
  16.  
  17.   completed = CMPerform('EXIT', caller)
  18.  
  19. CLEANUP: exit (completed == 1)
  20.  
  21.