home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / DATAPROC._ / DELCUST < prev    next >
Encoding:
Text File  |  1994-01-13  |  1004 b   |  32 lines
  1. /**************************/
  2. /* delete customer record */
  3. /**************************/
  4. Arg window
  5. ret=0
  6.  
  7. /* Start Using The Database */
  8. call sqldbs 'START USING DATABASE dbsample IN SHARED MODE';
  9. if (SQLCA.SQLCODE <> 0) then do
  10.     response=VpMessageBox(window,TITLE,'START USING DATABASE Error :  SQLCODE = ' SQLCA.SQLCODE)
  11.     return SQLCA.SQLCODE
  12. end
  13.  
  14. /* Create The SQL Delete Statement and invoke */
  15. prep_string = "DELETE FROM userid.customer WHERE "
  16. prep_string = prep_string || "CUST_CUSTOMER_ID = " || cust.customer_id
  17.  
  18. call sqlexec 'EXECUTE IMMEDIATE :prep_string';
  19. if ( SQLCA.SQLCODE <> 0) & (SQLCA.SQLCODE <> 100) then do
  20.    response=VpMessageBox(window,MSGTITLE,'Error deleting customer record. 'SQLCA.SQLMSG)
  21.    ret = 1
  22. end
  23.  
  24. /* Stop Using The Database  */
  25. call sqldbs 'STOP USING DATABASE';
  26. if (SQLCA.SQLCODE <> 0) then do
  27.     response=VpMessageBox(window,TITLE,'STOP USING DATABASE Error :  SQLCODE = ' SQLCA.SQLCODE)
  28.     return SQLCA.SQLCODE
  29. end
  30.  
  31. return ret
  32.