1 /* BEGIN INCLUDE FILE ... retv_data_.incl.pl1 ... 8/76 */ 2 3 4 5 /****^ HISTORY COMMENTS: 6 1) change(86-11-17,GWMay), approve(86-11-17,MCR7445), audit(86-11-19,GDixon), 7 install(86-11-21,MR12.0-1223): 8 Changed declaration of queue_dir from constant to just internal static so 9 that the entrypoints "test" in the err and retrieve_from_volume requests 10 are able to modify the value. 11 2) change(88-08-10,GWMay), approve(88-10-05,MCR8005), audit(88-10-12,Farley), 12 install(88-10-17,MR12.2-1173): 13 Added pointer and length values for use as an input_buffer for 14 intermediate reads. 15 END HISTORY COMMENTS */ 16 17 18 dcl retv_data_version_1 fixed bin static init (1) options(constant); /* version of data base */ 19 20 /* queue_dir should not be declared options (constant). $test entrypoints in */ 21 /* enter_retrieval_request and retrieve_from_volume programs modify it. */ 22 23 dcl queue_dir char (168) int static init (">daemon_dir_dir>volume_retriever"); 24 dcl user fixed bin static init (1) options (constant); 25 dcl retriever fixed bin static init (2) options (constant); 26 27 dcl 1 retv_data_ external static aligned, 28 2 version fixed bin, /* version of structure */ 29 2 fixed, 30 3 qidx (2) fixed bin, /* indexs of queues */ 31 3 queue fixed bin, /* mseg queue */ 32 3 nvol fixed bin, /* number of volume control segments */ 33 3 spare fixed bin, 34 3 input_buffer_len fixed bin (21), /* length of the data in the read buffer */ 35 3 input_buffer_start fixed bin (21), /* position in read buffer where new data begins */ 36 2 chars, 37 3 sys_dir char (168), /* system dir where files live */ 38 3 last_valid_vtoce_ename char (32), /* last valid entry name from vtoce */ 39 3 last_volname char (32), /* last volume mounted */ 40 3 io_module char (32), /* name of io outer module */ 41 3 input_volume_desc char (256), /* alternate input attach description */ 42 2 bits, 43 3 last_valid_puid (16) bit (36), /* last valid uid pathname */ 44 3 flags, 45 4 manual bit (1) unal, /* if on operator will tell us what tapes to use */ 46 4 arg_init bit (1) unal, /* if on indicates that args have been processed */ 47 4 err_online bit (1) unal, /* if on causes errors to be printed */ 48 4 disable_error_report bit (1) unal, /* if on - no errors are reported */ 49 4 all bit (1) unal, /* if on indicates all queues are processed */ 50 4 accounting bit (1) unal, /* if on enable accounting */ 51 4 debug bit (1) unal, /* if on, enable debugging features */ 52 4 long bit(1) unal, /* if on enable long messages */ 53 2 ptrs, 54 3 page_buffer_ptr ptr, /* ptr to paged read buffer */ 55 3 input_buffer_ptr ptr, /* ptr to read buffer */ 56 3 skip ptr, /* ptr to skip_list */ 57 3 rasp ptr, /* ptr to accounting seg */ 58 3 input_iocbp ptr, /* iocb ptr for input */ 59 3 error_iocbp ptr, /* iocb ptr for error output */ 60 3 areap ptr, /* ptr to system area */ 61 3 contentsp ptr, /* ptr to most recent contents seg from input volume */ 62 3 nlp ptr, /* ptr to name array for branch being retrieved */ 63 3 aclp ptr, /* ptr to acl array for branch being retrieved */ 64 3 recordp ptr, /* ptr to last read volume record */ 65 3 objectp ptr, /* ptr to last read segmet or directory */ 66 3 vlp ptr, /* ptr to last reload group generated */ 67 3 rvcp (1000) ptr; /* ptrs to volume control segments */ 68 69 /* END INCLUDE FILE ... retv_data_.incl.pl1 */