1 /* BEGIN INCLUDE FILE ... as_request_header.incl.pl1 */
 2 
 3 /* DESCRIPTION:
 4    Answering Service request information.
 5 */
 6 
 7 
 8 /****^  HISTORY COMMENTS:
 9   1) change(00-01-01,JRandom), approve(), audit(), install():
10       Written by someone, at sometime.
11   2) change(84-09-10,Tague), approve(), audit(), install():
12       R. Michael Tague: Added ASR_BUMP_USER request.
13   3) change(84-10-04,Margulies), approve(), audit(), install():
14       BIM: ASR_ADMIN_COMMAND.
15   4) change(85-01-23,Swenson), approve(), audit(), install():
16       E. Swenson for ASR_NOTE_PNT_CHANGE.
17   5) change(85-02-18,Margulies), approve(), audit(), install():
18       BIM: ASR_DAEMON_COMMAND, ASR_COM_CHANNEL_INFO
19   6) change(85-12-12,Lippard), approve(85-12-30,MCR7326),
20      audit(86-10-27,GDixon), install(86-10-28,MR12.0-1200):
21       Jim Lippard: Added ASR_ABS_COMMAND request.
22                                                    END HISTORY COMMENTS */
23 
24 
25 /* format: style4 */
26 
27 dcl  as_request_version_1 fixed bin internal static initial (1) options (constant);
28 
29 dcl  (
30      ASR_FIRST_TYPE initial (1),
31      ASR_DIAL_SERVER initial (1),
32      ASR_DIAL_OUT initial (2),
33      ASR_FPE_CAUSES_LOGOUT initial (3),
34      ASR_FPE_CAUSES_NEW_PROC initial (4),
35      ASR_PROC_TERM_NOTIFY initial (5),
36      ASR_BUMP_USER initial (6),
37      ASR_ADMIN_COMMAND initial (7),
38      ASR_NOTE_PNT_CHANGE initial (8),
39      ASR_DAEMON_COMMAND initial (9),
40      ASR_COM_CHANNEL_INFO initial (10),
41      ASR_ABS_COMMAND initial (11),
42      ASR_LAST_TYPE initial (11)
43      ) fixed bin internal static options (constant);
44 
45 dcl  ASR_DEFER_IN_ADMIN_MODE (1:11) bit (1) int static options (constant)
46      init ((6) (1) "0"b, "1"b, (4) (1) "0"b);
47 
48 dcl  ASR_REQUEST_NAMES (1:11) int static options (constant)
49           char (40) init (
50           "Dial request",
51           "Dial out request",
52           "Logout on fatal process error",
53           "New process on fatal process error",
54           "Monitor process terminations",
55           "Bump user",
56           "Execute admin command",
57           "Note PNT change",
58           "Daemon command",
59           "Communications channel info",
60           "Absentee command");
61 
62 dcl  1 as_request_header based aligned,
63        2 version fixed bin,                                 /* version number */
64        2 type fixed bin,                                    /* what to do */
65        2 reply_channel fixed bin (71);                      /* who to tell */
66 
67 
68 /* END INCLUDE FILE ... as_request_header.incl.pl1 */