1 /*  BEGIN INCLUDE FILE: bft.incl.pl1                *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-11-16,Flegel), approve(87-11-16,MCR7787),
 6      audit(88-01-27,RWaters), install(88-02-24,MR12.2-1028):
 7      Created to provide access to flags structure for programs which call the
 8      bft_$(fetch store) entrypoints.
 9                                                    END HISTORY COMMENTS */
10 
11 dcl BFT_MIN_PRIORITY      fixed bin int static options (constant) init (1);
12 dcl BFT_MAX_PRIORITY      fixed bin int static options (constant) init (4);
13 dcl BFT_PATH_ID           fixed bin int static options (constant) init (32);
14 dcl BFT_TIME_ID           fixed bin int static options (constant) init (33);
15 dcl BFT_ENTRY_ID          fixed bin int static options (constant) init (34);
16 
17 /* BFT queue flags / switches;
18    NOTE that the pad and mbz are first, this is because a conversion routine
19    to convert significant bits to a respective character string assumes that
20    the bit string is RIGHT JUSTIFIED (this is to allow the accepting of
21    numerical values - eg. fixed bin */
22 
23 dcl 01 bft_queue_flags  based,
24        02 mbz           bit (4) unal,                 /* System word adjust */
25        02 pad           bit (28) unal,                /* Future expansion */
26        02 allocated     bit (1) unal,                 /* Is this an entry? */
27        02 initiated     bit (1) unal,                 /* Transfer in progress */
28        02 binary_sw     bit (1) unal,                 /* Binary file_type */
29        02 notify_sw     bit (1) unal;                 /* If a notify is to be done */
30 
31 /*  END INCLUDE FILE: bft.incl.pl1                  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */