1
2
3
4
5
6
7
8
9
10
11
12
13 mountedp: proc (a_lvid) returns (fixed bin (35));
14
15
16
17
18
19
20
21
22 dcl a_lvid bit (36) aligned;
23 dcl lvid bit (36) aligned,
24 code fixed bin (35);
25 dcl logical_volume_manager$lvtep entry (bit (36) aligned, ptr, fixed bin (35)),
26 private_logical_volume$lvx entry (bit (36) aligned, fixed bin (8), fixed bin (35));
27
28 lvid = a_lvid;
29 call logical_volume_manager$lvtep (lvid, lvtep, code);
30 if code ^= 0 then return (code);
31 if lvtep -> lvte.public then return (0);
32 call private_logical_volume$lvx (lvid, (0), code);
33 return (code);
34
35
36
37 %include lvt;
38
39 end mountedp;