1 /* Begin include file ...... disk_error_interp.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(89-06-23,Farley), approve(89-07-26,MCR8122),
 6      audit(89-09-11,WAAnderson), install(89-09-22,MR12.3-1072):
 7      Added "finterp" and "fnamep" to major status array to allow seperation of
 8      some of the FIPS statuses, due to different processing requirements.
 9      Also added "just_log" flag to substatus entry to allow some errors to
10      only be logged and not displayed on the console.
11                                                    END HISTORY COMMENTS */
12 
13 
14 /* last modified 5/19/76 by Noel I. Morris */
15 
16 /* Breakdown of disk error status. */
17 
18 dcl  disk_error_data$ ext;                                  /* disk error status data segment */
19 
20 dcl  dedp ptr;                                              /* pointer to major status structure */
21 
22 dcl 1 disk_error_data (0: 23) aligned based (dedp),         /* major status array */
23    (2 interp bit (18),                                      /* pointer to substatus data for this major status */
24     2 namep bit (18),                                       /* rel pointer to major status description */
25     2 finterp bit (18),                                     /* pointer to FIPS substatus data for this major status */
26     2 fnamep bit (18)) unal;                                /* rel pointer to FIPS major status description */
27 
28 dcl  dskerap ptr;                                           /* pointer to substatus array */
29 
30 dcl 1 disk_status_interp_array (100) like disk_error_interp based (dskerap) aligned;
31                                                             /* array of substatus interpretations */
32 
33 dcl  dskerp ptr;                                            /* pointer to error interpretation data */
34 
35 dcl 1 disk_error_interp based (dskerp) aligned,             /* substatus interpretation structure */
36    (2 bitson bit (6),                                       /* substatus bits which must be ON */
37     2 bitmask bit (6),                                      /* substatus bits which must be checked */
38     2 max_retries fixed bin (5),                            /* maximum no. of retries for this error */
39     2 reseek bit (1),                                       /* "1"b if restore and reseek required */
40     2 rsr bit (1),                                          /* "1"b if detailed status should be read */
41     2 bad_addr bit (1),                                     /* "1"b if disk address is defective */
42     2 bad_dev bit (1),                                      /* "1"b if device is inoperative */
43     2 bad_path bit (1),                                     /* "1"b if disk data path is defective */
44     2 bad_mem bit (1),                                      /* "1"b if memory may be defective */
45     2 just_log bit (1),                                     /* "1"b if error is only to be logged */
46     2 pad1 bit (11),
47     2 namep bit (18),                                       /* rel pointer to substatus description */
48     2 pad2 bit (18)) unal;
49 
50 dcl  dsdp ptr;                                              /* pointer to status description */
51 
52 dcl 1 disk_status_descrip based (dsdp) aligned,             /* status description string */
53    (2 lth fixed bin (8),                                    /* length of string */
54     2 chr char (32 refer (disk_status_descrip.lth))) unal;  /* status description string */
55 
56 /* End of include file ...... disk_error_interp.incl.pl1 */