home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a522 / 30.ddi / TESTEXIT.PC < prev    next >
Encoding:
Text File  |  1988-12-15  |  981 b   |  50 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 "has a nice car"
  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. EXEC SQL END DECLARE SECTION;
  26. EXEC SQL INCLUDE SQLCA;
  27.  
  28. unsigned testexit()
  29. {
  30. int   i;
  31.     EXEC SQL WHENEVER SQLERROR GOTO whoops;
  32.     EXEC IAF GET EMP.ENAME INTO :ename;
  33.     if (strncmp(ename, "OATES", 5))
  34.     {
  35.         EXEC IAF PUT EMP.COMMENT VALUES ('is a very nice man');
  36.     }
  37.     else
  38.     {
  39.         EXEC IAF PUT EMP.COMMENT VALUES ('has a nice car');
  40.     }
  41.  
  42.     i = 16;
  43.     sqliem( "EXEC IAF success", &i );
  44.     return( IAPSUCC );
  45. whoops:
  46.     i=14;
  47.     sqliem( "EXEC IAF error", &i );
  48.     return( IAPFAIL );
  49. }
  50.