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;

	mscall (argv[1],
		"update personnel set phone to null where name match '*o*'");
	mscall (argv[1], "select from personnel");

	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);

	printf("Employees with Unknown Phone Numbers:\n\n");
	fflush (stdout);

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

	mrfree (name_value);
	mrfrrec (record_desc);

	mrclose (pers_desc);
	return 0;
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.c
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
name             char2                 char3                      sint  number        phone              date1               date2     date3     date4      date5       date6       date7       date8  credit_limit         dollar2

Kilroy             kilroy              Kilroy                        1      10                2 February  1981  February   2, 1981  02/02/81  02/02/81   2 Feb 81  Feb  2, 81  02/02/1981  02/02/1981       $500.00   $******500.00
Jones             Jones                  jone s                      3       3               22 January   1981  January   22, 1981  01/22/81  22/12/81  22 Jan 81  Jan 22, 81  01/22/1981  22/01/1981       $500.00   $******500.00
Mosca              Mosca               Mosca                         5       5               27 December  1980  December  27, 1980  12/27/80  27/12/80  27 Dec 80  Dec 27, 80  12/27/1980  27/12/1980       $750.00   $******750.00
Waldislaw        waldislaw             W a l d i s l a w             7      17      7236073  30 November  1980  November  30, 1980  11/30/80  30/11/80  30 Nov 80  Nov 30, 80  11/30/1980  30/11/1980       $200.00   $******200.00
Peterson            Peterson            p eterson                    9     888               20 May       1981  May       20, 1981  05/20/81  20/05/81  20 May 81  May 20, 81  05/20/1981  20/05/1981       $250.00   $******250.00
Scarlatti         Scarlatti              scar l atti                11     177      9617363   2 February  1982  February   2, 1982  02/02/82  02/02/82   2 Feb 82  Feb  2, 82  02/02/1982  02/02/1982       $100.00   $******100.00
Employees with Unknown Phone Numbers:

Kilroy      
Jones       
Mosca       
Peterson    
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Select those employees that have an unspecified phone number.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
