1 /* Begin include file asr_daemon_command.incl.pl1 BIM 1985-02-18 */
 2 /* format: style4 */
 3 /* AS request structure for daemon commands. */
 4 
 5 dcl  asr_daemon_command_info_ptr pointer;
 6 dcl  1 asr_daemon_command_info aligned based (asr_daemon_command_info_ptr),
 7        2 header aligned like as_request_header,
 8        2 version char (8),
 9        2 action_code fixed bin,
10        2 user_name char (32) unaligned,
11        2 project_name char (32) unaligned,
12        2 source_name char (32) unaligned,
13        2 pad (10) bit (36) aligned, /* avoid adding after refer */
14        2 command_length fixed bin (21),
15        2 command char (asr_dc_length refer (asr_daemon_command_info.command_length)) unaligned; /* login control args here on login */
16 
17 dcl  asr_dc_length fixed bin (21);
18 dcl  ASR_DC_INFO_VERSION_1 char (8) init ("asrdc001") int static options (constant);
19 
20 dcl  (ASR_DC_LOGIN  init (1),
21       ASR_DC_LOGOUT init (2),
22       ASR_DC_QUIT init (3),
23       ASR_DC_REPLY init (4)) fixed bin int static options (constant);
24 
25 declare asr_reply_dc_ptr pointer;
26 dcl  1 asr_reply_daemon_command aligned based (asr_reply_dc_ptr),
27        2 code fixed bin (35),
28        2 flags aligned,
29          3 command_refused bit (1) unaligned,   /* validate_daemon_commands OFF and no access to sac */
30          3 no_such_daemon bit (1) unaligned,    /* nobody home */
31          3 no_access_to_daemon bit (1) unaligned, /* validate_daemon_commands ON and no access to the specific victim */
32          3 pad bit (33) unaligned;
33 
34 /* END INCLUDE FILE ... asr_daemon_command.incl.pl1 */