1 /* Begin include file ..... analyze_det_stat_info.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(85-09-09,Farley), approve(85-09-09,MCR6979),
 6      audit(86-03-05,Coppola), install(86-03-21,MR12.0-1033):
 7      Add support of FIPS
 8      disk and tape.
 9                                                    END HISTORY COMMENTS */
10 
11 /*  Describes format of structures returned by analyze_detail_stat_ */
12 /*  Prepared Jan 29, 1981 by Rich Coppola */
13 /*  Modified July 1985 by Paul Farley for FIPS disk/tape.. */
14 
15 dcl  analyze_det_stat_info_version_1 fixed bin static init (1) options (constant);
16 dcl  analyze_det_stat_info_version_2 fixed bin static init (2) options (constant);
17 
18 dcl  tape_analp ptr;                    /* ptr to analyzed tape detail stats */
19 dcl  prt_analp ptr;                     /* ptr to printer analysis */
20 dcl  disk_analp ptr;                    /* ptr to disk analysis */
21 dcl  rdr_pun_analp ptr;                 /* ptr to rdr/pun analysis */
22 
23 
24 dcl 1 tape_analysis based (tape_analp),
25     2 tape_analysis_version fixed bin,   /* Version Number 2 */
26     2 num_analyzed fixed bin,
27     2 is_interesting_tape bit (1) unal,
28     2 fips_controller bit (1) unal,
29     2 pad bit (34) unal,
30     2 mth_model char (8),               /* MTH Model Number */
31     2 num_tracks fixed bin,
32     2 tracks_in_error char (18),        /* defines the data bit in error
33                                            for data alert stati */
34     2 dbie_array (9) fixed bin,         /* array to denote data bit in error cnt */
35     2 modes,
36       3 density fixed bin,              /* 800, 1600, 6250 bpi */
37       3 operation char (7) var,         /* reading/writing/rewinding */
38     2 analyses (number_analyzed refer (tape_analysis.num_analyzed)) char (65) var;
39 
40 
41 dcl 1 disk_analysis based (disk_analp),
42     2 disk_analysis_version fixed bin,   /* Version Number 2 */
43     2 num_analyzed fixed bin,
44     2 is_interesting_disk bit (1) unal,
45     2 fips_controller bit (1) unal,
46     2 pad bit (34) unal,
47     2 dsk_model char (7) var,
48     2 CA fixed bin,
49     2 PORT fixed bin,
50     2 analyses (number_analyzed refer (disk_analysis.num_analyzed)) char (50) var;
51 
52 dcl 1 prt_analysis based (prt_analp),
53     2 prt_analysis_version fixed bin,   /* Version Number 1 */
54     2 num_analyzed fixed bin,
55     2 is_interesting_prt bit (1),
56     2 prt_model char (7) var,
57     2 density char (6),                 /* 6 or 8 lpi */
58     2 analyses (number_analyzed refer (prt_analysis.num_analyzed)) char (40) var;
59 
60 dcl 1 rdr_pun_analysis based (rdr_pun_analp),
61     2 rdr_pun_analysis_version fixed bin,   /* Version Number 1 */
62     2 num_analyzed fixed bin,
63     2 is_interesting_rdr_pun bit (1),
64     2 rdr_pun_model char (6),
65     2 analyses (number_analyzed refer (rdr_pun_analysis.num_analyzed)) char (40) var;
66 
67 
68 /* End include file analyze_det_stat_info.incl.pl1 */