1 /*   BEGIN INCLUDE FILE ... rldr_vtoc_buffer.incl.pl1 8/77 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-02-27,GWMay), approve(86-03-19,MCR7445), audit(86-10-30,GDixon),
 6      install(86-11-21,MR12.0-1223):
 7      added pvindex to the array portion of the structure. The value is used as
 8      a reverse link to the owner PVs info structure in rldr_data_. Reason for
 9      adding: vtoc_buffer is now limited to 100 entries and emptied upon
10      encountering the end of the input tape volume or when the array fills up.
11      The new value makes emptying the array fast and simple.
12                                                    END HISTORY COMMENTS */
13 
14 
15 /*     Modified: Feb. 1985 by Greg Texada to change array size                                                */
16 
17 dcl  vtocbp ptr;
18 
19 dcl  1 vtoc_buffer based (vtocbp) aligned,
20     2 next fixed bin,
21     2 array (100),
22       3 vtocx fixed bin,
23       3 pvindex fixed bin,
24       3 vtoce like vtoce aligned;
25 
26 /* END INCLUDE FILE ... rldr_vtoc_buffer.incl.pl1 */
27 
28 
29 
30