1 /* Beginning of include file device_queue.incl.pl1 */
 2 
 3 /* This structure describes the queue segment associated with
 4 each operator console in which are placed lines to be typed. */
 5 
 6 declare
 7           1 device_queue aligned based(qp),       /* Header 24 dec 30 oct words */
 8             2 mc_atep         ptr,
 9             2 channel         fixed bin(71),
10             2 device_name     char(32),
11             2 no_of_messages  fixed bin,
12             2 top_of_queue    fixed bin,
13             2 end_of_queue    fixed bin,
14             2 free_top        fixed bin,
15             2 next_free       fixed bin,
16             2 pad(7)          fixed bin,
17             2 line (1),                 /* 40 dec 50 oct words */
18               3 not_done      bit(1) unal,
19               3 alarm         bit (1) unal,
20               3 xpad          bit (16) unal,
21               3 source        fixed bin (17) unal,
22               3 next_line     fixed bin,
23               3 pad(3)        fixed bin,
24               3 offset        fixed bin,
25               3 line_length   fixed bin,
26               3 string        char(132);
27 
28 /* End of include file device_queue.incl.pl1  */