1 
 2 /* BEGIN INCLUDE FILE ... cobol_perform_entry.incl.pl1 */
 3 /* Last modified on 01/26/77 by ORN */
 4 
 5 dcl perform_ptr ptr;
 6 dcl 1 perform_entry based(perform_ptr),
 7      2 proc_number fixed bin,
 8      2 code fixed bin,
 9      2 next char(5),
10      2 next1 char(5),
11      2  priority fixed bin,
12      2 address fixed bin;
13 
14 /* END INCLUDE FILE ... cobol_perform_entry.incl.pl1 */
15