cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program errdl1
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 10; 
EXEC SQL BEGIN DECLARE SECTION;
	character testdb *100
EXEC SQL END DECLARE SECTION;
	testdb = "DATABASE"
EXEC SQL INIT;
EXEC SQL DATABASE IS :testdb;
EXEC SQL DECLARE c CURSOR for select from personnel;
EXEC SQL OPEN c;
EXEC SQL DELETE FROM personnel where current of c;
EXEC SQL CLOSE c;
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     -2message is record cannot be deleted
non-updatable mode for table 'personnel'     
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
delete record from cursor without having done a fetch
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
SQLRET number     -2message is 쥳ɤǤޤ
ơ֥ 'personnel' ιǤʤ⡼
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
