1
2
3
4
5
6
7
8
9 dcl asr_abs_command_info_ptr ptr;
10
11 dcl 1 asr_abs_command_info aligned based (asr_abs_command_info_ptr),
12 2 header aligned like as_request_header,
13 2 version char (8),
14 2 action_code fixed bin,
15 2 request_id fixed bin (71);
16
17 dcl ASR_AC_INFO_VERSION_1 char (8) int static options (constant) init ("asrac001");
18 dcl (ASR_AC_LOGIN init (1),
19 ASR_AC_CANCEL init (2)) fixed bin int static options (constant);
20
21 dcl asr_reply_ac_ptr ptr;
22
23 dcl 1 asr_reply_abs_command aligned based (asr_reply_ac_ptr),
24 2 code fixed bin (35);
25
26