1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 dcl asr_com_channel_info_ptr pointer;
17 dcl 1 asr_com_channel_info aligned based (asr_com_channel_info_ptr),
18 2 header aligned like as_request_header,
19 2 version char (8),
20 2 channel_name char (32) unaligned,
21 2 reply_version_requested char (8),
22 2 reply_message_handle bit (72) aligned;
23
24 dcl ASR_CCI_VERSION_1 char (8) init ("asrci001") int static options (constant);
25
26 dcl asr_reply_cci_ptr pointer;
27 dcl 1 asr_reply_com_channel_info aligned based (asr_reply_cci_ptr),
28 2 code fixed bin (35),
29 2 pad bit (36) aligned;
30
31