1 /*  Begin include file  ...  pps_control_block_rec.incl.pl1  */
 2 
 3 
 4 dcl  ppscb_rec_ptr ptr;
 5 
 6 dcl 1 ppscb_rec aligned based (ppscb_rec_ptr),
 7     2 version fixed bin,                                    /* should be 1 */
 8     2 blk_len bit (36),
 9     2 rec_len_1 bit (36),
10     2 job_name,
11       3 id,
12         4 text char (7),
13         4 support_version pic "99",
14       3 job_name char (17),
15       3 host_id char (8),
16     2 rec_len_2 bit (36),
17     2 job_descriptor,
18       3 pause_control char (1),
19       3 impact_compat char (1),
20       3 vfu_format_code char (1),
21       3 pad bit (5*9),
22       3 job_description char (40),
23     2 rec_len_3 bit (36),
24     2 control_param,
25       3 stacker_algorithm fixed bin (8),
26       3 char_gen_code fixed bin (8),
27       3 fdrum_algorithm fixed bin (8),
28       3 paper_width fixed bin (8),
29       3 forms_len_and_lpi bit (18),
30       3 sheet_length fixed bin (8),
31       3 num_copies bit (18),
32       3 before_blanking bit (18),
33       3 char_size fixed bin (8),
34       3 pad bit (9),
35       3 code_conversion fixed bin (8),
36       3 drum_num fixed bin (8),
37       3 toner_config fixed bin (8),
38       3 routing_placement fixed bin (8),
39     2 rec_len_4 bit (36),
40     2 form_control (93) fixed bin (8),
41     2 rec_len_5 bit (36),
42     2 page_format (210),
43       3 char_1,
44         4 pad bit (3),
45         4 char_num_high bit (3),
46         4 start bit (1),
47         4 operation bit (2),
48       3 char_2,
49         4 pad bit (3),
50         4 line_num_high bit (1),
51         4 char_num_low bit (5),
52       3 char_3,
53         4 pad bit (3),
54         4 line_num_low bit (6),
55     2 rec_len_6 bit (18),
56     2 routing_count (29) bit (18),
57     2 rec_len_7 bit (7),
58     2 routing_data char (1024);
59 
60 
61 /*  End include file  ...  pps_control_block_rec.incl.pl1  */