1 /* BEGIN INCLUDE FILE ... _imft_cri.incl.pl1 */
 2 /* Created:  April 1982 by G. Palter */
 3 
 4 /* Data structure used by read/write_command/reply_record and get_abort_info control orders */
 5 
 6 dcl  1 icri aligned based (icri_ptr),
 7        2 version character (8),
 8        2 timeout fixed binary (35),                         /* # of seconds to wait for read/write to complete */
 9        2 pad bit (36),
10        2 record_info,
11          3 record_ptr pointer,                              /* -> record to write or buffer where it will be read */
12          3 record_type fixed binary,                        /* type of record read/written */
13          3 record_max_lth fixed binary (21),                /* size of buffer when reading records */
14          3 record_lth fixed binary (21);                    /* length of record read/written in characters */
15 
16 dcl  icri_ptr pointer;
17 
18 dcl  ICRI_VERSION_1 character (8) static options (constant) initial ("cri_1.00");
19 
20 /* END INCLUDE FILE ... _imft_cri.incl.pl1 */