1
2
3
4
5 dcl receive_file_data_ptr ptr;
6
7 dcl 1 receive_file_data aligned based (receive_file_data_ptr),
8 2 version fixed bin,
9 2 flags,
10 3 testing bit (1) unal,
11 3 no_ident bit (1) unal,
12 3 auto_queue bit (1) unal,
13 2 device_type fixed bin,
14 2 request_type char (32);
15
16 dcl receive_file_data_version_1 fixed bin int static options (constant) init (1);
17
18 dcl printer_input_device fixed bin int static options (constant) init (1);
19 dcl punch_input_device fixed bin int static options (constant) init (2);
20
21
22
23