1 /* BEGIN INCLUDE FILE mrds_dsm_relation_names.incl.pl1 -- nsd 81/01/12 */
 2 
 3 /*
 4 This include file is for internal mrds use only. It  is  used  to
 5 return an array of submodel relation names.
 6 
 7 HISTORY
 8 
 9 81-01-12 Davids: written
10 
11 81-09-14 Davids: changed relation to char (32) from char (64). 64
12 was  a  proposed  maximum  but  could not be implemented. Several
13 modules would not compile when compiled with  -prefix  stringsize
14 becuase they made assignments of the form char (32) = char (64).
15 */
16 
17 dcl 1 mrds_dsm_relation_names based (mrds_dsm_relation_names_ptr),
18     2 nrels fixed bin,
19     2 relation (mrds_dsm_relation_names_nrels_alloc refer (mrds_dsm_relation_names.nrels)) char (32);
20 
21 dcl  mrds_dsm_relation_names_nrels_alloc fixed bin;
22 
23 dcl  mrds_dsm_relation_names_ptr ptr;
24 
25 /* END INCLUDE FILE mrds_dsm_relation_names.incl.pl1 */
26