1 /* Begin include file ..... tape_ioi_info.incl.pl1 */
 2 
 3 /* This structure defines data necessary as parameters to call tape_ioi_$activate */
 4 /* Prepared July 1976 by Larry Johnson */
 5 /* Modified the tenth anniversary of the Watergate breakin by Chris Jones */
 6 
 7 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
 8 dcl       tioi_info_ptr          ptr;
 9 
10 dcl       (tioi_info_version, tioi_info_version_1)
11                                  fixed bin static options (constant) init (1);
12 
13 dcl       1 tioi_info            aligned based (tioi_info_ptr),
14             2 version            fixed bin,
15             2 ioi_index          fixed bin,
16             2 timeout_max        fixed bin (71),
17             2 event_id           fixed bin (71),
18             2 workspace_max      fixed bin (19);
19 
20 /* End include file ..... tape_ioi_info.incl.pl1 */