cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program typf2
EXEC SQL INCLUDE SQLCA s1;
	integer error
EXEC SQL BEGIN DECLARE SECTION;
        character *25 name,date *20,amount *8
	common /cmn1/name,date,amount
EXEC SQL END DECLARE SECTION;
EXEC SQL INIT;
EXEC SQL DATABASE IS "DATABASE";
EXEC SQL SELECT name,date,amount FROM loans INTO :name,:date,:amount
   WHERE name = "Kilroy";
        if(SQLRET.NE.0) then
	error=1
	goto 10
	endif
	call typf2_1
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
EXEC SQL EXIT ;
	stop
10	print *,'error number ',error
	print *,'SQLRET number ',SQLRET
EXEC SQL EXIT ;
	stop
	end

	subroutine typf2_1
EXEC SQL INCLUDE SQLCA s1;
	integer error2
EXEC SQL BEGIN DECLARE SECTION;
        character *25 name1,date1 *20,amount1 *8
	common /cmn1/name1,date1,amount1
EXEC SQL END DECLARE SECTION;
	write (*,102) name1,date1,amount1
 102    format (' ', A25, A20, A8)
EXEC SQL SELECT name,date,amount FROM loans INTO :name1,:date1,:amount1 
   WHERE name = "Peterson";
        if(SQLRET.NE.0) then
	error2=1
	goto 110
	endif
	return
110	print *,'error number ',error2
	print *,'SQLRET number ',SQLRET
	stop
	end
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Kilroy                   16 February  1981   $250.00 
Peterson                 6 June      1981    $50.00  
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
use of common
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
