delete
from     detail d1
where    d1.c_change     in (select h.c_change
                                  from   support     isc,
                                         detail  cpd,
                                         head    h
                                  where  h.actdate       = to_date('12-dec-2008 00:00:00','DD-MON-YYYY HH24:MI:SS')
                                  and    h.c_change       = d.cost_change
                                  and    cpd.item              = isc.item
                                  and    cpd.supplier          = isc.supplier
                                  and    cpd.country = isc.id
                                  and    cpd.cost         = isc.cost)

delete
from     head h
where    h.act    = to_date('12-dec-2008 00:00:00','DD-MON-YYYY HH24:MI:SS')
and      not exists        (select 1
                            from   detail cpd
                            where  cpd.cost_change      = h.cost_change)

EXEC SQL DELETE FROM head h
               WHERE  h.act = to_date('12-dec-2008 00:00:00','DD-MON-YYYY HH24:MI:SS')
                 AND  not exists (select 1
                                    from detail cpd
                                   where cpd.cost_change = h.cost_change);

select A.ename,A.job,A.sal from EMP  A where A.EMPNO in 
           (select B.empno from emp B,emp A where B.hiredate=to_date('1-jun-83','dd-mon-yy')
             and  a.ename=b.ename
             and  a.deptno=b.deptno)

#include <stdio.h> 
#include <sqlca.h>

void sqlerror(); 

EXEC SQL BEGIN DECLARE SECTION; 
char *connstr = "scott/tiger"; 
EXEC SQL END DECLARE SECTION; 

void main() { 
	EXEC SQL WHENEVER SQLERROR DO sqlerror(); 
	EXEC SQL WHENEVER SQLWARNING CONTINUE; 
	EXEC SQL CONNECT :connstr; 

	EXEC SQL WHENEVER NOTFOUND GOTO notfound; 
	EXEC SQL select A.ename,A.job,A.sal from EMP  A where A.EMPNO in 
           (select B.empno from emp B,emp A where B.hiredate=to_date('1-jun-83','dd-mon-yy')
             and  a.ename=b.ename
             and  a.deptno=b.deptno)



notfound:
	printf("Employee record not found in database.\n");
	return; 
} 

void sqlerror() { 
	printf("Stop Error:\t%25i\n", sqlca.sqlcode); 
	return; 
}

#include <stdio.h>
EXEC SQL BEGIN DECLARE SECTION;
char *connstr = "scott/tiger";
EXEC SQL END DECLARE SECTION;
void main()
 {
EXEC SQL CONNECT :connstr;
EXEC SQL select A.ename,A.job,A.sal from EMP  A where A.EMPNO in 
           (select B.empno from emp B,emp A where B.hiredate=to_date('1-jun-83','dd-mon-yy')
             and  a.ename=b.ename
             and  a.deptno=b.deptno);
}

ERROR IS
sample.pc[2]: EXEC:  not found.
sample.pc[3]: char:  not found.
sample.pc[4]: EXEC:  not found.
sample.pc[6]: 0403-057 Syntax error at line 6 : `(' is not expected.

#include <stdio.h>
#include <sqlca.h>

void sqlerror();

EXEC SQL BEGIN DECLARE SECTION;
char *connstr = "scott/tiger";
int  c_change;
EXEC SQL END DECLARE SECTION;

void main() {
        EXEC SQL WHENEVER SQLERROR DO sqlerror();
        EXEC SQL WHENEVER SQLWARNING CONTINUE;
        EXEC SQL CONNECT :connstr;

        EXEC SQL WHENEVER NOTFOUND GOTO notfound;
        EXEC SQL SELECT cost_change
                 INTO   c_change
                 FROM   sup_head csh,sup_detail csd
                 WHERE  csh.sup_head=csd.sup_detail;

found:
        printf("%s is in department %i\n", c_change);
        return;

notfound:
        printf("costchange record not found in database.\n");
        return;
}

void sqlerror() {
        printf("Stop Error:\t%25i\n", sqlca.sqlcode);
        return;
}

ssk_sample.pc[4]: 0403-057 Syntax error at line 4 : `(' is not expected.