1 /* BEGIN INCLUDE FILE ... queue_msg_hdr.incl.pl1 */
 2 
 3 /* This is the message header used for standard system queue messages, namely:
 4    IO daemon requests, absentee requests, retrieval requests.
 5 */
 6 
 7 /* Written by Jerry Whitmore, Spring 1978.
 8    Modified by T. Casey, November 1978, to add values for state.
 9    Modified by R. Kovalcik, June 1982, defer_until_process_terminataion
10 */
11 
12 dcl 1 queue_msg_hdr based aligned,                          /* standard header for all system queue messages */
13     2 msg_time fixed bin (71),                              /* date and time of request */
14     2 hdr_version fixed bin,                                /* version of this declaration */
15     2 dirname char (168),                                   /* directory name */
16     2 ename char (32),                                      /* entry name of file requested */
17     2 message_type fixed bin,                               /* message format descriptor   */
18                                                             /* 0 = absentee request        */
19                                                             /* 1 = print request           */
20                                                             /* 2 = punch request           */
21                                                             /* 3 = tape request            */
22                                                             /* 4 = retrieval request       */
23     2 bit_flags,
24       3 delete_sw bit (1) unal,                             /* delete file when done */
25       3 notify bit (1) unal,                                /* user wants to be notified */
26       3 defer_until_process_termination bit (1) unal,       /* don't process request until process terminates */
27       3 padding bit (33) unal,
28     2 state fixed bin,                                      /* stage of processing after being queued:
29                                                                0 = initial unprocessed state, 1 = deferred,
30                                                                2 = in state transition, 3 = eligible, 4 = running,
31                                                                5 = bumped, 6 = deferred_until_process_termination */
32     2 orig_queue fixed bin,                                 /* queue the request was submitted to */
33     2 std_length fixed bin,                                 /* length of std msg for this type */
34     2 dupt_lock bit (36) aligned,                           /* lock word for defer until process termination */
35     2 hdr_pad (3) fixed bin;
36 
37 dcl  queue_msg_hdr_version_1 fixed bin int static options (constant) init (1); /* current version of the header */
38 
39 /* Values for queue_msg_hdr.state */
40 
41 dcl  STATE_UNPROCESSED fixed bin int static options (constant) init (0);
42 dcl  STATE_DEFERRED fixed bin int static options (constant) init (1);
43 dcl  STATE_TRANSITION fixed bin int static options (constant) init (2);
44 dcl  STATE_ELIGIBLE fixed bin int static options (constant) init (3);
45 dcl  STATE_RUNNING fixed bin int static options (constant) init (4);
46 dcl  STATE_BUMPED fixed bin int static options (constant) init (5);
47 dcl  STATE_DUPT fixed bin int static options (constant) init (6);
48 
49 /* END INCLUDE FILE ... queue_msg_hdr.incl.pl1 */