1 /*  BEGIN INCLUDE FILE  heals_ioerr_rec.incl.pl1  */
 2 /*  Created Dec. 1, 1976 by RH Morrison  */
 3 /*  Last modified by RH Morrison  01/03/77  */
 4 /*  This include file defines the I/O error record derived from syserr_log records.  */
 5 
 6 dcl  ioerr_rec_p ptr;
 7 dcl 1 ioerr_rec aligned based (ioerr_rec_p),
 8     2 sort_rec aligned,
 9     (3 sort_date char (8),
10       3 iom_nb fixed bin (3),
11       3 ch_nb fixed bin (6),
12       3 dev_nb fixed bin (6),
13       3 power_off bit (1),
14       3 maj_st bit (6),
15       3 sub_st bit (6),
16       3 ntrpt_no bit (1),
17       3 dev_cmnd bit (6),
18       3 iom_st bit (6),
19       3 rec_cnt_res bit (6)) unal,
20     2 report_nfo aligned,
21     (3 dev_nm pic "xxxx",
22       3 log_time char (6),
23       3 ntrpt_nm char (1),
24       3 rprt_flags,
25         4 ioerr bit (1),
26         4 diskerr bit (1),
27         4 disk_addr bit (1),
28         4 ext_stat bit (1),
29         4 iom_rec bit (1),
30         4 bad_rec bit (1),
31         4 msg bit (1),
32         4 bulk bit (1),
33         4 fill bit (1),
34       3 dev_model fixed bin) unal,
35     2 tape_disk_nfo aligned,
36     (3 tapno_diskad pic "xxxxxxx",
37       3 dens_cyl pic "xxxx",
38       3 ring_head pic "xx",
39       3 tracks_sector pic "xx") unal,
40     2 syserr_nfo aligned,
41     (3 tally_nb fixed bin (35),
42       3 seq_nb fixed bin (35),
43       3 time fixed bin (71),
44       3 code fixed bin (11),
45       3 msg_len fixed bin (11),
46       3 data_size fixed bin (11),
47       3 data (0 refer (ioerr_rec.data_size)) bit (36)) unal,
48     2 msg char (0 refer (ioerr_rec.msg_len)) aligned;
49                                                             /*  END INCLUDE FILE  heals_ioerr_rec.incl.pl1  */