cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include	<mscc.h>
#include <stdlib.h>
void	error	(int	i);

	EXEC SQL INCLUDE SQLCA;
	EXEC SQL BEGIN DECLARE SECTION ;
		char name[25],date[21],amount[9];
		char name1[25],date1[21],amount1[9];
	EXEC SQL END DECLARE SECTION ;

int	main (int argc, char** argv)
{
	EXEC SQL INIT;
	EXEC SQL DATABASE IS "TEST_DATABASE";

	EXEC SQL SELECT name, date, amount FROM loans INTO :name,:date,:amount
		WHERE amount MATCH "*00.00*";
	if(SQLCODE != 0)
		error(0);
	printf("%-26s %21s %10s \n",name,date,amount);

	EXEC SQL DECLARE c CURSOR FOR SELECT FROM loans
		WHERE amount MATCH "*5*";
	EXEC SQL OPEN c;
	if(SQLCODE != 0)
		error(1);
	printf("open c ok\n");
	do
	{
		EXEC SQL FETCH c name,date,amount INTO :name,:date,:amount;
		switch (SQLCODE)
		{
		case 0 :
			printf("%-26s %21s %10s \n",name,date,amount);
			break;
		case 100:
			break;
		case 1 :
			printf(" lock busy\n");
			break;
		default :
			error(2);
		}
	} while(SQLCODE == 0);

	strcpy (name1, "*a*");
	EXEC SQL CLOSE c;
	if(SQLCODE != 0) error(3);

	EXEC SQL DECLARE d CURSOR FOR SELECT FROM loans
		WHERE name SMATCH :name1;
	EXEC SQL OPEN d;
	if(SQLCODE != 0)
		error(4);
	printf("open d ok\n");
	do
	{
		EXEC SQL FETCH d name,date,amount INTO :name,:date,:amount;
		switch (SQLCODE)
		{
		case 0 :
			printf("%-26s %21s %10s \n",name,date,amount);
			break;
		case 100:
			break;
		case 1 :
			printf(" lock busy\n");
			break;
		default :
			error(5);
		}
	} while(SQLCODE == 0);

	EXEC SQL EXIT ;
	return 0;
}

void	error (int	i)
{
	printf("error number %d\n",i);
	printf("SQLCODE number %ld\n",SQLCODE);
	exit(1);
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Mosca                           4 May       1981    $200.00 
open c ok
Mosca                           2 February  1981    $150.00 
Jones                           7 February  1981     $33.95 
Kilroy                         16 February  1981    $250.00 
Wladislaw                      27 February  1981     $55.00 
Jones                           3 April     1981     $25.00 
Wladislaw                      12 May       1981     $25.00 
Peterson                        6 June      1981     $50.00 
Wladislaw                      25 June      1981     $75.00 
open d ok
Mosca                           2 February  1981    $150.00 
Wladislaw                      27 February  1981     $55.00 
Mosca                           4 May       1981    $200.00 
Wladislaw                      12 May       1981     $25.00 
Wladislaw                      25 June      1981     $75.00 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Select with match in where_clause
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
