home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 13.ddi / SAMTEX.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-24  |  7.4 KB  |  261 lines
  1. /*  Copyright (c) Oracle Corporation 1989.  All rights reserved.  */
  2. /*
  3. NAME
  4.   samtex - Sample program to demonstrate the use of otex()
  5. FUNCTION
  6.   Updates 2 employees in the EMP table.  It will logon to ORACLE as
  7.   scott/tiger and update the SAL and COMM fields of employees 7788 and 7902.
  8.   One of the employees is updated by 1s, and the other is updated by 10s.
  9. NOTES
  10.   This is by no means a flashy example, and should be used just as a guide
  11.   for writing code with otex().
  12.  
  13.   To build and run SAMTEX using the Microsoft C 6.0 compiler:
  14.  
  15.          C> cl -AL -FPc -c samtex.c
  16.          C> link @samtex[o|m].mln     (samtexo.mln for OS/2, samtexm for MSDOS)
  17.          C> samtex
  18.  
  19.     These guidelines assume that the Microsoft C compiler is installed in
  20.     the \MSC directory.
  21. OWNER
  22.   Okamura
  23. DATE
  24.   05/24/89
  25. MODIFIED
  26.     Criswell   01/24/91 - Declare main void to avoid MSC6 warning
  27.     Criswell   11/01/90 - Change above comments to reflect MSC 6.0
  28.     Okamura    08/15/89 - production
  29.     Okamura    07/18/89 - set initialize workmem to NULL
  30.     Okamura    06/02/89 - modify for V6.0.27.1
  31.  
  32. */
  33. #include <stdio.h>
  34. #include <stdlib.h>
  35.  
  36. #define DEFITERS 50
  37. #define DEFUID   "scott/tiger"
  38. #define EBL      90
  39.  
  40. struct csrdef                                            /* cursor data area */
  41. {
  42.    char    dum[64];
  43. };
  44. typedef struct csrdef csrdef;
  45. typedef struct csrdef ldadef;                    /* lda is the same as a csr */
  46.  
  47. void main(argc, argv)
  48. int  argc;
  49. char *argv[];
  50. {
  51.     char *uid;
  52.     char *stmt1 = "UPDATE EMP SET SAL = :1, COMM = :2, DEPTNO = :3 "
  53.                   "WHERE EMPNO = :4";
  54.     char *stmt2 = "UPDATE EMP SET SAL = :1, COMM = :2, DEPTNO = :3 "
  55.                   "WHERE EMPNO = :4";
  56.     char *stmt3 = "COMMIT";
  57.     int   sal, empno, comm, deptno;
  58.     int   sal2, empno2, comm2, deptno2;
  59.     int   i;
  60.     int   iters;
  61.     char  errbuf[EBL];
  62.     int   err;
  63.     int     nexe;
  64.     csrdef  lda;
  65.     csrdef *curarr[3];
  66.     void*   sbiarr[3];
  67.     void*   bufp1[4];
  68.     void*   bufp2[4];
  69.     size_t  bufl1[4];
  70.     size_t  bufl2[4];
  71.     short   type1[4];
  72.     short   type2[4];
  73.     char   *fmtp1[4];
  74.     char   *fmtp2[4];
  75.     short   fmtl1[4];
  76.     short   fmtl2[4];
  77.     short  *indp1[4];
  78.     short  *indp2[4];
  79.     void   *workmem = NULL;
  80.  
  81. /* get interations */
  82.     iters = DEFITERS;
  83.     uid   = DEFUID;
  84.  
  85. /* Logon */
  86.     if ( err = olon(&lda, uid, -1, NULL, -1, 0) )
  87.     {
  88.          printf("Logon failed\n");
  89.          exit(8);
  90.     }
  91.  
  92. /* Open cursor */
  93.     curarr[0] = (csrdef *)malloc(sizeof(csrdef));
  94.     curarr[1] = (csrdef *)malloc(sizeof(csrdef));
  95.     curarr[2] = (csrdef *)malloc(sizeof(csrdef));
  96.  
  97.     if ( err = oopen(curarr[0], &lda, NULL, 0, -1, NULL, -1) )
  98.     {
  99.          printf("Open cursor failed\n");
  100.          goto badexit;
  101.     }
  102.     if ( err = oopen(curarr[1], &lda, NULL, 0, -1, NULL, -1) )
  103.     {
  104.          printf("Open cursor failed\n");
  105.          goto badexit;
  106.     }
  107.     if ( err = oopen(curarr[2], &lda, NULL, 0, -1, NULL, -1) )
  108.     {
  109.          printf("Open cursor failed\n");
  110.          goto badexit;
  111.     }
  112.  
  113. /* Parse */
  114.     if ( err = osql3(curarr[0], stmt1, -1) )
  115.     {
  116.          printf("Parse failed\n");
  117.          goto badexit;
  118.     }
  119.     if ( err = osql3(curarr[1], stmt2, -1) )
  120.     {
  121.          printf("Parse failed\n");
  122.          goto badexit;
  123.     }
  124.     if ( err = osql3(curarr[2], stmt3, -1) )
  125.     {
  126.          printf("Parse failed\n");
  127.          goto badexit;
  128.     }
  129. /*
  130. ** Bind by reference and position
  131. **  First bind variable in SQL statement should go in the first element
  132. **  of the array (bufp1[0], bufl[0], etc.).  Bind variable names are
  133. **  not relevant.  Note that the format and format length of the bind
  134. **  variable do not matter for ORACLE integer datatype (SQLT_INT).  Format
  135. **  is only relevant for the packed decimal datatype.
  136. */
  137.     bufp1[0] = (void*)&sal;                 /* Bind value buffer */
  138.     bufl1[0] = sizeof(sal);                 /* size of buffer */
  139.     type1[0] = 3;                           /* SQLT_INT */
  140.     indp1[0] = NULL;                        /* Indicator variable */
  141.     bufp1[1] = (void*)&comm;
  142.     bufl1[1] = sizeof(comm);
  143.     type1[1] = 3;
  144.     indp1[1] = NULL;
  145.     bufp1[2] = (void*)&deptno;
  146.     bufl1[2] = sizeof(deptno);
  147.     type1[2] = 3;
  148.     indp1[2] = NULL;
  149.     bufp1[3] = (void*)&empno;
  150.     bufl1[3] = sizeof(empno);
  151.     type1[3] = 3;
  152.     indp1[3] = NULL;
  153.  
  154.     bufp2[0] = (void*)&sal2;
  155.     bufl2[0] = sizeof(sal2);
  156.     type2[0] = 3;
  157.     indp2[0] = NULL;
  158.     bufp2[1] = (void*)&comm2;
  159.     bufl2[1] = sizeof(comm2);
  160.     type2[1] = 3;
  161.     indp2[1] = NULL;
  162.     bufp2[2] = (void*)&deptno2;
  163.     bufl2[2] = sizeof(deptno2);
  164.     type2[2] = 3;
  165.     indp2[2] = NULL;
  166.     bufp2[3] = (void*)&empno2;
  167.     bufl2[3] = sizeof(empno2);
  168.     type2[3] = 3;
  169.     indp2[3] = NULL;
  170.  
  171.     sbiarr[0] = NULL;
  172.     if ( err = osbndp(curarr[0], 4, bufp1, bufl1, type1, indp1,
  173.                       fmtp1, fmtl1, malloc, &sbiarr[0]) )
  174.     {
  175.          printf("Bind failed (array)\n");
  176.          goto badexit;
  177.     }
  178.     sbiarr[1] = NULL;
  179.     if ( err = osbndp(curarr[1], 4, bufp2, bufl2, type2, indp2,
  180.                       fmtp2, fmtl2, malloc, &sbiarr[1]) )
  181.     {
  182.          printf("Bind failed (array)\n");
  183.          goto badexit;
  184.     }
  185.     sbiarr[2] = NULL;                       /* COMMIT has no bind variables */
  186.  
  187.     sal   = 0;                              /* initialize bind values */
  188.     comm  = 0;
  189.     deptno = 15;
  190.     empno = 7788;
  191.  
  192.     sal2  = 0;
  193.     comm2 = 0;
  194.     deptno2 = 99;
  195.     empno2 = 7902;
  196.  
  197. /* Execute */
  198. /*
  199. ** Transaction Execute
  200. **  This loop will update the COMM fields of the two employees.  They will
  201. **  both start at zero.  One will increment by ones, and the other by tens.
  202. */
  203.     printf(" This sample program will update the COMM fields for\n");
  204.     printf(" employee 7788 and 7902.  Both COMM fields will initially be\n");
  205.     printf(" set to 0.  Then one will be incremented by ones, and the\n");
  206.     printf(" other by tens.\n\n");
  207.  
  208.     printf("Doing %d iterations . . . ", iters);
  209.     for ( i = 0; i < iters; i++, sal++, sal2 += 10, comm++, comm2 += 10 )
  210.          if ( err = otex(curarr, 3, sbiarr, malloc,
  211.                          &workmem, &nexe) )
  212.          {
  213.               printf("Execute failed\n");
  214.               goto badexit;
  215.          }
  216.     free(workmem);              /* free memory that was allocated by otex() */
  217.     printf("done\n");
  218.  
  219. /* Close Cursors */
  220.     if ( err = oclose(curarr[0]) )
  221.     {
  222.          printf("Close cursor failed\n");
  223.          goto badexit;
  224.     }
  225.     if ( err = oclose(curarr[1]) )
  226.     {
  227.          printf("Close cursor failed\n");
  228.          goto badexit;
  229.     }
  230.     if ( err = oclose(curarr[2]) )
  231.     {
  232.          printf("Close cursor failed\n");
  233.          goto badexit;
  234.     }
  235.  
  236. /* Logoff */
  237.     if ( err = ologof(&lda) )
  238.     {
  239.          printf("Logoff failed\n");
  240.          goto badexit;
  241.     }
  242.     free(sbiarr[0]);                     /* free memory allocated by osbndp */
  243.     free(sbiarr[1]);
  244.     free(curarr[0]);                              /* free cursor data areas */
  245.     free(curarr[1]);
  246.     free(curarr[2]);
  247.     exit(0);
  248.  
  249. badexit:
  250.     oerhms( &lda, (short)err, errbuf, EBL );           /* get error message */
  251.     errbuf[EBL-1] = '\0';
  252.     printf("Error: %s\n", errbuf);
  253.     ologof(&lda);
  254.     free(sbiarr[0]);
  255.     free(sbiarr[1]);
  256.     free(curarr[0]);
  257.     free(curarr[1]);
  258.     free(curarr[2]);
  259.     exit(8);
  260. }
  261.