cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program open4
EXEC SQL INCLUDE SQLCA;
	integer error
EXEC SQL BEGIN DECLARE SECTION ;
EXEC SQL END DECLARE SECTION ;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";
EXEC SQL OPEN_TABLE loans FOR READ, personnel FOR READ;
	if(SQLRET.NE.0)  then
	error=0
	goto 10
	endif
	print *,'open ok'
EXEC SQL EXIT ;
	stop
10	print *,'error number ',error
	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 without close statement (4)
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
