1 
 2 /*  BEGIN INCLUDE FILE ...   cobol_entry_seq.incl.pl1                   */
 3 /*  Created May 22, 1976 by BC.                   */
 4 
 5 declare   parm_desc_ptr       ptr;
 6 
 7 declare   1 parm_desc         aligned based(parm_desc_ptr),
 8            2 n_args fixed bin unaligned,
 9            2 descriptor_relp  (0 refer(parm_desc.n_args)) bit(18) unaligned;
10 
11 
12 dcl       text_ptr  ptr;
13 
14 dcl       1 entry_seq aligned based(text_ptr),
15            2 descr_relp_offset bit(18) unaligned,
16            2 reserved bit(18) unaligned,
17            2 def_relp bit(18) unaligned,                              /* set to offset of definition section */
18            2 flags  unaligned,
19              3 basic_indicator          bit(1) unaligned,
20              3 revision_1               bit(1) unaligned,
21              3 has_descriptors          bit(1) unaligned,
22              3 variable                 bit(1) unaligned,
23              3 function                 bit(1) unaligned,
24              3 pad                      bit(13) unaligned,
25            2 eax7 bit(36) aligned,                          /* addr field set to max stack size mod 16 */
26            2 epp2 bit(36) aligned,                                    /* preset */
27            2 tsp2 bit(36) aligned,                                    /* preset */
28            2 zero_fill        bit(18) unaligned,                      /* preset */
29            2 trace_cntrl_relp bit(18) unaligned,            /* set to 6 + length of internal static (32) */
30            2 link_relp        bit(18) unaligned,
31            2 block_relp       bit(18) unaligned;
32 
33 
34 /*  END INCLUDE FILE ...   cobol_entry_seq.incl.pl1                     */
35