1 /* BEGIN INCLUDE FILE ... config_ipc_card.incl.pl1 ... */
 2 /****^  HISTORY COMMENTS:
 3   1) change(85-09-09,Farley), approve(85-09-09,MCR6979),
 4      audit(86-03-08,CLJones), install(86-03-21,MR12.0-1033):
 5      Create IPC card.
 6                                                    END HISTORY COMMENTS */
 7 
 8 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
 9 
10 dcl       ipc_cardp              ptr;                      /* card pointer */
11 
12 dcl       1 ipc_card             aligned based (ipc_cardp),
13             2 word               char (4),                  /* "ipc" */
14             2 type               char (4),                  /* Type of this IPC - e.g., "fips" */
15             2 iom                fixed bin (3),             /* IOM number */
16             2 chan               fixed bin (8),             /* Channel number. */
17             2 nchan              fixed bin,                 /* Number of logical channels on this channel. */
18             2 pad (10) bit (36) aligned,                              /* Pad to 15 fields */
19             2 type_word          aligned,
20               3 field_type       (14) bit (2) unaligned,    /* type of each field; see config_deck.incl.pl1 */
21               3 pad1             bit (4) unaligned,
22               3 n_fields         fixed bin (4) unsigned unaligned;
23                                                             /* number of fields used on card */
24 
25 dcl       IPC_CARD_WORD          char (4) aligned internal static options (constant) init ("ipc");
26 dcl       IPC_FIPS               char (4) aligned internal static options (constant) init ("fips");
27 
28 /* END INCLUDE FILE ... config_ipc_card.incl.pl1 */