1 /* BEGIN INCLUDE FILE journal_control_block.incl.pl1 */
 2 
 3      dcl     sys_info$max_seg_size  fixed bin (24) ext;
 4 
 5      dcl     journal_control_block_ptr
 6                                     ptr;
 7      dcl     1 journal_control_block
 8                                     aligned based (journal_control_block_ptr),
 9                2 attach             char (128) var,
10                2 open_desc          char (128) var,
11                2 vfile_iocb_ptr     ptr,
12                2 latest_entry_ptr   ptr,
13                2 journal_area_ptr   ptr;
14 
15      dcl     journal_area           area (sys_info$max_seg_size) based (journal_control_block.journal_area_ptr) aligned;
16 
17 
18 /* END INCLUDE FILE journal_control_block.incl.pl1 */