divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`DB_RPERM',dbrpqq)define(`DB_WPERM',dbwpqq)define(`DB_MS_FD',dbmsfd)
ifdef(`SRCHLEN',,`define(`SRCHLEN',30)')
divert(0)
common/dbcmnb/DB_RPERM(SRCHLEN),DB_WPERM(SRCHLEN),DB_MS_FD(SRCHLEN)
logical DB_RPERM,DB_WPERM; integer DB_MS_FD
SCCS_ID(92376,`@(#)'db.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
