1
2
3
4
5
6
7
8 bce_alert: proc (p_ss_info_ptr);
9
10
11
12
13
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;