1 /* --------------- BEGIN include file rcp_volume_formats.incl.pl1 --------------- */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(86-12-08,GWMay), approve(86-12-08,PBF7552),
 7      audit(86-12-08,Martinson), install(86-12-17,MR12.0-1250):
 8      added array entry 0 to the volume format types to indicate that the tape
 9      volume was not authenticated by rcp.
10                                                    END HISTORY COMMENTS */
11 
12 
13 /* General volume types */
14 
15 dcl (Volume_unauthenticated initial (0),
16      Volume_blank initial (1),
17      Volume_unknown_format initial (6),
18      Volume_unreadable initial (7),
19 
20 /* Tape volume types */
21 
22      Volume_multics_tape initial (2),
23      Volume_gcos_tape initial (3),
24      Volume_ibm_tape initial (4),
25      Volume_ansi_tape initial (5)) fixed bin static options (constant);
26 
27 /* Printable descriptions of volume types */
28 
29 dcl  Tape_volume_types (0:7) char (16) static options (constant) initial
30     ("unauthenticated",
31      "blank",
32      "Multics",
33      "GCOS",
34      "IBM",
35      "ANSI",
36      "unrecognizable",
37      "unreadable");
38 
39 /* ---------------- END include file rcp_volume_formats.incl.pl1 ---------------- */