1 /*************** BEGIN INCLUDE FILE pascal_fsb_trap_info.incl.pl1 ************/
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-09-16,JPFauche), approve(86-09-16,MCR7521),
 6      audit(86-09-16,Martinson), install(86-11-12,MR12.0-1208):
 7      Added to support version 8.03 of pascal.
 8                                                    END HISTORY COMMENTS */
 9 
10 dcl          fsb_trap_info_ptr      ptr;
11 
12      dcl     1 v1_pascal_init_fsb_trap_info based (fsb_trap_info_ptr),
13                2 v1_version         fixed bin (18) unsigned unal, /* must be 1 */
14                2 v1_n_files         fixed bin (18) unsigned unal,
15                2 v1_file_info       (0 refer (v1_n_files)),
16                  3 v1_fsb_ptr_offset fixed bin (18) unsigned unal, /* offset if fsb ptr in linkage section */
17                                                             /* may be relocated by binder, as an instruction */
18                  3 v1_pad           bit (12) unal,          /* not to be filled.*/
19                  3 v1_mod           bit (6) unal,           /* may be modified by binder */
20                                                             /* right part of the pseudo-instruction */
21                  3 v1_file_name_offset fixed bin (18) unsigned unal, /* offset in text section of file name acc string */
22                  3 v1_file_type     fixed bin (18) unsigned unal, /* code for file type as accepted by pascal_io_$init_fsb_alloc */
23                  3 v1_file_data_length fixed bin (18) unsigned unal, /*record length or buffer length */
24                  3 v1_file_dim      fixed bin (18) unsigned unal; /* dimension if array of file */
25 
26      dcl     1 pascal_init_fsb_trap_info based (fsb_trap_info_ptr),
27                2 version            fixed bin (18) unsigned unal, /* must be 2 */
28                2 n_files            fixed bin (18) unsigned unal,
29                2 file_info          (0 refer (n_files)),
30                  3 fsb_ptr_offset   fixed bin (18) unsigned unal, /* offset if fsb ptr in linkage section */
31                                                             /* may be relocated by binder, as an instruction */
32                  3 pad              bit (12) unal,          /* not to be filled.*/
33                  3 mod              bit (6) unal,           /* may be modified by binder */
34                                                             /* right part of the pseudo-instruction */
35                  3 file_name_offset fixed bin (18) unsigned unal, /* offset in text section of file name acc string */
36                  3 file_type        fixed bin (4) unsigned unal, /* code for file type as accepted by pascal_io_$init_fsb_alloc */
37                  3 file_dim         fixed bin (14) unsigned unal, /* dimension if array of file */
38                  3 file_data_length fixed bin (35) unal;    /*record length or buffer length */
39 
40 /*************** END INCLUDE FILE pascal_fsb_trap_info.incl.pl1 ************/