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 / STATIC.SQC < prev    next >
Encoding:
Text File  |  1994-02-28  |  976 b   |  40 lines
  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <string.h>
  4. #include <sqlenv.h>
  5.  
  6. EXEC SQL INCLUDE SQLCA; /* :rk.1:erk. */
  7.  
  8. int main(void)
  9. {
  10.    EXEC SQL BEGIN DECLARE SECTION;
  11.       char TABLENAME[20]; /* :rk.2:erk. */
  12.    EXEC SQL END DECLARE SECTION;
  13.  
  14.    (void)sqleisig( &sqlca );
  15.  
  16.    printf( "Sample C program: STATIC\n" );
  17.    EXEC SQL CONNECT TO sample IN SHARE MODE;  /* :rk.3:erk. */
  18.  
  19.    EXEC SQL WHENEVER SQLERROR GO TO error; /* :rk.4:erk. */
  20.  
  21.    EXEC SQL  /* :rk.5:erk. */
  22.       SELECT NAME INTO :TABLENAME
  23.          FROM SYSIBM.SYSTABLES WHERE NAME = 'SYSPLAN';
  24.  
  25.    printf( "Table = %s\n", TABLENAME );
  26.    goto ext;
  27.  
  28. error:  /* :rk.6:erk. */
  29.    printf( "Select Error:  SQLCODE = %ld.\n", SQLCODE );
  30.  
  31. ext:
  32.    EXEC SQL WHENEVER SQLERROR CONTINUE; /* :rk.7:erk. */
  33.    EXEC SQL CONNECT RESET;  /* :rk.8:erk. */
  34.    if ( SQLCODE != 0 ) {
  35.       printf( "\nDisconnect Error:  SQLCODE = %ld", SQLCODE );
  36.       exit(1);
  37.    }
  38.    return 0;
  39. }
  40.