CREATE PROCEDURE IN_PARAMS (IN lowsal DOUBLE, IN medsal DOUBLE, IN highsal DOUBLE, IN department CHAR( 3 ))
SPECIFIC SQL_IN_PARAMS
DYNAMIC RESULT SETS  0 
DETERMINISTIC
LANGUAGE SQL 
MODIFIES SQL DATA
BEGIN
  DECLARE SQLSTATE CHAR( 5 ) DEFAULT '00000';
  DECLARE SQLCODE INTEGER DEFAULT  0 ;
  DECLARE errorLabel CHAR( 32 ) DEFAULT '';
  DECLARE v_firstnme VARCHAR( 12 );
  DECLARE v_midinit CHAR( 1 );
  DECLARE v_lastname VARCHAR( 15 );
  DECLARE v_salary DOUBLE;
  DECLARE at_end SMALLINT DEFAULT  0 ;
 
  DECLARE c1 CURSOR FOR
    SELECT firstnme, midinit, lastname, CAST(salary AS DOUBLE)
    FROM employee
    WHERE workdept = department 
    FOR UPDATE OF salary;

  DECLARE CONTINUE HANDLER FOR NOT FOUND
    SET at_end =  1 ;

  DECLARE EXIT HANDLER FOR SQLEXCEPTION
    SIGNAL SQLSTATE value SQLSTATE SET MESSAGE_TEXT = errorLabel;

  -- initialize OUT parameter
  SET errorLabel = 'OPEN CURSOR';
  OPEN c1;
  SET errorLabel = 'FIRST FETCH';
  FETCH c1 INTO v_firstnme, v_midinit, v_lastname, v_salary;
  WHILE (at_end =  0 ) DO
    IF (lowsal > v_salary) THEN
      UPDATE employee
      SET salary = lowsal
      WHERE CURRENT OF c1;
    ELSEIF (medsal > v_salary) THEN
      UPDATE employee
      SET salary = medsal
      WHERE CURRENT OF c1;
    ELSEIF (highsal > v_salary) THEN
      UPDATE employee
      SET salary = highsal
      WHERE CURRENT OF c1;
    ELSE UPDATE employee
      SET salary = salary *  1 . 10 
      WHERE CURRENT OF c1;
    END IF;
    SET errorLabel = 'FETCH IN WHILE LOOP';
    FETCH c1 INTO v_firstnme, v_midinit, v_lastname, v_salary;
  END WHILE;
  SET errorLabel = 'CLOSE CURSOR';
  CLOSE c1;
END @

SQL_API_RC SQL_API_FN InParams(double *inLowSal,
                               double *inMedSal,
                               double *inHighSal,
                               char inDept[ 4 ],  /* CHAR(3) */
                               sqlint16 *inLowSalNullInd,
                               sqlint16 *inMedSalNullInd,
                               sqlint16 *inHighSalNullInd,
                               sqlint16 *inDeptNullInd,
                               char sqlstate[ 6 ],      
                               char qualName[ 28 ],  
                               char specName[ 19 ],  
                               char diagMsg[ 71 ]) 
{
  EXEC SQL INCLUDE SQLCA;  
  EXEC SQL BEGIN DECLARE SECTION;
    double hvInParamLowSal;
    double hvInParamMedSal;
    double hvInParamHighSal;
    double hvInParamSalary;
    char hvInParamDept[ 4 ];
  EXEC SQL END DECLARE SECTION;
  char sqlStmtInfo[ 60 ];
  memset(sqlStmtInfo, '\0',  60 ); 
  EXEC SQL WHENEVER SQLERROR GOTO return_error;
  if ((*inLowSalNullInd) <  0  || 
      (*inMedSalNullInd) <  0  ||  
      (*inHighSalNullInd) <  0  ||
      (*inDeptNullInd) <  0 )
  {
    strcpy(sqlstate, "38100");
    strcpy(diagMsg, "Received null input.");   
    return( 0 );
  } 
  hvInParamLowSal = *inLowSal;
  hvInParamMedSal = *inMedSal;
  hvInParamHighSal = *inHighSal;
  strcpy(hvInParamDept, inDept);
  strcpy(sqlStmtInfo, "DECLARE statement failed");    
  EXEC SQL DECLARE curInParam CURSOR FOR
             SELECT CAST(salary AS DOUBLE)
               FROM employee
                 WHERE workdept = :hvInParamDept FOR UPDATE;  
  strcpy(sqlStmtInfo, "OPEN statement failed");  
  EXEC SQL OPEN curInParam;
  strcpy(sqlStmtInfo, "FETCH statement failed");   
  EXEC SQL FETCH curInParam INTO :hvInParamSalary;
  if (sqlca.sqlcode ==  100 )
  {
    strcpy(sqlstate, "38200");  
    strcpy(diagMsg, " 100: NO DATA FOUND");
    strcpy(sqlStmtInfo, "CLOSE statement failed");
    EXEC SQL CLOSE curInParam;
    return ( 0 );
  }      
  while (sqlca.sqlcode ==  0 )
  {
    strcpy(sqlStmtInfo, "UPDATE statement failed");   
    if (hvInParamLowSal > hvInParamSalary)
    {
      EXEC SQL UPDATE employee SET salary = :hvInParamLowSal
	         WHERE CURRENT OF curInParam;
    }
    else if (hvInParamMedSal > hvInParamSalary)
    {
      EXEC SQL UPDATE employee SET salary = :hvInParamMedSal 
	         WHERE CURRENT OF curInParam;
    }
    else if (hvInParamHighSal > hvInParamSalary)
    {
      EXEC SQL UPDATE employee SET salary = :hvInParamHighSal 
	         WHERE CURRENT OF curInParam;
    }
    else
    {
      EXEC SQL UPDATE employee
                 SET salary = :hvInParamSalary *  1 . 10 
                   WHERE CURRENT OF curInParam;
    }   
    strcpy(sqlStmtInfo, "FETCH statement failed");   
    EXEC SQL FETCH curInParam INTO: hvInParamSalary;
  }
  strcpy(sqlStmtInfo, "CLOSE statement failed");    
  EXEC SQL CLOSE curInParam;  
  return ( 0 );
  return_error:
  {  
    strcpy(sqlstate, sqlca.sqlstate);      
    sprintf(diagMsg, "%d", sqlca.sqlcode);
    strcat(diagMsg, ": ");
    strcat(diagMsg, sqlStmtInfo);
    return ( 0 );
  }
} /* InParams function */