home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / CLEANUP.PRG < prev    next >
Encoding:
Text File  |  1993-05-25  |  496 b   |  22 lines
  1. Procedure cleanup
  2.  
  3. * This verifies the desire to exit the CKSample application
  4. * and sets the appropriate flag
  5.  
  6. IF yes_no("Do you wish to exit?","Exit CKSample Application")
  7.     RELEASE WINDOW results
  8.     IF (ckhandle > 0)
  9.         retcode = dbdisconn(ckhandle)
  10.         IF (retcode < 0)
  11.             DO repoerro.spr WITH retcode
  12.         ELSE
  13.             WAIT WINDOW "Disconnected From "+mess_str  NOWAIT
  14.         ENDIF
  15.     ENDIF
  16.     RELEASE LIBRARY fpsql
  17.     CLEAR READ ALL
  18.     SET SYSMENU TO DEFAULT
  19.     exitapp = .T.
  20.     SET MESSAGE TO
  21. ENDIF
  22.