1 /* BEGIN INCLUDE FILE ... config_parm_card.incl.pl1 ... 11/27/80 W. Olin Sibert */
 2 
 3 dcl parm_cardp pointer;                                     /* pointer to PARM card */
 4 
 5 dcl 1 parm_card aligned based (parm_cardp),                 /* PARM card declaration */
 6     2 word char (4),                                        /* "parm" */
 7     2 options (14) char (4),                                /* Parameters and their values */
 8 
 9     2 type_word aligned,
10       3 field_type (14) bit (2) unaligned,                  /* type of each field; see config_deck.incl.pl1 */
11       3 pad1 bit (4) unaligned,
12       3 n_fields fixed bin (4) unsigned unaligned;          /* number of fields used on card */
13 
14 dcl 1 parm_card_array based (parm_cardp),                   /* Overlay for counting options */
15     2 pad bit (36) aligned,
16     2 options (parm_card.n_fields) bit (36) aligned;
17 
18 
19 dcl  parm_ptr pointer;                                      /* For use with config$find_parm */
20 
21 dcl 1 numeric_parm aligned based (parm_ptr),                /* Overlay into middle of card for looking */
22     2 name char (4),                                        /* at a parameter found by config$find_parm */
23     2 value fixed bin (35);
24 
25 dcl 1 string_parm aligned based (parm_ptr),
26     2 name char (4),
27     2 value char (4);
28 
29 dcl  PARM_CARD_WORD char (4) aligned internal static options (constant) init ("parm");
30 
31 /* END INCLUDE FILE ... config_parm_card.incl.pl1 */