1 /* BEGIN INCLUDE FILE ... cpm_create_ctrl_pt_info.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(86-08-12,Kissel), approve(86-08-12,MCR7473),
 5      audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206):
 6      Written to support control point management in March 1985 by G. Palter.
 7                                                    END HISTORY COMMENTS */
 8 
 9 /* format: style3,linecom */
10 
11 /* Description of a new control point to be created by a call to cpm_$create */
12 
13 dcl       1 create_control_point_info
14                               aligned based (ccpi_ptr),
15             2 header,
16               3 version       character (8) unaligned,
17               3 comment       character (64) unaligned,     /* a description of the control point */
18               3 initproc,                                   /* definition of the first user code to be run */
19                 4 entry       entry (pointer) variable,     /* ... the actual program */
20                 4 info_ptr    pointer,                      /* ... and its single parameter */
21               3 user_cl_intermediary                        /* user program to be called by cpm_cl_intermediary_ */
22                               entry (bit (1) aligned) variable,
23               3 priority      fixed binary,                 /* scheduling prioirty (1 is highest, 2 next, etc.) */
24               3 flags,
25                 4 independent bit (1) unaligned,            /* ON => the new control point is standalone */
26                                                             /* OFF => the new control point belongs to the current one */
27                 4 separate_standard_iocbs                   /* ON => the new control point should have its own switches */
28                               bit (1) unaligned,            /* OFF => the new control point shares its parent's */
29                 4 user_io_attach_desc_given                 /* ON => there is an attach description for user_i/o */
30                               bit (1) unaligned,            /* OFF => user_i/o should be syn_'ed to the parent's */
31                 4 user_cl_intermediary_given                /* ON => user has supplied a program to be called by ... */
32                               bit (1) unaligned,            /* ... cpm_cl_intermediary_ before creating a new level */
33                 4 pad         bit (32) unaligned,
34               3 pad           bit (36) aligned,
35               3 user_io_attach_desc_length                  /* length of the user_i/o attach description (if present) */
36                               fixed binary (21),
37             2 user_io_attach_desc                           /* attach description for user_i/o */
38                               character (ccpi_user_io_attach_desc_length
39                               refer (create_control_point_info.user_io_attach_desc_length)) unaligned;
40 
41 dcl       CREATE_CONTROL_POINT_INFO_VERSION_1
42                               character (8) static options (constant) initial ("ccpi_001");
43 
44 dcl       ccpi_user_io_attach_desc_length                   /* required to allocate the above structure */
45                               fixed binary (21);
46 dcl       ccpi_ptr            pointer;
47 
48 /* END INCLUDE FILE ... cpm_create_ctrl_pt_info.incl.pl1 */