1 /* BEGIN INCLUDE FILE... cmcs_msg_seg.incl.pl1 */
 2 
 3 /* This include file defines the structure of a COBOL MCS message segment */
 4 
 5 /* Bob May, 5/31/77 */
 6 
 7 dcl (msg_seg_hdr_len init (4),
 8      msg_seg_version init (1)) fixed bin int static options (constant);
 9 
10 dcl  msg_seg_ptr ptr;
11 
12 dcl 1 msg_seg aligned based (msg_seg_ptr),
13     2 hdr,
14       3 msg_no fixed bin (35),                              /* same as in key */
15       3 seg_no fixed bin (35),                              /* same as in key */
16       3 slew_ctl fixed bin (35),
17       3 seg_len fixed bin (35),                             /* of this segment, in chars */
18     2 data,
19       3 seg_data char (msg_seg.hdr.seg_len);
20 
21 /* END INCLUDE FILE... cmcs_msg_seg.incl.pl1 */