cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include	<mscc.h>
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION ;
char *name,pname[25],date[21],amount[9];
char name1[25],date1[21],amount1[9];
char *att;
short i;
EXEC SQL END DECLARE SECTION ;
int	main (int argc, char** argv)
{
EXEC SQL WHENEVER SQLERROR GOTO err;
EXEC SQL INIT;
EXEC SQL DATABASE IS "TEST_DATABASE";
EXEC SQL SELECT name,date,amount FROM loans INTO :name,:date,:amount 
   WHERE name = "Kilroy";
printf("select 1 ok\n");
name = "DATAWARE";
att="name";
i=0;
EXEC SQL INSERT INTO loans SET name,date,amount VALUES :name,:date,:amount;
printf("insert ok\n");
EXEC SQL DELETE FROM loans WHERE attr :att = :name:i;
printf("delete ok\n");
EXEC SQL WHENEVER NOT FOUND GOTO good;
strcpy(pname,"name");
EXEC SQL SELECT name,date,amount FROM loans INTO :name1,:date1,:amount1 
   WHERE :pname = :name;
goto err;
good: printf("select 2 ok\n");
EXEC SQL EXIT ;
return(0);
err:
	printf("SQLCODE number %ld\n",SQLCODE);
	return(1);
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
select 1 ok
insert ok
delete ok
select 2 ok
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Pointers and control variables in insert,where clause and delete
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
