cat > input <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
select from t1;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 input
cat > script.c <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include <mscc.h>

int	msmain (argc, argv)
	int	argc;
	char	**argv;
{
	addr stock_tabdesc1, stock_tabdesc2, stock_tabdesc3, stock_attrdesc1,
	stock_attrdesc2, stock_attrdesc3, stock_attrdesc4, stock_attrdesc5, 
	stock_attrdesc6, stock_recdesc1, stock_recdesc2,
	stock_recdesc3; 

	stock_tabdesc1 = mropen (argv[1],"t1",'u');
	stock_tabdesc2 = mropen (argv[1],"t2",'u');
	stock_tabdesc3 = mropen (argv[1],"t3",'u');

	stock_attrdesc1 = mrigeta (stock_tabdesc1, 1);
	stock_attrdesc2 = mrigeta (stock_tabdesc1, 2);
	stock_attrdesc3 = mrigeta (stock_tabdesc2, 1);
	stock_attrdesc4 = mrigeta (stock_tabdesc2, 2);
	stock_attrdesc5 = mrigeta (stock_tabdesc3, 1);
	stock_attrdesc6 = mrigeta (stock_tabdesc3, 2);

	stock_recdesc1 = mrmkrec (stock_tabdesc1);
	stock_recdesc2 = mrmkrec (stock_tabdesc2);
	stock_recdesc3 = mrmkrec (stock_tabdesc3);

	mrtrstart();

	if (! mrputvs (stock_recdesc1,stock_attrdesc1,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit (1);
	}
	else if (! mrputvs (stock_recdesc1,stock_attrdesc2,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit (1);
	}
	else if (! mrputvs (stock_recdesc2,stock_attrdesc3,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit (1);
	}
	else if (! mrputvs (stock_recdesc2,stock_attrdesc4,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit(1);
	}
	else if (! mrputvs (stock_recdesc3,stock_attrdesc5,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit(1);
	}
	else if (! mrputvs (stock_recdesc3,stock_attrdesc6,"25"))
	{
		fprintf(stderr,"Amount conversion unsuccessful\n");
		msexit(1);
	}
	else
		printf("Conversion successful\n"); 

	mrtadd (stock_recdesc1);
	mrtadd (stock_recdesc2);
	mrtadd (stock_recdesc3);

	mraddend (stock_recdesc1);
	mraddend (stock_recdesc2);
	mraddend (stock_recdesc3);

	mrtrcancel ();

	mrfrrec (stock_recdesc1);
	mrfrrec (stock_recdesc2);
	mrfrrec (stock_recdesc3);

	mrclose (stock_tabdesc1);
	mrclose (stock_tabdesc2);
	mrclose (stock_tabdesc3);

	return 0;
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.c
cat > script.ms <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
create t1 (
        number1    longinteger,
        number2    longinteger
);
lock level on t1 is record;
create t2 (
	number3    longinteger,
	number4    longinteger
);
lock level on t2 is record;
create t3 (
	number5    longinteger,
	number6    longinteger
);
lock level on t3 is record;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script.ms
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* . . . * * . . . * * . . . * * Conversion successful
*     number1      number2

* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Test for mrtrcancel().
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
