1 /* BEGIN INCLUDE FILE ... prt_ctl.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(88-02-23,Brunelle), approve(88-08-31,MCR7911), 6 audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199): 7 Ancient History 8 Modified: 11 December 1981 by G. Palter to add force_ctl_char 9 Modified: November 1983 by C. Marker to add force_nsep 10 2) change(88-02-23,Brunelle), approve(88-08-31,MCR7911), 11 audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199): 12 Literals for banner type and banner bars type added. 13 END HISTORY COMMENTS */ 14 15 16 /* format: style4 */ 17 18 /* This structure is used by the IO Daemon to define the printer control functions */ 19 20 dcl prt_ctl_ptr ptr; 21 22 dcl 1 prt_ctl aligned based (prt_ctl_ptr), /* printer control values */ 23 2 flags, 24 3 force_nep bit (1) unal, /* set noskip for the user */ 25 3 force_esc bit (1) unal, /* set escape processing for the user */ 26 3 no_auto_print bit (1) unal, /* ask for a cmd before each request is printed */ 27 3 meter bit (1) unal, /* meter printer functions */ 28 3 force_ctl_char bit (1) unal, /* set ctl_char mode for the user */ 29 3 force_nsep bit (1) unal, /* supress printing of inner head and tail sheets for multiple copies */ 30 3 ctl_pad bit (30) unal, /* default for future values */ 31 2 banner_type fixed bin, /* 0 = no banners */ 32 /* 1 = normal head/tail sheets */ 33 /* 2 = brief head/tail sheets */ 34 /* 3 to 10 RESERVED */ 35 2 banner_bars fixed bin, /* 0 = normal overprinted separator bars */ 36 /* 1 = single print line bars (no overprint) */ 37 /* 2 = suppress the separator bars (no separator) */ 38 2 banner_indent fixed bin, /* how far to indent the banner (future) */ 39 2 banner_line fixed bin, /* what line to start the banner on (future) */ 40 41 2 paper_info, 42 3 phys_page_length fixed bin, 43 3 phys_line_length fixed bin, 44 3 lines_per_inch fixed bin, 45 2 channel_stops (256) bit (16) unal, /* logical stops for slew to channel */ 46 2 prt_ctl_pad (10) fixed bin; /* for future additions */ 47 48 /* constants for prt_ctl.banner_type */ 49 dcl (NO_BANNERS init (0), 50 NORMAL_BANNERS init (1), 51 BRIEF_BANNERS init (2)) fixed bin int static options (constant); 52 53 /* constants for prt_ctl.banner_bars */ 54 dcl (NORMAL_BANNER_BARS init (0), 55 SINGLE_BANNER_BARS init (1), 56 NO_BANNER_BARS init (2)) fixed bin int static options (constant); 57 58 /* END INCLUDE FILE ... prt_ctl.incl.pl1 */