1 /* BEGIN INCLUDE FILE gtss_rec_control_word.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  06/13/78 1942.8 mst Tue
 4 */
 5 
 6 /**       GCOS Record Control Word structure.
 7  **/
 8 dcl       1 RCW               aligned based
 9 ,           3 number_record_words                 fixed bin(17)unal
10 ,           3 next_available_char_in_last_word    bit(2)unal /* 00=> 4 chars used.
11                                                                 01=> 1 char used.
12                                                                 10=> 2 chars used.
13                                                                 11=> 3 chars used. */
14 ,           3 file_mark                           bit(4)unal/* octal 17 (EOF) if num. words 0. */
15 ,           3 zeroes                              bit(2)unal
16 ,           3 media_code                          bit(4)unal/* 0 Print-line with no slew (BCD)
17                                                                1 Binary record
18                                                                2 BCD
19                                                                3 Print-line BCD
20                                                                4 Reserved for user
21                                                                5 TSS ASCII (old format)
22                                                                6 ASCII standard system format
23                                                                7 ASCII print-line (with slew control word)
24                                                                8 TSS info. record (1st record)
25                                                                9-15 Undefined */
26 ,           3 report_code                         bit(6)unal
27 ;
28 
29 /**       Block Control Word (BCW)
30  **/
31 dcl       1 block_control_word                    aligned
32 ,           3 block_serial_number                 fixed bin(17)unal
33 ,           3 block_size                          fixed bin(17)unal
34 ;
35 /*   END INCLUDE FILE gtss_rec_control_word.incl.pl1 */