1
2
3
4
5
6
7
8
9
10
11 reconfigure_rcp: procedure;
12
13
14
15
16
17
18
19
20
21 dcl arg_len fixed bin;
22 dcl arg_ptr ptr;
23 dcl ecode fixed bin(35);
24
25 dcl argument char(arg_len) based(arg_ptr);
26
27 dcl com_err_ entry options(variable);
28 dcl cu_$arg_ptr entry (fixed bin,ptr,fixed bin,fixed bin(35));
29 dcl rcp_sys_$add_device entry (char(*),fixed bin(35));
30 dcl rcp_sys_$delete_device entry (char(*),fixed bin(35));
31
32 add_device: entry;
33
34
35
36 call cu_$arg_ptr (1,arg_ptr,arg_len,ecode);
37 if ecode ^= 0
38 then do;
39 call com_err_ (ecode,"reconfigure_rcp","Error getting device name.");
40 return;
41 end;
42
43 call rcp_sys_$add_device (argument,ecode);
44 if ecode ^= 0
45 then call com_err_ (ecode,"reconfigure_rcp","Error adding device: ^a",argument);
46
47 return;
48
49
50
51
52 del_device: entry;
53
54
55
56
57
58
59
60 call cu_$arg_ptr (1,arg_ptr,arg_len,ecode);
61 if ecode ^= 0
62 then do;
63 call com_err_ (ecode,"reconfigure_rcp","Error getting device name.");
64 return;
65 end;
66
67 call rcp_sys_$delete_device (argument,ecode);
68 if ecode ^= 0
69 then call com_err_ (ecode,"reconfigure_rcp","Error deleting device: ^a",argument);
70
71 end reconfigure_rcp;