embedded SQL in legacy C code --- fetch issue

Ranch Hand

Posts: 79

posted 13 years ago

Number of slices to send:

Optional 'thank-you' note:

Send

I really need some help.
I have embedded SQL in legacy C code.
THis is a code snippet: the C code opens a .txt file, and uploads data into a temp table, this happens correctly.
Then a cursor is declared (mastempc) to fetch one row at a time and process it.
The cursor does fetch all records from the temp table in the defined order, but at the second record, it seems the fetch has a hiccup of some sort:
the data fecthed are null (it prints the "WRONG" and the data in the insert it tries to do, then it continues ... I cannot figure out why.
There are no null records in the temp table ...
I woudl really appreciate.

exec sql DECLARE mastempc CURSOR FOR
            SELECT myvalue, stock_no from temp_table
            FROM  order by stock_no;
   if (sqlca.sqlcode != SQLSUCCESS)
      printsqlstat("DECLARE mastempc Cursor");

exec sql OPEN mastempc;
   if (sqlca.sqlcode != SQLSUCCESS)
      printsqlstat("OPEN mastempc Cursor");

exec sql FETCH mastempc INTO :myvalue;
   if (sqlca.sqlcode != SQLSUCCESS)
      printsqlstat("Error Fetching 1st Cursor mastempc");
   
   if (sqlca.sqlcode == SQLSUCCESS)
   {
 
      exec sql FETCH mastempc INTO :newmyvalue, :newstock_no;
      if (sqlca.sqlcode != SQLSUCCESS)
         printsqlstat("Error Fetching 2nd Cursor mastempc");
   }

while (sqlca.sqlcode != SQLNOTFOUND)
   {
   
   printf ("%s -- ", myvalue);
   
      if ((strcmp(stock_no, nstock_no) != 0) || (sqlca.sqlcode == SQLNOTFOUND))
      {
         exec sql INSERT INTO tablename (myvalue, stock_no )  VALUES (RTrim(:myvaue), RTrim(:stock_no));
	         
                  if (sqlca.sqlcode != SQLSUCCESS){
	            
                         fprintf(fileout, "WRONG ...");
	   			 
	   			            
	            }
         else
         {
            exec sql commit;
            fprintf(fileout, "insert...");
            level = nlevel;
            crit_qty = ncrit_qty;
       		printf("Commit insert\n");     
         }
      }/*if*/
      else
      {
         crit_qty += ncrit_qty;
         level += nlevel;
         printf("Else add crit_qty and level\n");
      }
	
      strcpy(myvalue, newmyvalue);
   
       exec sql FETCH mastempc INTO :newmyvalue, :newstock_no;

if (sqlca.sqlcode != SQLSUCCESS) {
      		printsqlstat("Error Fetching 2nd Cursor mastempc");
   				break;
   			}
        
   
   }

Grace Green

Ranch Hand

Posts: 79

posted 13 years ago

Number of slices to send:

Optional 'thank-you' note:

Send

It does not seem to process the last line, and at the fetch I get an error ORA-01403: no data found

Consider Paul's rocket mass heater.