1 /* BEGIN INCLUDE FILE...q_group_tab.incl.pl1 */ 2 3 4 5 /****^ HISTORY COMMENTS: 6 1) change(88-01-27,Brunelle), approve(), audit(), install(): 7 Ancient History 8 Created by J. Stern, December 1974 9 Modified by J. Whitmore April 1978 10 Modified by R. McDonald May 1980 to include page charges (UNCA) 11 Modified by E. N. Kittlitz June 1981 for UNCA changes 12 2) change(88-02-18,Brunelle), approve(88-08-31,MCR7911), 13 audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199): 14 Add forms_validation, default_form and font_dir variables for laser 15 printer support. 16 END HISTORY COMMENTS */ 17 18 19 /* format: style4 */ 20 21 dcl qgtp ptr; /* ptr to queue group table */ 22 dcl 1 q_group_tab aligned based (qgtp), 23 2 n_q_groups fixed bin, /* number of queue groups */ 24 2 pad fixed bin, 25 2 entries (1 refer (q_group_tab.n_q_groups)) like qgte; /* entries of queue group table */ 26 27 dcl qgtep ptr; /* queue group table entry pointer */ 28 dcl 1 qgte aligned based (qgtep), /* queue group table entry */ 29 30 /* static info from the parms file */ 31 32 2 name char (24), /* queue group name */ 33 2 comment unaligned like text_offset, /* comment to apply to the request_type */ 34 2 driver_id char (32), /* person.project name of drivers for this q group */ 35 2 accounting unaligned like text_offset, /* offset to accounting routine pathname, "system" => charge_user_ */ 36 2 generic_type char (32), /* generic type of requests in this queue */ 37 2 default_generic_queue fixed bin (1), /* 1 if this is default queue for above generic type, else 0 */ 38 2 rqti_seg_name char (32), /* name of rqti seg, if required, else blank */ 39 2 max_queues fixed bin, /* number of queues for this request type */ 40 2 default_queue fixed bin, /* number of the default queue */ 41 2 line_charge, /* price names for line charges */ 42 3 queue (4) char (32), /* one name for each queue */ 43 2 page_charge, /* price names for page charges */ 44 3 queue (4) char (32), /* one name for each queue */ 45 2 forms_table unaligned like text_offset, /* offset to forms table to apply to this queue group */ 46 2 forms_validation unaligned like text_offset, /* offset to name of routine for forms validation */ 47 2 default_form unaligned like text_offset, /* offset to default -form string if none given */ 48 2 font_dir unaligned like text_offset, /* offset to location of downloadable fonts */ 49 2 first_dev_class fixed bin, /* index of first device class entry of queue group */ 50 2 last_dev_class fixed bin, /* index of last device class entry of queue group */ 51 52 /* dynamic info reflecting current status of queues */ 53 54 2 open fixed bin, /* 1 if queues have been opened, else 0 */ 55 2 per_queue_info (4), 56 3 last_read bit (72), /* ID of last message read */ 57 3 mseg_index fixed bin, /* message segment index */ 58 3 pad fixed bin; /* pad to even word boundary */ 59 60 /* END INCLUDE FILE...q_group_tab.incl.pl1 */