1 /* BEGIN INCLUDE FILE... cmcs_slew_ctl.incl.pl1 */
 2 
 3 /* This include file defines the structure of the slew control
 4    word that is part of a COBOL MCS message segment */
 5 
 6 /* Bob May, 5/31/77 */
 7 
 8 dcl  slew_ctl_ptr ptr;
 9 
10 dcl 1 slew_ctl aligned based (slew_ctl_ptr),
11    (2 when fixed bin (8),                                   /* 0 = no slew, 1 = before, 2 = after */
12     2 what fixed bin (8),                                   /* 0 - slew 0 lines */
13                                                             /* 1 - slew n lines */
14                                                             /* 2 - slew to top of page */
15                                                             /* 3 - slew to channel (1-16) */
16 
17     2 how_much fixed bin (17)) unaligned;                   /* what = 1: n */
18                                                             /* what = 3: carriage control channel 1-16 */
19 
20 /* END INCLUDE FILE... cmcs_slew_ctl.incl.pl1 */