1 /* BEGIN INCLUDE FILE ...  pascal_ops_statics.incl.pl1 ........ */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-09-16,JPFauche), approve(86-09-16,MCR7525),
 6      audit(86-09-16,Martinson), install(86-11-12,MR12.0-1208):
 7      Added pascal_operators_statics_$first_file_ptr to support pascal 8.03.
 8                                                    END HISTORY COMMENTS */
 9 
10 /* created JMAthane 09 1980 */
11 
12 
13      dcl     1 pascal_operators_statics_$error_info ext,
14                2 length             fixed bin (35),
15                2 version            fixed bin,
16                2 action_flags,
17                  3 cant_restart     bit (1) unal,
18                  3 default_restart  bit (1) unal,
19                  3 pad              bit (34) unal,
20                2 string             char (256) var,
21                2 status_code        fixed bin (35);
22 
23      dcl     pascal_operators_statics_$first_file_ptr ptr ext;
24 
25      dcl     pascal_operators_statics_$fast_mode bit (1) aligned external;
26      dcl     pascal_operators_statics_$io_warnings bit (1) aligned external;
27      dcl     pascal_operators_statics_$area_warnings bit (1) aligned external;
28 
29      dcl     1 pascal_operators_statics_$area_operators_info ext,
30                2 nbr_of_areas       fixed bin (8) unsigned unal,
31                2 pad_               bit (10) unal,
32                2 last_structure_offset fixed bin (18) unsigned unal;
33      dcl     1 pascal_operators_statics_$areas (10) ext,
34                2 unique_id          fixed bin (71),
35                2 pathname           char (168) varying,
36                2 area_size          fixed bin (35),
37                2 area_ptr           ptr,
38                2 nbr_of_area_segs   fixed bin (35),
39                2 new_warning        fixed bin (35);
40 
41 /* END INCLUDE FILE ... pascal_ops_statics.incl.pl1............   */