home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE17.ZIP / TESTEXIT.PC < prev    next >
Encoding:
Text File  |  1987-07-06  |  904 b   |  46 lines
  1. /* copyright (c) 1986 by ORACLE Corporation.  All rights reserved. */
  2.  
  3. #include <stdio.h>
  4.  
  5. /*
  6. NAME
  7.   testexit - test user exit for iap
  8. FUNCTION
  9.   Gets and puts a value on the form
  10. RETURNS
  11.   SUCCESS, always
  12. NOTES
  13.   Gets the value of emp.ename.    If it is OATES, puts "is a dope"
  14. OWNER
  15.   Oates
  16. DATE
  17.   01/22/87
  18. MODIFIED
  19.   Name        mm/dd/yy - what you did
  20. */
  21.  
  22. EXEC SQL BEGIN DECLARE SECTION;
  23.  
  24.     char  ename[30];
  25.     char  comment[30];
  26. EXEC SQL END DECLARE SECTION;
  27. EXEC SQL INCLUDE SQLCA;
  28.  
  29. unsigned testexit()
  30. {
  31. int   i;
  32.     EXEC SQL WHENEVER SQLERROR GOTO whoops;
  33.     EXEC IAF GET EMP.ENAME INTO :ename;
  34.     if (strncmp(ename, "OATES", 5))
  35.     {
  36.     EXEC IAF PUT EMP.COMMENT VALUES ('is a very nice man');
  37.     }
  38.     i = 16;
  39.     sqliem( "EXEC IAF success", &i );
  40.     return( IAPSUCC );
  41. whoops:
  42.     i=14;
  43.     sqliem( "EXEC IAF error", &i );
  44.     return( IAPFAIL );
  45. }
  46.