1 /*  START OF:       config_dbmj_card.incl.pl1     October 1982          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 dcl   dbmj_cardp ptr;                                       /* Pointer to a DBMJ card */
 4 
 5 dcl 1 dbmj_card based (dbmj_cardp) aligned,                 /* DBMJ card declaraction */
 6     2 word char (4),                                        /* "dbmj" */
 7     2 n_journals fixed bin,                                 /* Number of journals */
 8     2 max_held_pages fixed bin,                             /* Maximum number of held pages */
 9     2 per_aste_pool (0:3) fixed bin,                        /* Maximum number of active segments by pool */
10     2 pad (8) bit (36) aligned,                             /* pad to 15 fields */
11 
12     2 type_word aligned,
13       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
14       3 pad1 bit (4) unaligned,
15       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields on card */
16 
17 dcl  DBMJ_CARD_WORD char (4) aligned internal static options (constant) init ("dbmj");
18 
19 /*  END OF:         config_dbmj_card.incl.pl1                 *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */