/* Result Sets Interface */#ifndef SQL_CRSR#  define SQL_CRSR  struct sql_cursor  {    unsigned int curocn;    void *ptr1;    void *ptr2;    unsigned int magic;  };  typedef struct sql_cursor sql_cursor;  typedef struct sql_cursor SQL_CURSOR;#endif /* SQL_CRSR *//* Thread Safety */typedef void * sql_context;typedef void * SQL_CONTEXT;/* Object support */struct sqltvn{  unsigned char *tvnvsn;   unsigned short tvnvsnl;   unsigned char *tvnnm;  unsigned short tvnnml;   unsigned char *tvnsnm;  unsigned short tvnsnml;};typedef struct sqltvn sqltvn;struct sqladts{  unsigned int adtvsn;   unsigned short adtmode;   unsigned short adtnum;    sqltvn adttvn[1];       };typedef struct sqladts sqladts;static struct sqladts sqladt = {  1,1,0,};/* Binding to PL/SQL Records */struct sqltdss{  unsigned int tdsvsn;   unsigned short tdsnum;   unsigned char *tdsval[1]; };typedef struct sqltdss sqltdss;static struct sqltdss sqltds ={  1,  0,};/* File name & Package Name */struct sqlcxp{  unsigned short fillen;           char  filnam[10];};static struct sqlcxp sqlfpn ={    9,    "operdb.pc"};static unsigned int sqlctx = 39531;static struct sqlexd {   unsigned int   sqlvsn;   unsigned int   arrsiz;   unsigned int   iters;   unsigned int   offset;   unsigned short selerr;   unsigned short sqlety;   unsigned int   occurs;            short *cud;   unsigned char  *sqlest;            char  *stmt;   sqladts *sqladtp;   sqltdss *sqltdsp;            void  **sqphsv;   unsigned int   *sqphsl;            int   *sqphss;            void  **sqpind;            int   *sqpins;   unsigned int   *sqparm;   unsigned int   **sqparc;   unsigned short  *sqpadto;   unsigned short  *sqptdso;   unsigned int   sqlcmax;   unsigned int   sqlcmin;   unsigned int   sqlcincr;   unsigned int   sqlctimeout;   unsigned int   sqlcnowait;              int   sqfoff;   unsigned int   sqcmod;   unsigned int   sqfmod;            void  *sqhstv[5];   unsigned int   sqhstl[5];            int   sqhsts[5];            void  *sqindv[5];            int   sqinds[5];   unsigned int   sqharm[5];   unsigned int   *sqharc[5];   unsigned short  sqadto[5];   unsigned short  sqtdso[5];} sqlstm = {12,5};/* SQLLIB Prototypes */extern sqlcxt (/*_ void **, unsigned int *,                   struct sqlexd *, struct sqlcxp * _*/);extern sqlcx2t(/*_ void **, unsigned int *,                   struct sqlexd *, struct sqlcxp * _*/);extern sqlbuft(/*_ void **, char * _*/);extern sqlgs2t(/*_ void **, char * _*/);extern sqlorat(/*_ void **, unsigned int *, void * _*/);/* Forms Interface */static int IAPSUCC = 0;static int IAPFAIL = 1403;static int IAPFTL  = 535;extern void sqliem(/*_ char *, int * _*/);typedef struct { unsigned short len; unsigned char arr[1]; } VARCHAR;typedef struct { unsigned short len; unsigned char arr[1]; } varchar;/* CUD (Compilation Unit Data) Array */static short sqlcud0[] ={12,4130,1,0,0,5,0,0,1,0,0,27,66,0,0,4,4,0,1,0,1,9,0,0,1,9,0,0,1,9,0,0,1,10,0,0,36,0,0,2,57,0,5,67,0,0,3,3,0,1,0,1,97,0,0,1,3,0,0,1,3,0,0,63,0,0,3,0,0,29,68,0,0,0,0,0,1,0,78,0,0,4,0,0,30,69,0,0,0,0,0,1,0,93,0,0,5,0,0,27,79,0,0,4,4,0,1,0,1,9,0,0,1,9,0,0,1,9,0,0,1,10,0,0,124,0,0,6,52,0,3,80,0,0,4,4,0,1,0,1,97,0,0,1,97,0,0,1,3,0,0,1,3,0,0,155,0,0,7,0,0,29,81,0,0,0,0,0,1,0,170,0,0,8,0,0,30,82,0,0,0,0,0,1,0,185,0,0,9,0,0,27,87,0,0,4,4,0,1,0,1,9,0,0,1,9,0,0,1,9,0,0,1,10,0,0,216,0,0,10,82,0,4,91,0,0,5,1,0,1,0,2,97,0,0,2,97,0,0,2,3,0,0,2,3,0,0,1,3,0,0,};#include<stdio.h>#include"../include/structs.h"/* EXEC SQL INCLUDE SQLCA; */ /* * $Header: sqlca.h 24-apr-2003.12:50:58 mkandarp Exp $ sqlca.h  *//* Copyright (c) 1985, 2003, Oracle Corporation.  All rights reserved.  */ /*NAME  SQLCA : SQL Communications Area.FUNCTION  Contains no code. Oracle fills in the SQLCA with status info  during the execution of a SQL stmt.NOTES  **************************************************************  ***                                                        ***  *** This file is SOSD.  Porters must change the data types ***  *** appropriately on their platform.  See notes/pcport.doc ***  *** for more information.                                  ***  ***                                                        ***  **************************************************************  If the symbol SQLCA_STORAGE_CLASS is defined, then the SQLCA  will be defined to have this storage class. For example:     #define SQLCA_STORAGE_CLASS extern   will define the SQLCA as an extern.   If the symbol SQLCA_INIT is defined, then the SQLCA will be  statically initialized. Although this is not necessary in order  to use the SQLCA, it is a good pgming practice not to have  unitialized variables. However, some C compilers/OS's don't  allow automatic variables to be init'd in this manner. Therefore,  if you are INCLUDE'ing the SQLCA in a place where it would be  an automatic AND your C compiler/OS doesn't allow this style  of initialization, then SQLCA_INIT should be left undefined --  all others can define SQLCA_INIT if they wish.  If the symbol SQLCA_NONE is defined, then the SQLCA variable will  not be defined at all.  The symbol SQLCA_NONE should not be defined  in source modules that have embedded SQL.  However, source modules  that have no embedded SQL, but need to manipulate a sqlca struct  passed in as a parameter, can set the SQLCA_NONE symbol to avoid  creation of an extraneous sqlca variable. MODIFIED    lvbcheng   07/31/98 -  long to int    jbasu      12/12/94 -  Bug 217878: note this is an SOSD file    losborne   08/11/92 -  No sqlca var if SQLCA_NONE macro set   Clare      12/06/84 - Ch SQLCA to not be an extern.  Clare      10/21/85 - Add initialization.  Bradbury   01/05/86 - Only initialize when SQLCA_INIT set  Clare      06/12/86 - Add SQLCA_STORAGE_CLASS option.*/ #ifndef SQLCA#define SQLCA 1 struct   sqlca         {         /* ub1 */ char    sqlcaid[8];         /* b4  */ int     sqlabc;         /* b4  */ int     sqlcode;         struct           {           /* ub2 */ unsigned short sqlerrml;           /* ub1 */ char           sqlerrmc[70];           } sqlerrm;         /* ub1 */ char    sqlerrp[8];         /* b4  */ int     sqlerrd[6];         /* ub1 */ char    sqlwarn[8];         /* ub1 */ char    sqlext[8];         };#ifndef SQLCA_NONE #ifdef   SQLCA_STORAGE_CLASSSQLCA_STORAGE_CLASS struct sqlca sqlca#else         struct sqlca sqlca#endif #ifdef  SQLCA_INIT         = {         {'S', 'Q', 'L', 'C', 'A', ' ', ' ', ' '},         sizeof(struct sqlca),         0,         { 0, {0}},         {'N', 'O', 'T', ' ', 'S', 'E', 'T', ' '},         {0, 0, 0, 0, 0, 0},         {0, 0, 0, 0, 0, 0, 0, 0},         {0, 0, 0, 0, 0, 0, 0, 0}         }#endif         ;#endif #endif /* end SQLCA */main(){USER user1;USER user2;//USER user3;//operdb(&user1,1003);//strcpy(user1.name,"user5");//strcpy(user1.pwd,"123456");//user1.id = 1005;//user1.money= 1000;  		//operdb(&user1,2);		//operdb(&user1,1);	operdb(&user2,1007);	printf("name : %s\n" , user2.name);	printf("pwd  : %s\n" , user2.pwd);	printf("id   : %d\n" , user2.id);	//operdb(&user2,1006);	//printf("1006name : %s\n" , user2.name);	//printf("pwd  : %s\n" , user2.pwd);	//printf("id   : %d\n" , user2.id);	//operdb(&user3,1007);	//printf("1007name : %s\n" , user3.name);	//printf("pwd : %s\n" , user3.pwd);	//printf("id : %d\n" , user3.id);	}int operdb(USER *userinfo,int flag){	/* EXEC SQL BEGIN DECLARE SECTION; */ 	/* VARCHAR user[15],pass[15],tnsname[20]; */ struct { unsigned short len; unsigned char arr[15]; } user;struct { unsigned short len; unsigned char arr[15]; } pass;struct { unsigned short len; unsigned char arr[20]; } tnsname;	char name[10];	char pwd[10];	int  id;	int  money;	/* EXEC SQL END DECLARE SECTION; */ 	strcpy(user.arr,"scott");	user.len = (unsigned short)strlen((char *)user.arr);	strcpy(pass.arr,"tiger");	pass.len=(unsigned short)strlen((char *)pass.arr);	strcpy(tnsname.arr,"demo1");	tnsname.len=(unsigned short)strlen((char *)tnsname.arr);			//strcpy(name,userinfo->name);	//strcpy(pwd,userinfo->pwd);	//money = userinfo->money;	//id = userinfo-> id;			switch(flag)	{					case 1:			strcpy(name,userinfo->name);		strcpy(pwd,userinfo->pwd);		money = userinfo->money;		id = userinfo-> id;		/* EXEC SQL CONNECT:user IDENTIFIED BY:pass USING:tnsname; */ {  struct sqlexd sqlstm;  sqlstm.sqlvsn = 12;  sqlstm.arrsiz = 4;  sqlstm.sqladtp = &sqladt;  sqlstm.sqltdsp = &sqltds;  sqlstm.iters = (unsigned int  )10;  sqlstm.offset = (unsigned int  )5;  sqlstm.cud = sqlcud0;  sqlstm.sqlest = (unsigned char  *)&sqlca;  sqlstm.sqlety = (unsigned short)256;  sqlstm.occurs = (unsigned int  )0;  sqlstm.sqhstv[0] = (         void  *)&user;  sqlstm.sqhstl[0] = (unsigned int  )17;  sqlstm.sqhsts[0] = (         int  )17;  sqlstm.sqindv[0] = (         void  *)0;  sqlstm.sqinds[0] = (         int  )0;  sqlstm.sqharm[0] = (unsigned int  )0;  sqlstm.sqadto[0] = (unsigned short )0;  sqlstm.sqtdso[0] = (unsigned short )0;  sqlstm.sqhstv[1] = (         void  *)&pass;  sqlstm.sqhstl[1] = (unsigned int  )17;  sqlstm.sqhsts[1] = (         int  )17;  sqlstm.sqindv[1] = (         void  *)0;  sqlstm.sqinds[1] = (         int  )0;  sqlstm.sqharm[1] = (unsigned int  )0;  sqlstm.sqadto[1] = (unsigned short )0;  sqlstm.sqtdso[1] = (unsigned short )0;  sqlstm.sqhstv[2] = (         void  *)&tnsname;  sqlstm.sqhstl[2] = (unsigned int  )22;  sqlstm.sqhsts[2] = (         int  )22;  sqlstm.sqindv[2] = (         void  *)0;  sqlstm.sqinds[2] = (         int  )0;  sqlstm.sqharm[2] = (unsigned int  )0;  sqlstm.sqadto[2] = (unsigned short )0;  sqlstm.sqtdso[2] = (unsigned short )0;  sqlstm.sqphsv = sqlstm.sqhstv;  sqlstm.sqphsl = sqlstm.sqhstl;  sqlstm.sqphss = sqlstm.sqhsts;  sqlstm.sqpind = sqlstm.sqindv;  sqlstm.sqpins = sqlstm.sqinds;  sqlstm.sqparm = sqlstm.sqharm;  sqlstm.sqparc = sqlstm.sqharc;  sqlstm.sqpadto = sqlstm.sqadto;  sqlstm.sqptdso = sqlstm.sqtdso;  sqlstm.sqlcmax = (unsigned int )100;  sqlstm.sqlcmin = (unsigned int )2;  sqlstm.sqlcincr = (unsigned int )1;  sqlstm.sqlctimeout = (unsigned int )0;  sqlstm.sqlcnowait = (unsigned int )0;  sqlcxt((void **)0, &sqlctx, &sqlstm, &sqlfpn);}		/* EXEC SQL UPDATE SCOTT.BANKUSER SET PWD =:pwd,MONEY = :money WHERE ID =:id; */ {  struct sqlexd sqlstm;  sqlstm.sqlvsn = 12;  sqlstm.arrsiz = 4;  sqlstm.sqladtp = &sqladt;  sqlstm.sqltdsp = &sqltds;  sqlstm.stmt = "update SCOTT.BANKUSER  set PWD=:b0,MONEY=:b1 where ID=:b2";