cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include <mscc.h>
#include <stdlib.h>
void	error ();
EXEC SQL INCLUDE SQLCA;

	EXEC SQL WHENEVER SQLERROR GOTO fin;
	EXEC SQL BEGIN DECLARE SECTION ;
		char name[25],date[21],amount[9];
		char name1[25],date1[21],amount1[9];
		short i,j,k;
	EXEC SQL END DECLARE SECTION ;

int	main (int argc, char** argv)
{
	EXEC SQL INIT;
	EXEC SQL DATABASE IS "TEST_DATABASE";

	EXEC SQL SELECT name,date,amount FROM loans INTO :name:k,:date,:amount 
		WHERE name = "Kilroy";
	printf("%s*%s*%s*\n",name,date,amount);
	fflush(stdout);

	i = j = 0;
	EXEC SQL UPDATE loans SET name,date,amount VALUES :name:i,:date,
		:amount:j WHERE name = "Kilroy";

	EXEC SQL SELECT name,date,amount FROM loans INTO :name,:date,:amount 
		WHERE name = "Kilroy";
	printf("%s*%s*%s*\n",name,date,amount);
	fflush(stdout);
	i = -1;

	EXEC SQL UPDATE loans SET name,date,amount VALUES :name,:date,:amount:i 
		WHERE name = "Kilroy";
	EXEC SQL SELECT name,date,amount FROM loans INTO :name1,:date1,:amount1 
		WHERE name = "Kilroy";
	printf("%s*%s*%s*\n",name1,date1,amount1);
	fflush(stdout);

	EXEC SQL EXIT ;
	exit(0);

fin: error();
	return 0;
}
void error()
{
	printf("SQLCODE number %ld\n",SQLCODE);
	exit(1);
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Kilroy*16 February  1981*$250.00*
Kilroy*16 February  1981*$250.00*
Kilroy*16 February  1981**
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test of control variables in update statement
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
