1 /*        BEGIN INCLUDE FILE probe_ref_block.incl.pl1       */
 2 
 3 /* *      This declares all the necessary storage for a reference node and the
 4    *      things it points to. Programs which create reference nodes should either
 5    *      declare automatic ref_blocks like ref_block, and call probe_create_reference_$init
 6    *      to initialize the automatic copies, or call probe_create_reference_ directly
 7    *      to allocate them in expression_area and initialize the, returning a pointer
 8    *      which will be valid for the duration of the request. */
 9 
10 dcl  ref_block_ptr pointer;
11 
12 dcl 1 ref_block aligned based (ref_block_ptr),              /* we allocate this in the area and fill it in */
13     2 ref_node aligned like reference_node,
14     2 subscripts aligned like reference_subscripts,
15     2 arglist aligned like reference_arg_list,
16     2 source_info aligned like source_info,
17     2 sub_refs aligned like subscript_reference_ptrs;
18 
19 /*        END INCLUDE FILE probe_ref_block.incl.pl1         */