1 /* BEGIN INCLUDE FILE monitor_log_info.incl.pl1 BIM 1981*01*29 */
 2 /* format: style2 */
 3 /* This include file declares an internal interface, subject to incompatable change. */
 4 
 5      dcl     mlip                   pointer;
 6      dcl     1 monitor_log_info     aligned based (mlip),
 7                2 sentinel           character (8) aligned,  /* LOGM001 */
 8                2 backp              pointer unaligned,
 9                2 forwardp           pointer unaligned,      /* used to implement multiple monitors  */
10                2 id                 fixed bin,              /* do identify same entrynames */
11                2 special_refname    character (32) unaligned,
12                2 log_dir            character (168) unaligned,
13                2 log_entryname      character (32) unaligned,
14                2 logp               pointer,                /* save an initiation */
15                2 last_count         fixed bin,              /* number of messages in there last time around */
16                2 severity           fixed bin,
17                2 switches           aligned,
18                ( 3 matches          bit (1),
19                  3 excludes         bit (1),
20                  3 call             bit (1),
21                  3 filter_severity  bit (1),
22                  3 pad              bit (32)
23                  )                  unaligned,
24                2 match_p            pointer unaligned,
25                2 n_matches          fixed bin,
26                2 exclude_p          pointer unaligned,
27                2 n_excludes         fixed bin,
28                2 command_to_call    char (200) unaligned;
29 
30      dcl     lm_match_array         aligned based (monitor_log_info.match_p) dimension (monitor_log_info.n_matches)
31                                     character (128) varying;
32      dcl     lm_exclude_array       aligned based (monitor_log_info.exclude_p)
33                                     dimension (monitor_log_info.n_excludes) character (128) varying;
34 
35      dcl     monitor_log_sentinel_v1
36                                     character (8) aligned init ("LOGM001") int static options (constant);
37 
38      declare 1 monitor_log_invocations_
39                                     aligned external static,
40                2 firstp             pointer unaligned init (null ()),
41                2 lastp              pointer unaligned init (null ()),
42                2 flags              aligned,
43                ( 3 active           bit (1) unaligned,
44                  3 pad              bit (35) unaligned
45                  )                  initial (""b),
46                2 change_pclock      fixed bin (35) initial (0),
47                2 interval           fixed bin (71) initial (10),
48                                                             /* wakeup every in seconds */
49                2 id_pclock          fixed bin initial (0);  /* id's are generated from here */
50 
51      declare NO_SUCH_LOG            bit (2) aligned init ("00"b) internal static options (constant);
52      declare NO_LOG_SWITCH          bit (2) aligned init ("01"b) internal static options (constant);
53      declare LOG_SWITCHED           bit (2) aligned init ("10"b) internal static options (constant);
54 
55 /* END INCLUDE FILE monitor_log_info */