cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program dtl1
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION ;
        character *25 name,date *20,amount *8
        character *25 name1,date1 *20,amnt1 *8
EXEC SQL END DECLARE SECTION ;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";
EXEC SQL WHENEVER SQLERROR GOTO 10;
EXEC SQL WHENEVER NOT FOUND GOTO 5;
EXEC SQL SELECT name,date,amount FROM loans INTO :name,:date,:amount 
   WHERE name = "Kilroy";
        print *,'select 1 ok'
EXEC SQL INSERT INTO loans SET name,date,amount VALUES "DATAWARE",:date,:amount;
        print *,'insert ok'
EXEC SQL DELETE FROM loans WHERE name = "DATAWARE";
        print *,'delete ok'
EXEC SQL SELECT name,date,amount FROM loans INTO :name1,:date1,:amnt1 
   WHERE name = "DATAWARE";
	goto 10
5       print *,'select 2 ok'
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-+-+-+-+-+'
select 1 ok
insert ok
delete ok
select 2 ok
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Delete statement 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
