cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program var1
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10; 
EXEC SQL BEGIN DECLARE SECTION;
	character *25 name, date *20, amount *8
	character *25 nam, pers *20, testdb *100, tab *30, dat *20, am *10
EXEC SQL END DECLARE SECTION;
	nam = "name"
	pers = "Kilroy"
	testdb = "DATABASE"
	tab = "loans"
	dat = "date"
	am = "amount"
EXEC SQL INIT;
EXEC SQL DATABASE IS :testdb;
EXEC SQL OPEN_TABLE :tab FOR READ;
	print *, "open ok"
EXEC SQL SELECT :nam, :dat, :am FROM :tab INTO :name, :date, :amount
		WHERE :nam = :pers;
	print *, "select ok"
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
EXEC SQL CLOSE_TABLE :tab;
EXEC SQL EXIT;
	STOP
 10	print *, "SQLRET number ", SQLRET
EXEC SQL EXIT ;
	STOP
	END
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open ok
select ok
Kilroy                   16 February  1981   $250.00 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
testing variables at all levels (database, table, attribute, value)
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
