1 /*  START OF:       config_stok_card.incl.pl1     February 1982         *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 dcl  stok_cardp ptr;                                                  /* Pointer to s STOK card */
 4 
 5 dcl 1 stok_card based (stok_cardp) aligned,                 /* STOK card declaration */
 6     2 word char (4),                                        /* "stok" */
 7     2 n_record_stock_entries fixed bin,                     /* Number of record stock entries */
 8     2 n_vtoce_stock_entries fixed bin,                      /* Number of VTOCE stock entries */
 9 
10     2 pad (12) bit (36) aligned,                            /* pad to 15 fields */
11 
12     2 type_word aligned,
13       3 field_type (14) bit (2) unal,                       /* type of each field; see config_deck.incl.pl1 */
14       3 pad1 bit (4) unaligned,
15       3 n_fields fixed bin (4) unsigned unaligned;
16 
17 dcl  STOK_CARD_WORD char (4) aligned internal static options (constant) init ("stok");
18 
19 
20 /*  END OF:         config_stok_card.incl.pl1                 *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */