1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 6         *                                                         *
 7         *********************************************************** */
 8 bce_alert: proc (p_ss_info_ptr);
 9 
10 /* Write a message with alert on the operators console.
11 Keith Loepere, January 1984. */
12 
13 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
14 
15 dcl  addr                             builtin;
16 dcl  arg                              char (arg_len) based (arg_ptr);
17 dcl  arg_count                        fixed bin;
18 dcl  arg_len                          fixed bin (21);
19 dcl  arg_num                          fixed bin;
20 dcl  arg_ptr                          ptr;
21 dcl  bce_data$console_alert_put_chars entry (ptr, ptr, fixed bin, fixed bin (35)) ext variable;
22 dcl  code                             fixed bin (35);
23 dcl  cu_$arg_count_rel                entry (fixed bin, ptr, fixed bin (35));
24 dcl  cu_$arg_ptr_rel                  entry (fixed bin, ptr, fixed bin (21), fixed bin (35), ptr);
25 dcl  message                          char (256);
26 dcl  message_len                      fixed bin;
27 dcl  p_ss_info_ptr                    ptr parameter;
28 dcl  substr                           builtin;
29 
30           ss_info_ptr = p_ss_info_ptr;
31           message_len = 0;
32           call cu_$arg_count_rel (arg_count, ss_info.arg_list_ptr, code);
33           if code = 0 then do arg_num = 1 to arg_count;
34                call cu_$arg_ptr_rel (arg_num, arg_ptr, arg_len, code, ss_info.arg_list_ptr);
35                substr (message, message_len + 1, arg_len) = arg;
36                substr (message, message_len + arg_len + 1, 1) = " ";
37                message_len = message_len + arg_len + 1;
38           end;
39           message_len = message_len + 1;
40           substr (message, message_len, 1) = "
41 ";
42           call bce_data$console_alert_put_chars (addr (bce_data$console_alert_put_chars), addr (message), message_len, code);
43           return;
44 %page; %include bce_subsystem_info_;
45      end;