cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program ctrl1
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10;
EXEC SQL BEGIN DECLARE SECTION;
	character *25 name, date *20, amount *9
	character *25 name1, date1 *20, amnt1 *9
	integer*2  i, j, k
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";

EXEC SQL SELECT name, date, amount FROM loans into :name:k, :date, :amount
		WHERE name = "Kilroy";
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
	i = 0
	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";
	write (*,101) name,date,amount
	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, :amnt1
		WHERE name = "Kilroy";
	write (*,101) name1,date1,amnt1
EXEC SQL EXIT;
	STOP
 10	write (*,1001) SQLRET, sqltxt
 1001	format (' ', "SQLRET number = ", I6, "MESSAGE IS ", A70)
EXEC SQL EXIT;
	STOP
	END
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
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
