1 /* BEGIN INCLUDE FILE... cmcs_cd_dcls.incl.pl1 */
 2 
 3 /* This COBOL MCS include file defines the input and output CD structures
 4    that are used by the COBOL object program to pass function-specific data
 5    to the CMCS runtime support package. */
 6 
 7 /* Bob May, 6/30/77 */
 8 
 9 dcl  input_cdp ptr;
10 
11 /* Input CD Structure */
12 
13 dcl 1 input_cd aligned based (input_cdp),
14 
15 /* Input Header */
16 
17     2 queue_ptr ptr,
18     2 flags,
19      (3 io_sw bit (1),                                      /* always "1"b for input cd */
20       3 cobol_sw bit (1),                                   /* always "1"b for COBOL MCS */
21       3 filler bit (34)) unaligned,
22     2 last_tree_path,                                       /* for faster lookup only */
23       3 level_names (4) char (12),
24 
25 /* COBOL Input CD */
26 
27     2 tree_path,
28       3 level_names (4) char (12),                          /* DN 1-4 */
29    (2 msg_date char (6),                                    /* DN 5, YYMMDD */
30     2 msg_time char (8),                                    /* DN 6, HHMMSSTT */
31     2 station_name char (12),                               /* DN 7 */
32     2 text_len pic "9999",                                  /* DN 8, S.B. pic "9999" */
33     2 text_delim pic "9",                                   /* DN 9, S.B. pic "9" */
34     2 status_key char (2),                                  /* DN 10 */
35     2 msg_count pic "999999") unaligned;                    /* DN 11, S.B. pic "999999" */
36 
37 /* */
38 
39 dcl  output_cdp ptr;
40 
41 /* Output CD Structure */
42 
43 dcl 1 output_cd aligned based (output_cdp),
44 
45 /* Output CD Header */
46 
47     2 last_station_info_ptr ptr,
48     2 flags,
49      (3 io_sw bit (1),                                      /* always "0"b for output cd */
50       3 cobol_sw bit (1),                                   /* alays "1"b for COBOL MCS */
51       3 filler bit (34)) unaligned,
52     2 bin_max_station_count fixed bin,                      /* who sets? ---- */
53     2 char_max_station_count pic "9999",                    /* S.B. pic "9999" */
54 
55 /* COBOL Output CD */
56 
57     2 station_count pic "9999",                             /* DN 1, S.B. pic "9999" */
58     2 text_len pic "9999",                                  /* DN 2, S.B. pic "9999" */
59     2 status_key char (2) unaligned,                        /* DN 3 */
60     2 dest_table (0 refer (output_cd.bin_max_station_count)) unaligned,
61       3 error_key char (1),                                 /* DN 4 */
62       3 station_name char (12);                             /* DN 5 */
63 
64 /* Last Station Info */
65 
66 dcl 1 last_station_info based (output_cd.last_station_info_ptr) aligned,
67     2 last_dest (output_cd.bin_max_station_count),
68       3 queue_iocbp ptr,
69       3 station_name char (12);
70 
71 /* END INCLUDE FILE... cmcs_cd_dcls.incl.pl1 */