1
2
3
4
5
6
7
8 bce_ready: proc (prompt);
9
10
11
12
13
14
15 dcl addr builtin;
16 dcl bce_data$error_put_chars entry (ptr, ptr, fixed bin, fixed bin (35)) ext variable;
17 dcl buffer char (40);
18 dcl buffer_len fixed bin;
19 dcl clock builtin;
20 dcl code fixed bin (35);
21 dcl date_time_ entry (fixed bin (71), char (*));
22 dcl ioa_$rsnnl entry() options(variable);
23 dcl length builtin;
24 dcl new_line bit (1) aligned;
25 dcl output_buffer char (buffer_len) based (addr (buffer));
26 dcl prompt char (*) parameter;
27 dcl substr builtin;
28 dcl time_string char (24);
29
30 new_line = "1"b;
31 go to join;
32
33 nnl: entry (prompt);
34
35 new_line = "0"b;
36
37 join:
38 call date_time_ (clock (), time_string);
39 call ioa_$rsnnl ("^a (^a) ^a: ", buffer, buffer_len, prompt,
40 COLLECTION_1_PHASE_NAMES (sys_info$collection_1_phase),
41 substr (time_string, 11, 6));
42 if new_line then do;
43 buffer_len = buffer_len + 1;
44 substr (output_buffer, buffer_len, 1) = "
45 ";
46 end;
47 call bce_data$error_put_chars (addr (bce_data$error_put_chars), addr (output_buffer), length (output_buffer), code);
48 return;
49 %page; %include collection_1_phases;
50 end;