1 /* Begin include file ...... tape_error_interp.incl.pl1 */ 2 3 /* format: style4,declareind10,dclind10,idind20,indattr,delnl,insnl */ 4 5 /* Breakdown of tape error status. */ 6 7 /****^ HISTORY COMMENTS: 8 1) change(86-02-24,Farley), approve(86-07-18,MCR7439), 9 audit(86-08-18,Fawcett), install(86-10-20,MR12.0-1189): 10 Created from disk_error_interp.incl.pl1. 11 END HISTORY COMMENTS */ 12 13 dcl tape_error_data$ ext; /* tape error status data segment */ 14 15 dcl tedp ptr; /* pointer to major status structure */ 16 17 dcl 1 tape_error_data (0:19) aligned based (tedp), /* major status array */ 18 ( 2 interp bit (18), /* pointer to substatus data for this major status */ 19 2 namep bit (18) 20 ) unal; /* rel pointer to major status description */ 21 22 dcl taperap ptr; /* pointer to substatus array */ 23 24 dcl 1 tape_status_interp_array 25 (100) like tape_error_interp based (taperap) aligned; 26 /* array of substatus interpretations */ 27 28 dcl taperp ptr; /* pointer to error interpretation data */ 29 30 dcl 1 tape_error_interp based (taperp) aligned, /* substatus interpretation structure */ 31 ( 2 bitson bit (6), /* substatus bits which must be ON */ 32 2 bitmask bit (6), /* substatus bits which must be checked */ 33 2 max_retries fixed bin (5), /* maximum no. of retries for this error */ 34 2 get_detail bit (1), /* "1"b if detailed status needed */ 35 2 expect_special bit (1), /* "1"b if special status expected */ 36 2 end_of_file bit (1), /* "1"b if EOF status */ 37 2 end_of_tape bit (1), /* "1"b if EOT status */ 38 2 bad_density bit (1), /* "1"b if invalid density */ 39 2 backspace bit (1), /* "1"b backspace before retry */ 40 2 bad_dev bit (1), /* "1"b if device is inoperative */ 41 2 bad_path bit (1), /* "1"b if tape data path is defective */ 42 2 pad1 bit (10), 43 2 namep bit (18), /* rel pointer to substatus description */ 44 2 pad2 bit (18) 45 ) unal; 46 47 dcl tsdp ptr; /* pointer to status description */ 48 49 dcl 1 tape_status_descrip 50 based (tsdp) aligned, /* status description string */ 51 ( 2 lth fixed bin (8), /* length of string */ 52 2 chr char (32 refer (tape_status_descrip.lth)) 53 ) unal; /* status description string */ 54 55 dcl POWER_OFF fixed bin internal static options (constant) init (16); 56 dcl CHAN_STAT fixed bin internal static options (constant) init (17); 57 dcl CENTRAL_STAT fixed bin internal static options (constant) init (18); 58 dcl SYS_FAULT fixed bin internal static options (constant) init (19); 59 60 /* End of include file ...... tape_error_interp.incl.pl1 */