cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program var2
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION;
	character *25 name, date *20, amount *8
	character *25 nam, dat *20, am *7, tab *10
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
EXEC SQL WHENEVER SQLERROR GOTO 30;
EXEC SQL DATABASE IS "DATABASE";
	nam = "name"
	dat = "date"
	am = "amount"
	tab = "loans"
EXEC SQL DECLARE c CURSOR FOR SELECT :nam, :dat, :am FROM :tab FOR UPDATE;
EXEC SQL OPEN c;
	print *, "open c ok"
EXEC SQL WHENEVER NOT FOUND GOTO 20;
 10	continue
EXEC SQL FETCH c :nam, :dat, :am INTO :name, :date, :amount;
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
	goto 10
 20	continue
EXEC SQL CLOSE c;
	print *, "close c ok"
EXEC SQL EXIT;
	STOP
 30	print *, "SQLRET number ", SQLRET
EXEC SQL EXIT ;
	STOP
	END
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open c ok
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 
close c ok
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
variable and cursor manipulation
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
