1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 dcl (ADDRESS_ALLOC_TYPE init (1),
20 ADDRESS_EXTERNAL_TYPE init (2),
21 ADDRESS_GIVEN_TYPE init (3)) fixed bin int static options (constant);
22
23 dcl 1 probe_variable aligned based (probe_variable_ptr),
24 2 next ptr unal,
25 2 name char (64) varying,
26 2 declared_type char (64) varying,
27 2 type fixed bin,
28 2 unaligned_sw bit (1) aligned,
29 2 address ptr unal,
30 2 pad (5) ptr unal;
31
32 dcl probe_variable_integer fixed bin (35) based (probe_variable.address);
33 dcl probe_variable_pointer pointer aligned based (probe_variable.address);
34 dcl probe_variable_pointer_unal pointer unaligned based (probe_variable.address);
35 dcl probe_variable_float float bin (27) based (probe_variable.address);
36 dcl probe_variable_char char(1) based (probe_variable.address);
37 dcl probe_variable_double float bin (63) based (probe_variable.address);
38 dcl probe_variable_long fixed bin(71) based (probe_variable.address);
39
40 dcl probe_variable_ptr pointer unal;
41
42
43