home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 13.ddi / SAMPLE.PC < prev    next >
Encoding:
Text File  |  1991-01-24  |  7.7 KB  |  246 lines
  1. /* Copyright (c) 1984 by Oracle Corporation. */
  2.  
  3. #include <stdio.h>
  4. #include <ctype.h>
  5.  
  6. /*
  7. NAME
  8.   sample
  9. FUNCTION
  10.   Simple Pro*C sample program from Pro*C User's Guide
  11. NOTES
  12.  
  13.    sample  is a simple example program which adds new employee
  14.            records to the personnel data base.  Checking
  15.            is done to insure the integrity of the data base.
  16.            The employee numbers are automatically selected using
  17.            the current maximum employee number + 10.
  18.  
  19.            The program queries the user for data as follows:
  20.  
  21.            Enter employee name:
  22.            Enter employee job:
  23.            Enter employee salary:
  24.            Enter employee dept:
  25.  
  26.            The program terminates if control Z (end of file) or null
  27.            string (<return> key) is entered when the employee name
  28.            is requested.
  29.  
  30.            If the record is successfully inserted, the following
  31.            is printed:
  32.  
  33.            ename added to department dname as employee # nnnnnn
  34.  
  35.  
  36.            The following assumes that you are using Microsoft C 5.1/6.0
  37.            and that sqlca.h is in the current directory.
  38.  
  39.            OS/2 compiling and linking instructions:
  40.                C> proc iname=sample.pc
  41.                C> cl -AL -FPc -Od -c sample.c
  42.                C> link @sampleo.mln
  43.  
  44.            MSDOS compiling and linking instructions:
  45.                C> proc iname=sample.pc
  46.                C> cl -AL -FPc -Od -c sample.c
  47.                C> link @samplem.mln
  48.  
  49.            These guidelines assume that the Microsoft C compiler,
  50.            libraries, and linker are setup according to the compiler's
  51.            User's Guide.
  52.  
  53. OWNER
  54.   Clare
  55. DATE
  56.   05/01/84
  57. MODIFIED
  58.   11/08/90  Criswell    Declared main() void
  59.   11/01/90  Criswell    Microsoft C 6.0 changes
  60.   07/05/89  Okamura     Update documentation for V6 on OS/2
  61.   03/26/87  RPatterson  Updated error handling.
  62.   02/20/86  RPatterson  Port: support Microsoft 'C' compiler and sqlmsc.lib.
  63.   09/19/84  Clare       Port: remove VMSisms.
  64.   12/26/84  Clare       Port IBM: fflush() prompts.
  65. */
  66.  
  67. EXEC SQL BEGIN DECLARE SECTION;
  68. VARCHAR uid[80];
  69.                                        /* username                            */
  70. VARCHAR pwd[20];
  71.                                        /* password                            */
  72.  
  73. int     empno;                         /* employee number                     */
  74. VARCHAR ename[15];
  75.                                        /* employee name                       */
  76. int     deptno;                        /* department number                   */
  77. VARCHAR dname[15];
  78.                                        /* department name                     */
  79.  
  80. VARCHAR job[15];
  81.                                        /* employee job                        */
  82. int     sal;                           /* employee salary                     */
  83. EXEC SQL END DECLARE SECTION;
  84. EXEC SQL INCLUDE SQLCA;
  85.  
  86. void main()
  87. {
  88.  
  89. /* -----------------------------------------------------------------------------
  90.    logon to ORACLE, and open the cursors. The program exits if any errors occur.
  91. ----------------------------------------------------------------------------- */
  92.  
  93.    strcpy(uid.arr,"SCOTT");
  94.    uid.len = strlen(uid.arr);
  95.    strcpy(pwd.arr,"TIGER");
  96.    pwd.len = strlen(pwd.arr);
  97.  
  98.    EXEC SQL WHENEVER SQLERROR GOTO errexit;
  99.    EXEC SQL CONNECT :uid IDENTIFIED BY :pwd;
  100.  
  101. /* -----------------------------------------------------------------------------
  102.    Retrieve the current maximum employee number
  103. ----------------------------------------------------------------------------- */
  104.  
  105.    EXEC SQL SELECT NVL(MAX(EMPNO),0) + 10
  106.               INTO :empno
  107.               FROM EMP;
  108.  
  109. /* -----------------------------------------------------------------------------
  110.    read the user's input from STDIN.  If the employee name is
  111.    not entered, exit.
  112.    Verify that the entered department number is valid and echo the
  113.    department's name
  114. ----------------------------------------------------------------------------- */
  115.  
  116.    for( ; ; empno+=10 )
  117.      {
  118.      int l;
  119.  
  120.      /* Get employee name to be inserted.
  121.  
  122.         IMPORTANT NOTE: beware of coding as follows (I got burnt, 1st time):
  123.  
  124.           ename.len = asks("Enter employee name  : ", ename.arr);
  125.           if ( ename.len <= 0 )
  126.             ..etc..
  127.  
  128.         In the above, asks() returns an int, but ename.len is an unsigned
  129.         short (see SQLCA). Therefore, the "if" fails for <EOF> (which returns
  130.         -1) because, by definition, the unsigned short can't be negative.
  131.      */
  132.      l = asks("Enter employee name  : ",ename.arr);
  133.  
  134.      if ( l <= 0 )
  135.        break;
  136.  
  137.      ename.len = l;
  138.  
  139.      job.len = asks("Enter employee job   : ",job.arr);
  140.      askn("Enter employee salary: ",&sal);
  141.      for ( ; ; )
  142.        {
  143.        if ( askn("Enter employee dept  :   ",&deptno) < 0 )
  144.          break;
  145.  
  146.        EXEC SQL WHENEVER NOT FOUND GOTO nodept;
  147.        EXEC SQL SELECT DNAME
  148.                   INTO :dname
  149.                   FROM DEPT
  150.                   WHERE DEPTNO = :deptno;
  151.  
  152.        dname.arr[dname.len] = '\0';
  153.  
  154.        EXEC SQL WHENEVER NOT FOUND STOP;
  155.  
  156.        /* Here if deptno was found in dbs. Insert new employee into dbs. */
  157.  
  158.        EXEC SQL INSERT INTO EMP(EMPNO,ENAME,JOB,SAL,DEPTNO)
  159.                   VALUES (:empno,:ename,:job,:sal,:deptno);
  160.  
  161.        printf("\n%s added to the %s department as employee number %d\n",
  162.          ename.arr,dname.arr,empno);
  163.        break;
  164.  
  165.        /* Here if deptno NOT found in dbs */
  166.        nodept:
  167.          printf("\nNo such department\n");
  168.          continue;
  169.        }
  170.      }
  171.  
  172. /* -----------------------------------------------------------------------------
  173.    close the cursors and log off from ORACLE
  174. ----------------------------------------------------------------------------- */
  175.  
  176.    EXEC SQL COMMIT WORK RELEASE;
  177.    printf ("\nEnd of the C/ORACLE example program.\n");
  178.    return;
  179.  
  180. errexit:
  181.    errrpt();
  182.    EXEC SQL WHENEVER SQLERROR CONTINUE;
  183.    EXEC SQL ROLLBACK WORK RELEASE;
  184.    return;
  185. }
  186.  
  187. /*------------------------------------------------------------------------------
  188. COUNT askn(text,variable)
  189.  
  190.    print the 'text' on STDOUT and read an integer variable from
  191.    SDTIN.
  192.  
  193.    text points to the null terminated string to be printed
  194.    variable points to an integer variable
  195.  
  196.    askn returns a 1 if the variable was read successfully or a
  197.        -1 if -eof- was encountered
  198. ----------------------------------------------------------------------------- */
  199.  
  200. int askn(text,variable)
  201.    char text[];
  202.    int  *variable;
  203.    {
  204.    char s[20];
  205.    printf(text);
  206.    fflush(stdout);
  207.    if ( gets(s) == (char *)0 )
  208.      return(EOF);
  209.  
  210.    *variable = atoi(s);
  211.    return(1);
  212.    }
  213.  
  214. /* -----------------------------------------------------------------------------
  215. COUNT asks(text,variable)
  216.  
  217.    print the 'text' on STDOUT and read up to 'len' characters into
  218.    the buffer pointed to by variable from STDIN.
  219.  
  220.    text points to the null terminated string to be printed
  221.    variable points to a buffer of at least 'len'+1 characters
  222.  
  223.    asks returns the number of character read into the string, or a
  224.        -1 if -eof- was encountered
  225. ----------------------------------------------------------------------------- */
  226.  
  227. int asks(text,variable)
  228.    char text[],variable[];
  229.    {
  230.    printf(text);
  231.    fflush(stdout);
  232.    return( gets(variable) == (char *)0 ? EOF : strlen(variable) );
  233.    }
  234.  
  235. /* -----------------------------------------------------------------------------
  236. VOID errrpt()
  237.  
  238.    errrpt prints the ORACLE error msg and number.
  239. ----------------------------------------------------------------------------- */
  240.  
  241. errrpt()
  242.    {
  243.    printf("%.70s (%d)\n", sqlca.sqlerrm.sqlerrmc, -sqlca.sqlcode);
  244.    return(0);
  245.    }
  246.