1 /* Begin  mca_diskette.incl.pl1 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(86-03-19,Fawcett), approve(86-03-19,MCR7374),
 7      audit(86-04-28,Lippard), install(86-09-16,MR12.0-1159):
 8      Created for users to view the contents of the MCA diskettes
 9                                                    END HISTORY COMMENTS */
10 
11 dcl header_ptr ptr;
12 
13 
14 dcl 1 header based (header_ptr),
15     2 copyright char (55),
16     2 title char (8),
17     2 unique_id char (8),
18     2 date_created char (6),
19     2 date_changed char (6),
20     2 space_adr bit (18) unal,
21     2 space_x bit (18) unal,
22     2 space_size bit (18) unal,
23     2 dir_adr bit (18) unal,
24     2 dir_x bit (18) unal,
25     2 dir_size like two_byte,
26     2 config_name char (8),
27     2 config_count fixed bin (9) unal unsigned,
28     2 disk_type fixed bin (9) unal unsigned,
29     2 val fixed bin (9) unal unsigned,
30     2 equip_type char (4),
31     2 ipi_num char (12),
32     2 disk_dwg_num char (12),
33     2 prod_num_tab char (3),
34     2 x_of_n bit (18) unal;
35 
36 dcl dir_ptr ptr;
37 dcl dire_ptr ptr;
38 dcl dir_number fixed bin;
39 
40 dcl 1 directory based (dir_ptr),
41     2 array (dir_number) like dire;
42 
43 dcl two_byte_ptr ptr;
44 
45 dcl 1 two_byte based (two_byte_ptr) unal,
46       2 pad1 bit (1) unal,
47       2 lsb bit (8) unal,
48       2 pad2 bit (1) unal,
49       2 msb bit (8) unal;
50 
51 
52 
53 dcl 1 dire based (dire_ptr),
54     2 path_name char (8),
55     2 sector_address like two_byte,
56     2 file_size like two_byte,
57     2 rfu like two_byte,
58     2 attributes bit (8) unal,
59     2 deleted bit (1) unal,
60     2 rfu1 char (1);
61 
62 dcl file_ptr ptr;
63 dcl file_size fixed bin (21);
64 dcl 1 hex_file based (file_ptr),
65     2 hex_data (file_size) like two_byte;
66 
67 
68 
69 
70 
71 
72 
73 /* End  mca_diskette.incl.pl1 */