1 /* BEGIN INCLUDE FILE ... copy_disk_info.incl.pl1 ... 83-04-25 ... W. Olin Sibert */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-03-31,Blair), approve(87-03-31,MCR7666),
 6      audit(87-07-08,Fawcett), install(87-07-15,MR12.1-1040):
 7      Install as part of the copy_disk command.  This is the info structure used
 8      to pass around information about the source and target disks.
 9   2) change(87-07-08,Blair), approve(87-07-08,MCR7731),
10      audit(87-07-08,Fawcett), install(87-07-15,MR12.1-1040):
11      Change the copy_disk command to copy_disk_volume.
12                                                    END HISTORY COMMENTS */
13 
14 dcl 1 copy_disk_info aligned based,
15     2 device char (32) unaligned,
16     2 device_type fixed bin,
17     2 mode fixed bin,
18     2 attached bit (1) aligned,
19     2 opened bit (1) aligned,
20     2 iocb_name char (32) unaligned,
21     2 iocb pointer,
22     2 target_info_ptr pointer,
23     2 bounds,
24       3 low_bound fixed bin (35),
25       3 high_bound fixed bin (35),
26     2 disk_parameters,
27       3 words_per_sector fixed bin,
28       3 chars_per_sector fixed bin,
29       3 sectors_per_cylinder fixed bin,
30       3 sectors_per_record fixed bin,
31       3 records_per_cylinder fixed bin,
32       3 sectors_per_io fixed bin,
33       3 n_records fixed bin (18),
34       3 n_vtoces fixed bin,
35     2 errors fixed bin,
36     2 threshold fixed bin,
37     2 trace_parm fixed bin,
38     2 trace_count fixed bin,
39     2 desc char (200) varying;
40 
41 dcl  WHOAMI char (32) internal static options (constant) init ("copy_disk_volume");
42 
43 dcl  READ fixed bin internal static options (constant) init (1);
44 dcl  WRITE fixed bin internal static options (constant) init (2);
45 
46 dcl  POSITION_BEGINNING fixed bin internal static options (constant) init (-1);
47 dcl  POSITION_RELATIVE fixed bin internal static options (constant) init (0);
48 dcl  POSITION_ABSOLUTE fixed bin internal static options (constant) init (2);
49 
50 /* END INCLUDE FILE ... copy_disk_info.incl.pl1 */