1 /* BEGIN INCLUDE FILE ... dprint_msg.incl.pl1 */ 2 /* Modified: November 1983 by C. Marker Added no_separator. */ 3 4 /****^ HISTORY COMMENTS: 5 1) change(87-05-10,Gilcrease), approve(87-05-13,MCR7686), 6 audit(88-02-01,Farley), install(88-02-02,MR12.2-1019): 7 Add line_nbrs bit for line-numbered printouts, version 4. 8 2) change(88-02-05,Farley), approve(88-02-05,PBF7686), audit(88-02-05,GWMay), 9 install(88-02-05,MR12.2-1022): 10 Corrected alignment of line_nbrs, was aligned s/b unaligned.. 11 3) change(88-08-23,Farley), approve(88-09-16,MCR7911), 12 audit(88-09-29,Wallman), install(88-10-28,MR12.2-1199): 13 Increased size of forms field to 64 characters (was only 24), which 14 updates the version to 5. 15 END HISTORY COMMENTS */ 16 17 18 dcl dmp ptr; /* ptr to message */ 19 20 dcl 1 dprint_msg based (dmp) aligned, /* structure of a IO daemon print or punch request */ 21 2 header like queue_msg_hdr, /* header for all standard queue messages */ 22 2 version fixed bin, /* version of the dprint_msg used */ 23 2 copies fixed bin, /* number of copies user requested */ 24 2 bit_count fixed bin (35), /* the bitcount of the segment at request time */ 25 2 output_module fixed bin, /* 1=print, 2=7punch, 3= mcc, 4=raw */ 26 2 control, /* control flags. */ 27 3 nep bit (1) unal, /* TRUE if printing over perforations */ 28 3 single bit (1) unal, /* TRUE if ignore FF and VT */ 29 3 non_edited bit (1) unal, /* TRUE if printing in non-edited mode */ 30 3 truncate bit (1) unal, /* TRUE if truncating lines at line length */ 31 3 esc bit (1) unal, /* TRUE if text escapes are to be processed */ 32 3 center_top_label bit (1) unal, /* TRUE if top label to be centered */ 33 3 center_bottom_label bit (1) unal, /* TRUE if bottom label to be centered */ 34 3 no_separator bit(1) unal, /* TRUE if the inner head a tail sheets of multiple copies are to be suppressed. */ 35 3 line_nbrs bit (1) unal, /* TRUE if line numbers wanted */ 36 3 padding bit (27) unal, 37 2 lmargin fixed bin, /* indent from the left */ 38 2 line_lth fixed bin, /* logical line length */ 39 2 page_lth fixed bin, /* logical page length */ 40 2 heading_lth fixed bin, /* number of chars in heading */ 41 2 top_label_lth fixed bin, /* number of chars in the top label */ 42 2 bottom_label_lth fixed bin, /* number of chars in bottom label */ 43 2 chan_stop_path_lth fixed bin, /* number of chars in channel stop pathname */ 44 2 forms_name_lth fixed bin, /* number of chars in forms name */ 45 2 future_fb_values (7) fixed bin, /* make future versions possible */ 46 2 forms char (24), /* name of special forms, or blank */ 47 2 destination char (24), /* routing for output */ 48 2 heading char (head_max_lth refer (dprint_msg.heading_lth)), /* heading on page 1 */ 49 2 top_label char (label_max_lth refer (dprint_msg.top_label_lth)), /* top page heading for each page */ 50 2 bottom_label char (label_max_lth refer (dprint_msg.bottom_label_lth)), /* bottom page heading */ 51 2 chan_stop_path char (path_max_lth refer (dprint_msg.chan_stop_path_lth)), /* path of rqti seg with channel stops */ 52 2 forms_name char (forms_max_lth refer (dprint_msg.forms_name_lth)); /* forms name string */ 53 54 55 dcl ( 56 head_max_lth init (64), /* allocation size for heading */ 57 label_max_lth init (136), /* allocation size for label fields */ 58 path_max_lth init (168), /* allocation size for pathname fields */ 59 forms_max_lth init (64) /* allocation size for forms name string */ 60 ) fixed bin int static options (constant); 61 62 dcl ( 63 dprint_msg_version_3 init (3), 64 dprint_msg_version_4 init (4), 65 dprint_msg_version_5 init (5) /* current version */ 66 ) fixed bin int static options (constant); 67 68 /* END INCLUDE FILE ... dprint_msg.incl.pl1 */