1 /*  Begin include file lar_info.incl.pl1                                */
  2 
  3 /* Original version Aug 1977 */
  4 /* Modified May 1978 by T. Casey to add many new parameters */
  5 /* Modified November 1978 by T. Casey to add several variables for MR7.0 */
  6 /* Modified to add queue_name 11/05/79 S. Herbst */
  7 /* Modified Jan 1982 by G. Dixon to dcl constants for request_type values */
  8 
  9 /****^  HISTORY COMMENTS:
 10   1) change(88-04-20,Parisek), approve(88-06-13,MCR7913),
 11      audit(88-08-16,Farley), install(88-08-22,MR12.2-1089):
 12      A) Added the abs_rqi, com_rqi, output_rqi, retv_rqi, and imft_rqi
 13         elements to store bit values which determine what specific data is
 14         requested by request_info command/AF.  Modified the pad field
 15         to fill in the remaining unused word.
 16      B) Included the arrays defining the information keywords used with
 17         request_info (rqi).  Each element in these arrays pertains to a
 18         bit value within one of the bit strings listed in A above.  Also,
 19         the order of each element represents the identical order of the
 20         respective bit within the above mentioned bit strings.
 21      C) Added forms_sw and forms_name elements for storing info about
 22         requested output special forms.
 23   2) change(88-08-25,Farley), approve(88-09-16,MCR7911),
 24      audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199):
 25      Increased forms_name to 64 characters.
 26                                                    END HISTORY COMMENTS */
 27 
 28 
 29 dcl  info_ptr ptr;
 30 dcl 1 info aligned based (info_ptr),
 31     2 temptr ptr aligned,                                   /* pointer to temporary segment */
 32     2 mseg_idx fixed bin aligned,                           /* offset of message segment */
 33     2 request_type fixed bin,                               /* ABS, IO, OUTPUT, RETV */
 34     2 queue_name char (32) unal,                            /* request type for io_daemon: printer, punch, etc. */
 35     2 queue fixed bin aligned,                              /* priority level of message segment */
 36     2 input_count fixed bin (21) aligned,                   /* length of temporary in chars when called */
 37     2 output_count fixed bin (21) aligned,                  /* length of temporary in chars on return */
 38     2 select_count fixed bin aligned,                       /* returned count of selected entries (from all queues) */
 39     2 user_select_count fixed bin aligned,                  /* returned count of requests for specified user (from all Qs) */
 40     2 message_count fixed bin,                              /* returned count of total entries (from all queues) */
 41     2 switches,
 42       3 long_sw bit (1) unaligned,                          /* on - long format */
 43       3 admin_sw bit (1) unaligned,                         /* on - admin option */
 44       3 total_sw bit (1) unaligned,                         /* on - totals only */
 45       3 user_sw bit (1) unaligned,                          /* on - look for supplied person.project */
 46       3 immediate bit (1) unaligned,                        /* on - return only non-deferred matches */
 47       3 long_id_sw bit (1) unaligned,                       /* on - print long ID even when not in long format */
 48       3 all_opt_sw bit (1) unaligned,                       /* on - all queue data wanted */
 49       3 q_opt_sw bit (1) unaligned,                         /* on - user specified a queue */
 50       3 path_sw bit (1) unaligned,                          /* on - print full pathname even when not in long format */
 51       3 brief_sw bit (1) unaligned,                         /* on - brief format */
 52       3 position_sw bit (1) unaligned,                      /* on - print position in queue */
 53       3 resource_sw bit (1) unaligned,                      /* on - print just rq's w/resource arg and print resource */
 54       3 dirname_sw bit (1) unaligned,                       /* on - dirname given */
 55       3 ename_sw bit (1) unaligned,                         /* on - ename given */
 56       3 id_sw bit (1) unaligned,                            /* on - request ID given */
 57       3 deferred_indefinitely bit (1) unaligned,            /* on - print only requests that are deferred indefinitely */
 58       3 sender_sw bit (1) unaligned,                        /* on - sender (RJE station) given */
 59       3 no_total_sw bit (1) unaligned,                      /* RETURNED: on if unable to get totals for a queue */
 60       3 abs_q_1 bit (1) unaligned,                          /* on - listing abs Qs 0 & 1, pretending all from 1 */
 61       3 resource_name_sw bit (1) unaligned,                 /* on - resource name given */
 62       3 search_all bit (1) unaligned,                       /* on - search all Qs, list ones that we select requests from */
 63       3 forms_sw bit (1) unaligned,                         /* on - special forms name given */
 64       3 abs_rqi bit (13) unaligned,                         /* each bit represents 1 request element */
 65       3 com_rqi bit (11) unaligned,                         /* each bit represents 1 request element */
 66       3 output_rqi bit (11) unaligned,                      /* each bit represents 1 request element */
 67       3 retv_rqi bit (4) unaligned,                         /* each bit represents 1 request element */
 68       3 imft_rqi bit (3) unaligned,                         /* each bit represents 1 request element */
 69       3 pad bit (8) unaligned,                              /* rest of word */
 70     2 person char (28) aligned,                             /* supplied person name - may be "*" */
 71     2 project char (28) aligned,                            /* supplied project name - may be "*" */
 72     2 request_id char (19) aligned,                         /* select request(s) matching this ID */
 73     2 dirname char (168) unal,                              /* select requests from this directory */
 74     2 ename char (32) unal,                                 /* select requests matching this ename (can be starname) */
 75     2 sender char (32) aligned,                             /* select requests entered by this RJE station */
 76     2 resource_name char (100) varying aligned,             /* select requests requiring the named resource(s) */
 77     2 forms_name char (64) unal;                            /* select requests requiring the named form(s) */
 78 
 79                                                             /* possible values for info.request_type.         */
 80 dcl ABS    fixed bin int static options(constant) init(1),  /*   list_abs_requests                            */
 81     IO     fixed bin int static options(constant) init(2),  /*   list_daemon_requests (almost obsolete)       */
 82     OUTPUT fixed bin int static options(constant) init(3),  /*   list_output_requests                         */
 83     RETV   fixed bin int static options(constant) init(4);  /*   list_retrieval_requests                      */
 84 
 85                                                             /* below is defined the request_info */
 86                                                             /* information keyword arrays */
 87 /* The order of the following keywords within their respective arrays is
 88    important as each element MUST be kept in sync with the respective
 89    bit defined in com_rqi, abs_rqi, retv_rqi, output_rqi, or imft_rqi.
 90    If any additional keywords are added in the future be sure a corresponding
 91    bit is added to the proper bit string above.  Also add the format data
 92    for the new element within its proper place in the buffer_element routine
 93    of lar_util_.
 94 */
 95 
 96 dcl       abs_keywords                  (28) char(32) int static options (constant) init
 97                ("max_cpu_time", "limit", "li",              /* 1 */
 98                "output_file", "of",                         /* 2 */
 99                "proxy_name", "pxn",                         /* 3 */
100                "resource", "rsc",                           /* 4 */
101                "sender",                                    /* 5 */
102                "comment",                                   /* 6 */
103                "args",                                      /* 7 */
104                "home_dir", "hd",                            /* 8 */
105                "init_proc", "ip",                           /* 9 */
106                "initial_ring", "ring", "rg",                /* 10 */
107                "authorization", "auth",                     /* 11 */
108                "deferred_time", "dftime", "time",
109                     "dftm", "tm",                           /* 12 */
110                "deferred_by", "dfb"),                       /* 13 */
111 
112           abs_keyword_index             (28) fixed bin int static options (constant) init
113                                                             /* index in info.abs_rqi */
114                (1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 8, 9, 9, 10, 10, 10,
115                11, 11, 12, 12, 12, 12, 12, 13, 13),
116 
117           com_keywords                  (23) char(32) int static options (constant) init
118                ("all", "a",                                 /* 1 */
119                "request_id", "id",                          /* 2 */
120                "submitter",                                 /* 3 */
121                "position", "pos",                           /* 4 */
122                "directory", "dr",                           /* 5 */
123                "entry", "et",                               /* 6 */
124                "enter_time", "etime", "etm",                /* 7 */
125                "message_type", "type", "tp",                /* 8 */
126                "queue", "q",                                /* 9 */
127                "state", "st",                               /* 10 */
128                "request_flags", "flags"),                   /* 11 */
129 
130           com_keyword_index             (23) fixed bin int static options (constant) init
131                                                             /* index in info.com_rqi */
132                (1, 1, 2, 2, 3, 4, 4, 5, 5, 6, 6, 7, 7, 7, 8, 8, 8,
133                9, 9, 10, 10, 11, 11),
134 
135           output_keywords               (23) char(32) int static options (constant) init
136                ("bit_count", "bc",                          /* 1 */
137                "copies", "cp",                              /* 2 */
138                "destination", "dest", "ds",                 /* 3 */
139                "heading", "he",                             /* 4 */
140                "indent", "ind", "in",                       /* 5 */
141                "line_length", "ll",                         /* 6 */
142                "page_length", "pl",                         /* 7 */
143                "top_label", "tlbl",                         /* 8 */
144                "bottom_label", "blbl",                      /* 9 */
145                "output_conversion", "ocv",                  /* 10 */
146                "forms"),                                    /* 11 */
147 
148           output_keyword_index          (23) fixed bin int static options (constant) init
149                                                             /* index in info.output_rqi */
150                (1, 1, 2, 2, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 7, 7, 7, 8,
151                9, 9, 10, 10, 11),
152 
153           retv_keywords                 (10) char(32) int static options (constant) init
154                ("from_time", "fmtime", "fmtm",              /* 1 */
155                "new_dir", "ndr",                            /* 2 */
156                "new_entry", "net",                          /* 3 */
157                "to_time", "ttime", "ttm"),                  /* 4 */
158 
159           retv_keyword_index            (10) fixed bin int static options (constant) init
160                                                             /* index in info.retv_rqi */
161                (1, 1, 1, 2, 2, 3, 3, 4, 4, 4),
162 
163           imft_keywords                 (6) char(32) int static options (constant) init
164                ("foreign_dir", "fdr",                       /* 1 */
165                "foreign_entry", "fet",                      /* 2 */
166                "foreign_user", "fu"),                       /* 3 */
167 
168           imft_keyword_index            (6) fixed bin int static options (constant) init
169                                                             /* index in info.imft_rqi */
170                (1, 1, 2, 2, 3, 3);
171 
172 /*  End include file lar_info.incl.pl1                        */