EXEC SQL
   DECLARE effdepperccurs1 CURSOR FOR
    SELECT basedep_num, part_code, branch_code,
           basedepsum,  even_sum,  dbtturn_even,
           crdturn_even
      FROM basedep
     WHERE (((dbtturn_even <> 0.0) OR (crdturn_even <> 0.0)) AND (bdepstatus_num == 0));

 while (err != ST_SQLNOTFOUND)
  {
   EXEC SQL FETCH effdepperccurs1
                  INTO :_basedep_num, :_part_code, :_branch_code,
                       :_basedepsum,  :_even_sum,  :_dbtturn_even,
                       :_crdturn_even;

   ...
 }

       EXEC SQL UPDATE basedep
                   SET (basedepsum, even_sum, dbtturn, crdturn,
                        dbtturn_even, crdturn_even, lastturndate) =
                       (basedepsum + :_even_sum, 0.0, :_dbtturn_even,
                        :_crdturn_even, 0.0, 0.0, :_operday)
                 WHERE ((basedep_num = :_basedep_num) AND
                        (part_code   = :_part_code)   AND
                        (branch_code = :_branch_code));