示例 :C 中的 LOBLOC

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
EXEC SQL INCLUDE SQLCA;
 
int main(int argc, char *argv[]) {
  
   EXEC SQL BEGIN DECLARE SECTION; 
      char number[7];
      long deptInfoBeginLoc;
      long deptInfoEndLoc;
      SQL TYPE IS CLOB_LOCATOR resume;     [1]
      SQL TYPE IS CLOB_LOCATOR deptBuffer;
      short lobind;
      char buffer[1000]="";
      char userid[9];
      char passwd[19];
   EXEC SQL END DECLARE SECTION;
 
   printf( "Sample C program: LOBLOC\n" );
 
   if (argc == 1) {
      EXEC SQL CONNECT TO sample;
	  }
   else if (argc == 3) { 
      strcpy (userid, argv[1]);
      strcpy (passwd, argv[2]);
      EXEC SQL CONNECT TO sample USER :userid USING :passwd;
   }
   else {
      printf ("\nUSAGE: lobloc [userid passwd]\n\n");
      return 1;
   } /* endif */
   
   /* Employee A10030 is not included in the following select, because 
      the lobeval program manipulates the record for A10030 so that it is 
      not compatible with lobloc */
 
   EXEC SQL DECLARE c1 CURSOR FOR
            SELECT empno, resume FROM emp_resume WHERE resume_format='ascii' 
            AND empno <> 'A00130'; 
 
   EXEC SQL OPEN c1;
 
   do {
      EXEC SQL FETCH c1 INTO :number, :resume :lobind;  [2]
      if (SQLCODE != 0) break;
      if (lobind < 0) {
         printf ("NULL LOB indicated\n");
      } else {
         /* EVALUATE the LOB LOCATOR */
         /* Locate the beginning of "Department Information" section */
         EXEC SQL VALUES (POSSTR(:resume, 'Department Information'))
            INTO :deptInfoBeginLoc;
 
         /* Locate the beginning of "Education" section (end of "Dept.Info" */
         EXEC SQL VALUES (POSSTR(:resume, 'Education'))
            INTO :deptInfoEndLoc;
 
         /* Obtain ONLY the "Department Information" section by using SUBSTR */
         EXEC SQL VALUES(SUBSTR(:resume, :deptInfoBeginLoc,
            :deptInfoEndLoc - :deptInfoBeginLoc)) INTO :deptBuffer;
 
         /* Append the "Department Information" section to the :buffer var. */
         EXEC SQL VALUES(:buffer || :deptBuffer) INTO :buffer;
      } /* endif */
   } while ( 1 );
 
   printf ("%s\n",buffer);
 
   EXEC SQL FREE LOCATOR :resume, :deptBuffer; [3]
 
   EXEC SQL CLOSE c1;
 
   EXEC SQL CONNECT RESET;
   return 0;
}
/* end of program : LOBLOC */