1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    * Copyright (c) 1972 by Massachusetts Institute of        *
 6    * Technology and Honeywell Information Systems, Inc.      *
 7    *                                                         *
 8    *********************************************************** */
 9 
10 
11 set_sons_volume: proc;
12 
13 /* THVV */
14 
15           call cu_$arg_ptr (2, ap, al, ec);
16           if ec ^= 0 then do;
17                call com_err_ (ec, "set_sons_volume", "Usage: set_sons_volume path vol");
18                return;
19           end;
20           call mdc_$find_lvid (bchr, lvid, ec);
21           if ec ^= 0 then do;
22                call com_err_ (ec, "set_sons_volume", "error from find_lvid");
23                return;
24           end;
25 
26           call cu_$arg_ptr (1, ap, al, ec);
27           call expand_path_ (ap, al, addr (dn), addr (en), ec);
28           if ec ^= 0 then do;
29                call com_err_ (ec, "set_sons_volume", "^a", bchr);
30                return;
31           end;
32 
33           call hphcs_$set_sons_lvid (dn, en, lvid, ec);
34           if ec ^= 0 then call com_err_ (ec, "set_sons_volume", "^a", bchr);
35           return;
36 
37 dcl  null builtin;
38 dcl  lvid bit (36);
39 dcl  dn char (168), en char (32);
40 dcl  i fixed bin;
41 dcl  ec fixed bin (35);
42 dcl  ap ptr, al fixed bin, bchr char (al) based (ap);
43 
44 dcl  hphcs_$set_sons_lvid entry (char (*), char (*), bit (36), fixed bin (35));
45 dcl  mdc_$find_lvid entry (char (*), bit (36), fixed bin (35));
46 dcl  cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35));
47 dcl  expand_path_ entry (ptr, fixed bin, ptr, ptr, fixed bin (35));
48 dcl  com_err_ entry options (variable);
49 
50      end set_sons_volume;