home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / 7025PWA1.ZIP / SAMPLES.ZIP / SQLLIB / SAMPLES / C / UPDATED.SQC < prev   
Encoding:
Text File  |  1994-02-28  |  1.3 KB  |  49 lines
  1. #include <stdio.h>
  2. #include <string.h>
  3. #include <stdlib.h>
  4. #include <sqlenv_.h> /* :rk.1:erk. */
  5. #include <sql_.h>
  6. #include <sqlutil_.h>
  7. #include <sqlcode_.h>
  8. #include <sqlprep_.h>
  9. #include <sqlca_.h>
  10.  
  11. EXEC SQL INCLUDE SQLCA;  /* :rk.2:erk. */
  12.  
  13. int main(void)
  14. {
  15.    EXEC SQL BEGIN DECLARE SECTION;
  16.       char STATEMENT[80] = " "; /* :rk.3:erk. */
  17.    EXEC SQL END DECLARE SECTION;
  18.  
  19.    SQL_API_RC rc = 0;
  20.    printf( "\nSample C program for DOS:  UPDATE");
  21.    /* sqleisig NOT supported under DOS */
  22.  
  23.    EXEC SQL CONNECT TO sample IN SHARE MODE;  /* :rk.5:erk. */
  24.  
  25.    if ( SQLCODE != 0 ) {  /* :rk.6:erk. */
  26.       printf( "\nConnect to error:  SQLCODE = %ld", SQLCODE );
  27.       exit(1);
  28.    }
  29.  
  30.    strcpy( STATEMENT, /* :rk.7:erk. */
  31.            "UPDATE staff SET job = 'Clerk' WHERE job = 'Mgr'" );
  32.  
  33.    EXEC SQL EXECUTE IMMEDIATE :STATEMENT; /* :rk.8:erk. */
  34.    if ( SQLCODE != 0 )
  35.       printf( "\nUpdate error:  SQLCODE = %ld", SQLCODE );
  36.    else
  37.       printf( "\nAll managers demoted to clerk!" );
  38.  
  39.    EXEC SQL ROLLBACK; /* :rk.9:erk. */
  40.    printf( "\nOn second thought...changes rolled back." );
  41.  
  42.    EXEC SQL CONNECT RESET;  /* :rk.10:erk. */
  43.    if ( SQLCODE != 0 ) {
  44.       printf( "\nDisconnect error:  SQLCODE = %ld", SQLCODE );
  45.       exit(1);
  46.    }
  47.    return 0;
  48. }
  49.