cat > script.c <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
# include  <mscc.h>

int	msmain (argc, argv)
	int	argc;
	char	**argv;
{
	addr	pers_desc, name_desc, phone_desc, record_desc,
		qual, qualifier;
	char	*name_value, *phone_value;

	pers_desc = mropen (argv[1], "personnel", 'r');	

	record_desc = mrmkrec (pers_desc);
	name_desc = mrngeta (pers_desc, "name");
	phone_desc = mrngeta (pers_desc, "phone");
	name_value = mrspv (name_desc);
	phone_value = mrspv (phone_desc);

	printf ("Phone Numbers of Employees in Local Area\n\n");
	printf (" Name     Phone\n\n");
	fflush (stdout);

	qual = mrqmch ("match", phone_desc, "*961*");
	qualifier = mrgetbegin (qual, record_desc, ADDRNIL);
	while (mrget (qualifier))
	{
		mrcopyv (record_desc, name_desc, name_value);
		mrcopyv (record_desc, phone_desc, phone_value);
		printf ("%-12s%-12s\n", name_value, phone_value);
		fflush (stdout);
	}
	mrgetend (qualifier);

	mrfree (name_value);
	mrfree (phone_value);
	mrfrrec (record_desc);

	mrclose (pers_desc);
	return 0;
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.c
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Phone Numbers of Employees in Local Area

 Name     Phone

Scarlatti   9617363     
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Using "match", select all the records with the digits 961 in the phone #.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
