home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 13.ddi / OCISAM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-24  |  10.7 KB  |  342 lines
  1. /*
  2. **
  3. ** sample  is a simple example program which adds new employee
  4. **         records  to the  personnel  data base.  Checking is
  5. **         done to insure the integrity of the data base.  The
  6. **         employee numbers  are automatically  selected using
  7. **         the  current maximum  employee number as the start.
  8. **         If  any  employee  number  is  a  duplicate,  it is
  9. **         skipped.  The  program queries the user for data as
  10. **         follows:
  11. **             Enter employee name:
  12. **             Enter employee job:
  13. **             Enter employee salary:
  14. **             Enter employee dept:
  15. **
  16. **         The program terminates  if <end of file> is entered
  17. **         when the employee name is requested.
  18. **
  19. **         If a record is successfully inserted, the following
  20. **         is printed:
  21. **
  22. **         ename added to department dname as employee # nnnnnn
  23. **
  24. **         The new employee number is 10 more than the highest
  25. **         previous employee number.
  26. **
  27. **         The following assumes that you are using Microsoft C 5.1/6.0
  28. **
  29. **         OS/2 compiling and linking instructions:
  30. **            C> cl -AL -c -FPc ocisam.c
  31. **            C> link @ocisamo.mln
  32. **
  33. **         MSDOS compiling and linking instructions:
  34. **            C> cl -AL -c -FPc ocisam.c
  35. **            C> link @ocisamm.mln
  36. **
  37. **  MODIFIED
  38. **    01/24/91 Criswell - Declare main void to avoid warning
  39. **    11/01/90 Criswell - Microsoft C 6.0 mods.
  40. **    07/24/89 Okamura - Use olon() instead of orlon() for V5/V6 compatibility
  41. **
  42. */
  43.  
  44. #include <stdio.h>
  45. #include <ctype.h>
  46. /*
  47. ** DEFINE THE c VERSION OF THE CURSOR (FOR 32 BIT MACHINES)
  48. */
  49. struct csrdef
  50. {
  51.    short          csrrc;                                  /* return code */
  52.    short          csrft;                                /* function type */
  53.    unsigned long  csrrpc;                        /* rows processed count */
  54.    short          csrpeo;                          /* parse error offset */
  55.    unsigned char  csrfc;                                /* function code */
  56.    unsigned char  csrfil;                                     /* filler  */
  57.    unsigned short csrarc;                           /* reserved, private */
  58.    unsigned char  csrwrn;                               /* warning flags */
  59.    unsigned char  csrflg;                                 /* error flags */
  60.    /*                *** Operating system dependent ***                  */
  61.    unsigned int   csrcn;                                /* cursor number */
  62.    struct {                                           /* rowid structure */
  63.      struct {
  64.         unsigned long   tidtrba;           /* rba of first blockof table */
  65.         unsigned short  tidpid;                 /* partition id of table */
  66.         unsigned char   tidtbl;                     /* table id of table */
  67.         }               ridtid;
  68.      unsigned long   ridbrba;                        /* rba of datablock */
  69.      unsigned short  ridsqn;          /* sequence number of row in block */
  70.      } csrrid;
  71.    unsigned int   csrose;                     /* os dependent error code */
  72.    unsigned char  csrchk;                                  /* check byte */
  73.    unsigned char  crsfill[30];                 /* private, reserved fill */
  74. };
  75.  
  76. char *uid = "scott/tiger";                          /* username/password */
  77. char *insert = "INSERT INTO EMP(EMPNO, ENAME, JOB, SAL, DEPTNO) VALUES \
  78.                 (:EMPNO, :ENAME, :JOB, :SAL, :DEPTNO)";
  79. char *select = "SELECT DNAME FROM DEPT WHERE DEPTNO=:1";
  80. char *maxemp = "SELECT NVL(MAX(EMPNO), 0) + 10 FROM EMP";
  81. char *selemp = "SELECT ENAME, JOB FROM EMP";     /* find ename, job size */
  82.  
  83.  
  84. void main()
  85. {
  86.    int    empno, sal, deptno;    /* employee number, salary, dept number */
  87.    struct csrdef lda;                                        /* lda area */
  88.    struct csrdef curs[2];                             /* and two cursors */
  89.    char   *ename, *job, *dept;             /* employee name,job and dept */
  90.    short  enamel, jobl, deptl;
  91.    char   *malloc();
  92.  
  93. #define LDA &lda
  94. #define C0  (&curs[0])
  95. #define C1  (&curs[1])
  96. #define DUPLICATE_VALUE -9                  /* HLI interface return code */
  97. #define INT 3                                   /* HLI integer type code */
  98. #define CHRSTR 5                      /* HLI null terminated string type */
  99. /*
  100. ** LOGON TO ORACLE, OPEN TWO CURSORS.  NOTE: IN MOST SITUATIONS,
  101. ** THIS SIMPLE PROGRAM EXITS IF ANY ERRORS OCCUR.
  102. */
  103.    if (olon(LDA, uid, -1, (char *)0, -1, -1))
  104.    {
  105.       errlda(LDA, "olon");
  106.       goto errexit;
  107.    }
  108.  
  109.    if (oopen(C0, LDA, (char *)0, -1, -1, (char *)0, -1))
  110.    {
  111.       errrpt(C0);
  112.       goto errexit;
  113.    }
  114.  
  115.    if (oopen(C1, LDA, (char *)0, -1, -1, (char *)0, -1))
  116.    {
  117.       errrpt(C1);
  118.       goto errexit;
  119.    }
  120.  
  121. /*
  122. ** TURN OFF AUTO-COMMIT.  NOTE: THE DEFAULT IF OFF, SO THIS COULD
  123. ** BE OMMITTED.
  124. */
  125.    if (ocof(LDA))
  126.    {
  127.       errlda(LDA, "ocof");
  128.       goto errexit;
  129.    }
  130. /*
  131. ** RETRIEVE THE CURRENT MAXIMUM EMPLOYEE NUMBER
  132. */
  133.    if (osql3(C0, maxemp, -1)
  134.        || odefin(C0, 1, (unsigned char *)&empno, sizeof(empno),
  135.           INT,   -1, (short *)0, (char *)0, -1, -1, (short *)0,
  136.           (short *)0)
  137.        || oexec(C0)
  138.        || ofetch(C0))
  139.    {
  140.       errrpt(C0);
  141.       goto errexit;
  142.    }
  143.  
  144. /*
  145. ** DESCRIBE THE COLUMNS TO DETERMINE THE MAX LENGTH OF
  146. ** THE EMPLOYEE NAME, JOB TITLE.
  147. */
  148.    if (osql3(C0, selemp, -1)
  149.        || odsc(C0, 1, &enamel, (short *)0, (short *)0, (short *)0,
  150.                (char *)0, (short *)0, (short *)0)
  151.        || odsc(C0, 2, &jobl,   (short *)0, (short *)0, (short *)0,
  152.                (char *)0, (short *)0, (short *)0) )
  153.    {
  154.       errrpt(C0);
  155.       goto errexit;
  156.    }
  157.  
  158.    job   = malloc(jobl+1);                 /* don't forget room for null */
  159.    ename = malloc(enamel+1);
  160.  
  161. /*
  162. ** PARSE THE INSERT AND SELECT STATEMENTS
  163. ** DESCRIBE dname SO THAT WE CAN ALLOCATE SPACE
  164. ** THEN DEFINE dept
  165. */
  166.    if (osql3(C0, insert, -1))
  167.    {
  168.       errrpt(C0);
  169.       goto errexit;
  170.    }
  171.  
  172.    if (osql3(C1, select, -1)
  173.        || odsc(C1, 1, &deptl, (short *)0, (short *)0, (short *)0,
  174.             (char *)0, (short *)0, (short *)0)
  175.        || odfinn(C1, 1, dept = malloc(deptl+1) , deptl+1, CHRSTR,
  176.             (short *)0, (char *)0, -1, -1, (short *)0, (short *)0) )
  177.    {
  178.       errrpt(C1);
  179.       goto errexit;
  180.    }
  181.  
  182. /*
  183. ** BIND SQL SUBSTITUTION VARIABLE VALUES USING BIND BY REFERENCE
  184. ** STATEMENTS.
  185. */
  186.  
  187.    if (   obndrv(C0, ":ENAME", -1, ename, (int)enamel+1, CHRSTR,
  188.              -1, (short *)0, (char *)0, -1, -1)
  189.        || obndrv(C0, ":JOB", -1, job, (int)jobl+1, CHRSTR,
  190.              -1, (short *)0, (char *)0, -1, -1)
  191.        || obndrv(C0, ":SAL", -1, (unsigned char *)&sal, sizeof(sal),
  192.              INT, -1, (short *)0, (char *)0, -1, -1)
  193.        || obndrv(C0, ":DEPTNO",-1, (unsigned char *)&deptno, sizeof(deptno),
  194.              INT, -1, (short *)0, (char *)0, -1, -1)
  195.        || obndrv(C0, ":EMPNO", -1, (unsigned char *)&empno,  sizeof(empno),
  196.              INT, -1, (short *)0, (char *)0, -1, -1) )
  197.    {
  198.       errrpt(C0);
  199.       goto errexit;
  200.    }
  201.  
  202. /*
  203. ** READ THE USER'S INPUT FROM stdin.  IF THE EMPLOYEE NAME IS
  204. ** NOT ENTERED, THEN EXIT.  VERIFY THAT THE ENTERED DEPARTMENT
  205. ** NUMBER IS VALID AND ECHO THE DEPARTMENT'S NAME WHEN DISPLAYING
  206. ** THE NEW ROW.
  207. */
  208.    for(  ;
  209.          asks("Enter employee name  : ", ename) > 0;
  210.          empno += 10)
  211.    {
  212.       asks("Enter employee job   : ", job);
  213.       aski("Enter employee salary: ", &sal);
  214.       while (aski("Enter employee dept  :   ", &deptno) <= 0
  215.              || obindn(C1, 1, (unsigned char *)&deptno, sizeof(deptno),
  216.                 INT,  -1, (char *)0, -1, -1)
  217.              || oexec(C1)
  218.              || ofetch(C1))
  219.       {
  220.          printf("\nNo such department %d\n", deptno);
  221.       }
  222.  
  223. /*
  224. ** EXECUTE THE STATEMENTS.  IF A DUPLICATE empno OCCURS, CALCULATE THE
  225. ** NEXT ONE AND EXECUTE AGAIN.
  226. */
  227.       while (oexec(C0) == DUPLICATE_VALUE)
  228.       {
  229.          empno += 10;
  230.       }
  231.  
  232. /*
  233. ** IF ANY ERROR FROM OEXEC OCCURS AT THIS POINT, EXIT.
  234. */
  235.       if (C0->csrrc)
  236.       {
  237.          errrpt(C0);
  238.          goto errexit;
  239.       }
  240.  
  241. /*
  242. ** COMMIT THE CHANGE TO THE DATABASE.
  243. */
  244.       if (ocom(LDA))
  245.       {
  246.          errlda(LDA, "ocom");
  247.          goto errexit;
  248.       }
  249.  
  250. /*
  251. ** GIVE THE USER SOME FEEDBACK.
  252. */
  253.       printf("\n%s added to the %s department as employee number %d\n",
  254.              ename, dept, empno);
  255.    }
  256.  
  257. /*
  258. ** EITHER AN ERROR, OR USER ENTERED END-OF-FILE FOR EMPLOYEE NAME.
  259. ** CLOSE THE CURSORS AND LOG OFF FROM ORACLE.
  260. */
  261.  
  262. errexit:
  263.    oclose(C0);
  264.    oclose(C1);
  265.    ologof(LDA);
  266.    printf ("\nEnd of the C/ORACLE example program.\n");
  267.    return(1);
  268. }
  269.  
  270. /*
  271. ** errlda AND errrpt PRINT THE ERROR CODE, OTHER INFORMATION.
  272. */
  273.  
  274. /*void*/ errrpt(cur)
  275. struct csrdef *cur;                                 /* pointer to cursor */
  276. {
  277.    char  msg[80];
  278.    printf("ORACLE error: code is %d, op is %d\n",
  279.           (int)cur->csrrc, (int)cur->csrfc);
  280.    oermsg(cur->csrrc, msg);
  281.    printf("%s\n",msg);
  282. }
  283.  
  284. /* void */ errlda(lda,msg)
  285. struct  csrdef *lda;                               /* pointer to the LDA */
  286. char    msg[];                                 /* user specified message */
  287. {
  288.    char    oertxt[80];
  289.    printf ("LDA error (%s): code is %d\n", msg, (int)lda->csrrc);
  290.    oermsg(lda->csrrc, oertxt);
  291.    printf("%s\n",oertxt);
  292. }
  293.  
  294. /*------------------------------------------------------------------------------
  295. COUNT aski(text,variable)
  296.  
  297.    print the 'text' on STDOUT and read an integer variable from
  298.    SDTIN.
  299.  
  300.    text points to the null terminated string to be printed
  301.    variable points to an integer variable
  302.  
  303.    aski returns a 1 if the variable was read successfully or a
  304.        -1 if -eof- was encountered
  305. ----------------------------------------------------------------------------- */
  306.  
  307. int aski(text,variable)
  308.    char text[];
  309.    int  *variable;
  310.    {
  311.    char s[20];
  312.    printf(text);
  313.    fflush(stdout);
  314.    if ( gets(s) == (char *)0 )
  315.      return(EOF);
  316.  
  317.    *variable = atoi(s);
  318.    return(1);
  319.    }
  320.  
  321. /* -----------------------------------------------------------------------------
  322. COUNT asks(text,variable)
  323.  
  324.    print the 'text' on STDOUT and read up to 'len' characters into
  325.    the buffer pointed to by variable from STDIN.
  326.  
  327.    text points to the null terminated string to be printed
  328.    variable points to a buffer of at least 'len'+1 characters
  329.  
  330.    asks returns the number of character read into the string, or a
  331.        -1 if -eof- was encountered
  332. ----------------------------------------------------------------------------- */
  333.  
  334. int asks(text,variable)
  335.    char text[],variable[];
  336.    {
  337.    printf(text);
  338.    fflush(stdout);
  339.    return( gets(variable) == (char *)0 ? EOF : strlen(variable) );
  340.    }
  341.  
  342.