cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include	<mscc.h>
#include <stdlib.h>
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;
EXEC SQL END DECLARE SECTION ;
int	main (int argc, char** argv)
{
	EXEC SQL INIT;
	EXEC SQL DATABASE IS "TEST_DATABASE";
	EXEC SQL DECLARE c CURSOR FOR SELECT FROM loans  FOR UPDATE;
	EXEC SQL OPEN c;
	EXEC SQL WHENEVER NOT FOUND GOTO cont1;
	do {
	EXEC SQL FETCH c name,date,amount INTO :name,:date,:amount;
	printf("%s %s %s \n",name,date,amount);
	} while(1);
cont1:	;
	i = -1;
	/* inserer des nulls */
	EXEC SQL INSERT INTO loans SET name,date,amount VALUES "DATAWARE",
		:date:i,:amount:i;
	EXEC SQL CLOSE c;
	EXEC SQL DECLARE d CURSOR FOR SELECT FROM loans where name="DATAWARE"
	FOR UPDATE;
	EXEC SQL OPEN d;
	EXEC SQL WHENEVER NOT FOUND GOTO cont2;
	EXEC SQL FETCH d name,date,amount INTO :name,:date,:amount;
	printf("%s %s %s \n",name,date,amount);
	EXEC SQL UPDATE loans SET name VALUES :name:i WHERE CURRENT OF d;
cont2:	;
	EXEC SQL CLOSE d;
	EXEC SQL DECLARE e CURSOR FOR SELECT FROM loans ;
	EXEC SQL OPEN e;
	EXEC SQL WHENEVER NOT FOUND GOTO cont3;
	do {
	EXEC SQL FETCH e name,date,amount INTO :name,:date,:amount;
	printf("%s %s %s \n",name,date,amount);
	} while(1);
cont3:	;
	EXEC SQL EXIT ;
	exit(0);
fin:	;
	printf("SQLCODE number %ld\n",SQLCODE);
	exit(1);
	return 0;
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Mosca 2 February  1981 $150.00 
Jones 7 February  1981 $33.95 
Kilroy 16 February  1981 $250.00 
Wladislaw 27 February  1981 $55.00 
Jones 3 April     1981 $25.00 
Mosca 4 May       1981 $200.00 
Wladislaw 12 May       1981 $25.00 
Peterson 6 June      1981 $50.00 
Wladislaw 25 June      1981 $75.00 
Jones 12 August    1981 $300.00 
DATAWARE   
Mosca 2 February  1981 $150.00 
Jones 7 February  1981 $33.95 
Kilroy 16 February  1981 $250.00 
Wladislaw 27 February  1981 $55.00 
Jones 3 April     1981 $25.00 
Mosca 4 May       1981 $200.00 
Wladislaw 12 May       1981 $25.00 
Peterson 6 June      1981 $50.00 
Wladislaw 25 June      1981 $75.00 
Jones 12 August    1981 $300.00 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test of control variables in insert and update statement
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
