EXEC SQL BEGIN DECLARE SECTION;
   char buf[513];
EXEC SQL END DECLARE SECTION;
 
EXEC SQL BEGIN DECLARE SECTION;
        char db[64];
        char n[4], s[10], c[4], loc[3];
        char dt_on[24];
        char dt_off[24];
        int recordlen = BLKSIZE; /* BLKSIZE = 4096 */
        long total;
        long offset = 0;
        long amount = 512;
EXEC SQL END DECLARE SECTION;
int done = 0;

/* Code to load n, s, c, loc, dt_on, dt_off and to open database connection. */

 EXEC SQL AT :db EXECUTE
        DECLARE
        myclob CLOB;
        BEGIN
          DBMS_LOB.createtemporary(myclob, TRUE, DBMS_LOB.session);
          mypkg.myproc(:n, :s, :c, :loc, :dt_on, :dt_off, myclob, :recordlen);
         :total := DBMS_LOB.GETLENGTH(myclob);
       END;
       END-EXEC;

/* Read CLOB. */
while (!done) {
            fprintf(stderr, "offset=%ld\n", offset);

            EXEC SQL AT :sisdb EXECUTE
            BEGIN
              DBMS_LOB.READ(myclob, :amount, :offset, :buf);
            END;
            END-EXEC;
        offset += amount;
        if (offset >= total) { done = 1; }
        fprintf(stderr, "buf len=%d\n", strlen(buf));
        put_data(fp, buf, strlen(buf)); /* Function that uses fwrite to write buf to open file stream. */
}

 typedef struct {short len; char arr[513];} vc;

EXEC SQL BEGIN DECLARE SECTION;
   EXEC SQL TYPE vc IS VARCHAR(512);
   vc buf;
EXEC SQL END DECLARE SECTION;