cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program opn8
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10;
EXEC SQL BEGIN DECLARE SECTION;
	character *60 testdb *100, tab *40
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
	testdb = "DATABASE"
	tab = "loans"
EXEC SQL DATABASE IS :testdb;
EXEC SQL OPEN_TABLE :tab FOR READ;
	print *, "open ok"
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
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open and close statement with variables
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
