1 /* Begin include file mcs_trace_data.incl.pl1 */
 2 
 3 dcl (trace_array_ptr, trace_entry_ptr) pointer;
 4 dcl  trace_array_size uns fixed bin (18);
 5 
 6 dcl 1 trace_array aligned based (trace_array_ptr),          /* trace control information */
 7     2 num_entries uns fixed bin (18),                       /* number of entries in trace table */
 8     2 idx bit (36) aligned,                                 /* index of next entry to use */
 9     2 entry (trace_array_size refer (trace_array.num_entries)) aligned like trace_entry;
10 
11 dcl 1 trace_entry aligned based (trace_entry_ptr),
12     2 time fixed bin (71),                                  /* time sample taken */
13     2 devx unsigned fixed bin (18) unaligned,               /* channel traced */
14     2 message char (54) unaligned;
15 
16 /* End include file mcs_trace_data.incl.pl1 */