1 /* BEGIN INCLUDE FILE ... work_class_info.incl.pl1 ... Mod REM 1/76 */
 2 
 3 
 4 /* This include file provides the structure used to call
 5    hphcs_$define_work_classes.  The version number should be set by
 6    the caller to WCI_version_N  */
 7 
 8 dcl  wcip ptr;                                              /* pointer on which work_class_info is based */
 9 dcl  WCI_version_3 fixed bin int static init (3);           /* current version of the structure */
10 
11 dcl 1 work_class_info aligned based (wcip),
12     2 version fixed bin,                                    /* version of this structure */
13     2 switches aligned,                                     /* one word of switches */
14       3 user_wc_defined (16) bit (1) unaligned,             /* which user work classes are defined ("1"b = defined) */
15       3 set_system_wc bit (1) unaligned,                    /* = "1"b if percent of system work class to be changed */
16       3 set_user_wc bit (1) unaligned,                      /* = "1"b if definitions of user work classes to be changed */
17       3 set_sked_mode bit (1) unal,                         /* "1"b if setting deadline | percent mode */
18       3 set_max_batch_elig bit (1) unal,                    /* "1"b if setting max batch elig */
19       3 pad bit (16) unal,                                  /* rest of word */
20     2 system_wc_min_pct fixed bin,                          /* new percent for system work class */
21     2 user_wc_min_pct (16) fixed bin,                       /* percents for the normal user work classes */
22     2 error_process_id bit (36) aligned,                    /* returned if we tried to undefine this process's work class */
23     2 error_work_class fixed bin,                           /* the work class that had the above process in it */
24                                                             /* Version 1 limit */
25     2 flags aligned,
26       3 deadline_mode bit (1) unal,               /* = "1"b if virtual deadline for the many */
27       3 realtime (16) bit (1) unaligned,                    /* which user work classes are realtime */
28       3 governed (16) bit (1) unal,                         /* which work classes are governed ("1"b = defined)*/
29       3 pad bit (3) unal,
30     2 max_batch_elig fixed bin,                             /* if nonzero is max batch elig */
31     2 resp1 (16) fixed bin (35),                            /* response time after interaction(micro_sec) */
32     2 quantum1 (16) fixed bin (35),                         /* first time slice after interaction(micro_sec) */
33     2 resp2 (16) fixed bin (35),                            /* time between sucessive time slices(micro_sec) */
34     2 quantum2 (16) fixed bin (35),                         /* second and following time slices(micro_sec) */
35     2 wc_max_elig (0:16) fixed bin (35),                    /* Added if answering service ever decides to use it */
36     2 io_priority (0:16) fixed bin (35),
37     2 pin_weight (0:16) fixed bin (35),
38     2 user_wc_max_pct (16) fixed bin;                       /* max percent of total cpu for governed WC       */
39 
40 /* structure for calling hphcs_$tune_work_class */
41 
42 dcl  WCTI_version_3 fixed bin int static init (3);
43 
44 dcl 1 work_class_tune_info aligned based,
45     2 version fixed bin,
46     2 wc_number fixed bin (35),                             /* which workclass is to be changed */
47     2 resp1 fixed bin (71),                                 /* time til quantum after interact(micro_sec) */
48     2 resp2 fixed bin (71),                                 /* time between successive quanta(micro_sec) */
49     2 quantum1 fixed bin (35),                              /* quantum after interaction(micro_sec) */
50     2 quantum2 fixed bin (35),                              /* successive quanta(micro_sec) */
51     2 maxel fixed bin (35),                                 /* maxeligible for this workclass */
52     2 set aligned,
53       3 resp1 bit (1) unal,
54       3 resp2 bit (1) unal,
55       3 quantum1 bit (1) unal,
56       3 quantum2 bit (1) unal,
57       3 maxel bit (1) unal,
58       3 purging bit (1) unal,
59       3 realtime bit (1) unal,
60       3 pin_weight bit (1) unal,
61       3 io_priority bit (1) unal,
62       3 governed bit (1) unal,
63       3 interactive_q bit (1) unal,
64       3 pad bit (25) unal,
65     2 pin_weight fixed bin (35),
66     2 max_percent fixed bin (35),
67     2 flags aligned,
68       3 io_priority bit (1) unal,
69       3 purging bit (1) unal,
70       3 realtime bit (1) unal,
71       3 interactive_q bit (1) unal,
72       3 pad bit (33) unal;
73 
74 
75 /* END INCLUDE FILE ... work_class_info.incl.pl1 */