home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / software / Vyzkuste / inprise / INTRBASE_55 / EXAMPLES / API / STAT5.E < prev    next >
Text File  |  1998-10-18  |  2KB  |  101 lines
  1. /*
  2.  *  Program type:   Embedded Static SQL
  3.  *
  4.  *  Description:
  5.  *        This program performs a positioned update.
  6.  *        All job grades are selected, and the salary range
  7.  *        for the job may be increased by some factor, if any
  8.  *        of the employees have a salary close to the upper
  9.  *        limit of their job grade.
  10.  */
  11.  
  12. #include "example.h"
  13. #include <stdlib.h>
  14. #include <stdio.h>
  15.  
  16. EXEC SQL
  17.     BEGIN DECLARE SECTION;
  18.  
  19. BASED_ON job.job_code        job;
  20. BASED_ON job.job_grade        grade;
  21. BASED_ON job.job_country    country;
  22. BASED_ON job.max_salary        max_salary;
  23.  
  24. EXEC SQL
  25.     END DECLARE SECTION;
  26.  
  27.  
  28. int main PROTO((void))
  29. {
  30.     char    jobstr[25];
  31.     float    mult_factor;
  32.  
  33.     EXEC SQL
  34.         WHENEVER SQLERROR GO TO Error;
  35.  
  36.     /* Declare the cursor, allowing for the update of max_salary field. */
  37.     EXEC SQL
  38.         DECLARE sal_range CURSOR FOR
  39.         SELECT job_grade, job_code, job_country, max_salary
  40.         FROM job
  41.         FOR UPDATE OF max_salary;
  42.  
  43.     EXEC SQL
  44.         OPEN sal_range;
  45.  
  46.     printf("\nIncreasing maximum salary limit for the following jobs:\n\n");
  47.     printf("%-25s%-22s%-22s\n\n", "  JOB NAME", "CURRENT MAX", "NEW MAX");
  48.  
  49.     for (;;)
  50.     {
  51.         EXEC SQL
  52.             FETCH sal_range INTO :grade, :job, :country, :max_salary;
  53.  
  54.         if (SQLCODE == 100)
  55.             break;
  56.  
  57.         /* Check if any of the employees in this job category are within
  58.          * 10% of the maximum salary.
  59.          */
  60.         EXEC SQL
  61.             SELECT salary
  62.             FROM employee
  63.             WHERE job_grade = :grade
  64.             AND job_code = :job
  65.             AND job_country = :country
  66.             AND salary * 0.1 + salary > :max_salary;
  67.  
  68.         /* If so, increase the maximum salary. */
  69.         if (SQLCODE == 0)
  70.         {
  71.             /* Determine the increase amount;  for example, 5%. */
  72.             mult_factor = 0.05;
  73.  
  74.             sprintf(jobstr, "%s %d  (%s)", job, grade, country);
  75.             printf("%-25s%10.2f%20.2f\n", jobstr,
  76.                         max_salary, max_salary * mult_factor + max_salary);
  77.  
  78.             EXEC SQL
  79.                 UPDATE job
  80.                 SET max_salary = :max_salary + :max_salary * :mult_factor
  81.                 WHERE CURRENT OF sal_range;
  82.         }
  83.     }
  84.  
  85.     printf("\n");
  86.  
  87.     EXEC SQL
  88.         CLOSE sal_range;
  89.  
  90.     /* Don't actually save the changes. */
  91.     EXEC SQL
  92.         ROLLBACK RELEASE;
  93.  
  94.     return  0;
  95.  
  96. Error:
  97.     isc_print_sqlerror(SQLCODE, gds__status);
  98.     return  1 ;
  99. }
  100.  
  101.