cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	program match
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO 70;
EXEC SQL BEGIN DECLARE SECTION;
	character *25 name, date *20, amount *9
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 smatch "*lad*"; 
	write (*,101) name,date,amount
 101    format (' ', A25, A20, A8)
EXEC SQL SELECT name, date, amount from loans 
		INTO :name, :date, :amount
		where name like
		"P[ei]*[kr]*";
	write (*,101) name,date,amount
EXEC SQL SELECT name, date, amount from loans 
		INTO :name, :date, :amount
		where name smatch "*LAd*"; 
	if (SQLRET .NE. 100) then
		write (*,101) name,date,amount
	endif
EXEC SQL EXIT;
	STOP
 70	continue
	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-+-+-+-+-+'
Wladislaw                27 February  1981   $55.00  
Peterson                 6 June      1981    $50.00  
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test of select using a match
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
