This routine opens its database on logical unit 1.
