1 /* --------------- BEGIN include file tape_archive_io_info.incl.pl1 --------------- */
 2 
 3 /*
 4 dcl 1 tape_archive_io_info aligned,                         /* level-1 line with storage class must be in outer program */
 5     2 tape_input_switch pointer,                            /* IOX input switch pointer */
 6     2 input_opd_template char (520),                        /* attach description template */
 7     2 tape_output_switch pointer,                           /* IOX output switch pointer */
 8     2 output_opd_template char (520),                       /* attach description template */
 9     2 file_input_switch pointer,                            /* IOX switch */
10     2 file_output_switch pointer,                           /* IOX switch */
11     2 temp_seg_ptrs aligned,                                /* various free space pointers */
12       3 attribute_seg_ptr pointer,                          /* pointer to seg to hold attribute file from tape */
13       3 buffer_ptr pointer,                                 /* seg for I/O buffer */
14       3 temp_table_ptr pointer,                             /* pointer to temp copy of online table */
15     2 long_sw bit (1) aligned;                              /* if on, call ioa_ to report major operations */
16 
17 dcl  based_temp_seg_ptrs (3) pointer based (addr (tape_archive_io_info.temp_seg_ptrs));
18 
19 /* ---------------- END include file tape_archive_io_info.incl.pl1 ---------------- */