emp_auto.pc

来自「一本介绍oracle的书籍」· PC 代码 · 共 92 行

#include <stdio.h>
#include <stdlib.h>
EXEC SQL include sqlca;
EXEC SQL include sqlda;

#include "const.h"
#include "db.h"

#define MODULE_NAME "emp.pc"
#define TABLE_NAME "emp"

int DbsEMP(int iFunc, emp_t *p_emp)
{
    switch(iFunc)
    {
      case DBS_INIT:
        p_emp->no=0;
        strcpy(p_emp->upd_ts, "19700101");
        strcpy(p_emp->name, " ");
        strcpy(p_emp->duty, " ");
        p_emp->age=0;
        p_emp->salary=0;
        return 0;

      case DBS_SELECT:
        EXEC SQL select
			no,
			to_char(upd_ts, 'YYYYMMDDHH24MISS'),
			name,
			duty,
			age,
			salary
                 into
			:p_emp->no,
			:p_emp->upd_ts,
			:p_emp->name,
			:p_emp->duty,
			:p_emp->age,
			:p_emp->salary
		from emp
		where
			no=:p_emp->no
			;
        SQL_CODE_PROCESS("SEL");

      case DBS_LOCK:
	EXEC SQL select
			no,
			to_char(upd_ts, 'YYYYMMDDHH24MISS'),
			name,
			duty,
			age,
			salary
                 into
			:p_emp->no,
			:p_emp->upd_ts,
			:p_emp->name,
			:p_emp->duty,
			:p_emp->age,
			:p_emp->salary
		from emp
		where
			no=:p_emp->no
		for update
			;
        SQL_CODE_PROCESS("LCK");

      case DBS_UPDATE:
	EXEC SQL update emp
                 set
			no=:p_emp->no,
			upd_ts=to_date(:p_emp->upd_ts, 'YYYYMMDDHH24MISS'),
			name=:p_emp->name,
			duty=:p_emp->duty,
			age=:p_emp->age,
			salary=:p_emp->salary
		where
			no=:p_emp->no
			;
        SQL_CODE_PROCESS("UPD");

      case DBS_DELETE:
	EXEC SQL delete from emp
		where
			no=:p_emp->no
			;
        SQL_CODE_PROCESS("DEL");

      default:  return(543);
    }
}