1 /* BEGIN INCLUDE FILE system_message.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(85-12-19,Herbst), approve(87-07-20,MCR7697),
 5      audit(87-07-20,GDixon), install(87-08-04,MR12.1-1056):
 6      Moved SYSTEM MESSAGE_HANDLE to user_message_handles.incl.pl1
 7   2) change(87-02-24,Brunelle), approve(87-07-20,MCR7697),
 8      audit(87-07-20,GDixon), install(87-08-04,MR12.1-1056):
 9      added INACTIVITY message same as WARN message to be able to tell messages
10      apart.
11   3) change(87-05-30,Brunelle), approve(87-07-20,MCR7697),
12      audit(87-07-20,GDixon), install(87-08-04,MR12.1-1056):
13      Added SYSTEM_MESSAGE_TYPES array.
14                                                    END HISTORY COMMENTS */
15 
16 dcl system_message_ptr ptr aligned;
17 
18 dcl 1 system_message_header aligned based,
19    2 version char (8),                  /* version of this structure */
20    2 type fixed bin,                    /* type of message: AS_WARN_.., etc. */
21    2 type_version char (8);             /* version of info for this type */
22 
23 dcl 1 system_message aligned based (system_message_ptr),    /* generic */
24    2 header aligned like system_message_header,
25    2 contents bit (0);                  /* types are of different length */
26 
27 dcl SYSTEM_MESSAGE_VERSION_1 char (8) int static options (constant) init ("SYSMSG01");
28 
29 dcl system_message_text_len fixed bin;
30 
31 dcl 1 warn_system_message aligned based (system_message_ptr),
32    2 header aligned like system_message_header,
33    2 caller char (64),
34    2 text_len fixed bin (21),
35    2 text char (system_message_text_len refer (warn_system_message.text_len));
36 
37 dcl 1 inactivity_system_message aligned based (system_message_ptr),
38    2 header aligned like system_message_header,
39    2 caller char (64),
40    2 text_len fixed bin (21),
41    2 text char (system_message_text_len refer (inactivity_system_message.text_len));
42 
43 dcl 1 dm_shut_system_message aligned based (system_message_ptr),
44    2 header aligned like system_message_header,
45    2 caller char (64),
46    2 text_len fixed bin (21),
47    2 text char (system_message_text_len refer (dm_shut_system_message.text_len));
48 
49 dcl (ANY_TYPE init (0),
50      SYSTEM_MESSAGE_TYPE_AS_WARN init (1),
51      SYSTEM_MESSAGE_TYPE_DM_SHUT init (2),
52      SYSTEM_MESSAGE_TYPE_AS_INACTIVITY init (3))
53           fixed bin int static options (constant);
54 
55 dcl (SYSTEM_MESSAGE_AS_WARN_V1 init ("SYSASW01"),
56      SYSTEM_MESSAGE_DM_SHUT_V1 init ("SYSDMS01"),
57      SYSTEM_MESSAGE_AS_INACTIVITY_V1 init ("SYSASI01"))
58           char (8) int static options (constant);
59 
60 dcl  SYSTEM_MESSAGE_TYPES (0:3) char(12) varying int static options(constant)
61      init("unknown type", "AS warning", "DM shutdown", "inactivity");
62 
63 
64 /* END INCLUDE FILE system_message.incl.pl1 */