1 /*  START OF:       tape_ioi_error_counts.incl.pl1            *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 /* Written 22 April 1982 by Chris Jones */
 3 
 4 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
 5 dcl       tape_ioi_error_counts_ptr
 6                                  ptr;
 7 
 8 dcl       1 tec                  based (tape_ioi_error_counts_ptr) aligned,
 9             2 version            char (8),
10             2 reads              like tec_entry,
11             2 successful_retry_strategy
12                                  (7) fixed bin (35),
13             2 writes             like tec_entry,
14             2 orders             like tec_entry;
15 
16 dcl       1 tec_entry            based aligned,
17             2 total              fixed bin (35),
18             2 errors             fixed bin (35);
19 
20 dcl       TEC_VERSION_1          char (8) aligned internal static options (constant) init ("TECV001");
21 
22 dcl       TEC_VERSION            char (8) aligned internal static options (constant) init ("TECV001");
23 
24 /*  END OF:         tape_ioi_error_counts.incl.pl1            *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */