Insert a simple large object from a named file

EXEC SQL BEGIN DECLARE SECTION;
   mlong cat_num;
   loc_t cat_descr;
EXEC SQL END DECLARE SECTION;


   cat_descr.loc_loctype = LOCMEMORY;         /* set loctype for in memory */
   cat_descr.loc_bufsize = -1;                /* let server get memory */
   EXEC SQL select catalog_num, cat_descr     /* verify catalog number */
       into :cat_num, :cat_descr from catalog
      where catalog_num = :cat_num;

   /* if error,display and quit */
   if ((ret = exp_chk2("SELECT", WARNNOTIFY)) == 100) 
      {
      printf("\nCatalog number %ld not found in catalog table\n",
         cat_num);
      EXEC SQL disconnect current;
      printf("UPDCD_NF Sample Program over.\n\n");
      exit(1);
      }
   if(ret<0)
      {
      EXEC SQL disconnect current;
      printf("UPDCD_NF Sample Program over.\n\n");
      exit(1);
      }
   prdesc();                                   /* print current cat_descr */

   /* Update? */
   ans[0] = ' ';
   while((ans[0] = LCASE(ans[0]))  != 'y' && ans[0]  != 'n')
      {
      printf("Update this description? (y/n) ");
      scanf("%1s", ans);
      }
   if(ans[0] == 'y')
      {
      cat_descr.loc_loctype = LOCFNAME;       /* set type to named file */
      cat_descr.loc_fname = descfl;           /* supply file name */
      cat_descr.loc_oflags = LOC_RONLY;       /* set file-open mode (read) */
      cat_descr.loc_size = -1;                /* set size to size of file */
      EXEC SQL update catalog
         set cat_descr = :cat_descr           /* update cat_descr column */
         where catalog_num = :cat_num;
      if(exp_chk2("UPDATE", WARNNOTIFY) < 0)   /* check status */
         {
         EXEC SQL disconnect current;
         printf("UPDCD_NF Sample Program over.\n\n");
         exit(1);
         }
      printf("Update complete.\n");
      }