cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program errin1
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10; 
EXEC SQL BEGIN DECLARE SECTION;
	character testdb *100
	character name *20, date *20, amount *9 
EXEC SQL END DECLARE SECTION;
	testdb = "DATABASE"
EXEC SQL INIT;
EXEC SQL DATABASE IS :testdb;
EXEC SQL INSERT INTO loans set name, date, amount values "McGillicuddy", 
		"37 March 1987", 250;
EXEC SQL SELECT name, date, amount FROM loans into :name, :date, :amount where 
		name = "McGillicuddy";
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
EXEC SQL EXIT;
	STOP
 10	write (*,1001) SQLRET, sqltxt
 1001	format (' ', "SQLRET number ", I6, "message is ", A200)
EXEC SQL EXIT ;
	STOP
	END
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
SQLRET number     -3message is conversion error during insert (msmp_api_putvs() or msmp_api_putvi() error)
conversion error for attribute 'date': value '37 March 1987'
invalid day                                                    
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
insert that causes a conversion error.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
SQLRET number     -3message is Ѵ顼 (msmp_api_putvs()  msmp_api_putvi() 顼)
Ѵ顼 ȥӥ塼 'date':  '37 March 1987' 
աˤλ꤬㤤ޤ                                                       
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
