1 /* BEGIN INCLUDE FILE mtape_label_record.incl.pl1. Created by J. A. Bush 10/13/82 */
 2 /* format: style4 */
 3 
 4 dcl  lr_ptr ptr;
 5 
 6 dcl  mtape_lr_version_1 char (8) int static options (constant) init ("mtlrv001");
 7 
 8 dcl  1 mtape_label_record aligned based (lr_ptr),
 9        2 version char (8),                                  /* Current version */
10        2 prev_lab_ptr ptr,                                  /* Pointer to previous label record structure */
11        2 next_lab_ptr ptr,                                  /* Pointer to next label record structure */
12        2 lab_ptr ptr,                                       /* Pointer to the actual format specific label record */
13        2 lab_length fixed bin,                              /* Length in 9 bit bytes of the label record */
14        2 mode fixed bin,                                    /* Hardware recording mode:
15                                                                1 = binary
16                                                                2 = nine
17                                                                3 = bcd */
18        2 conversion fixed bin;                              /* Character set conversion required:
19                                                                1 = no conversion
20                                                                2 = ASCII <==> EBCDIC (any case)
21                                                                3 = ASCII <==> BCD
22                                                                4 = ASCII ==> Upper case ASCII
23                                                                5 = ASCII ==> Upper case EBCDIC */
24 
25 /* END INCLUDE FILE mtape_label_record.incl.pl1 */