cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program erropn
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10; 
EXEC SQL BEGIN DECLARE SECTION;
	character testdb *100
	character loans *5
EXEC SQL END DECLARE SECTION;
	testdb = "DATABASE"
	loans = "loams"
EXEC SQL INIT;
EXEC SQL DATABASE IS :testdb;
EXEC SQL OPEN_TABLE :loans for update;
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-+-+-+-+-+'
SQLRET number     -1message is open table failed
table 'loams' does not exist                        
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open a non-existent table
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
SQLRET number     -1message is ơ֥򥪡ץǤޤǤ
ơ֥ 'loams' ¸ߤޤ
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
