cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program typf4
EXEC SQL INCLUDE SQLCA;
	integer error
EXEC SQL BEGIN DECLARE SECTION;
        character val(2,3) *25
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";
EXEC SQL SELECT name,date,amount FROM loans INTO :val(1,1),:val(1,2),:val(1,3) 
   WHERE name = "Kilroy";
        if(SQLRET.NE.0) then
	error=1
	goto 10
	endif
        print *,'select 1 ok'
EXEC SQL SELECT name,date,amount FROM loans INTO :val(2,1),:val(2,2),:val(2,3) 
   WHERE name = "Peterson";
        if(SQLRET.NE.0) then
	error=2
	goto 10
	endif
        print *,'select 2 ok'
	write (*,101) val(1,1),val(1,2),val(1,3)
	write (*,101) val(2,1),val(2,2),val(2,3)
 101    format (' ', A25, A25, A25)
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-+-+-+-+-+'
select 1 ok
select 2 ok
Kilroy                   16 February  1981        $250.00                  
Peterson                 6 June      1981         $50.00                   
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
dimension
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
