|
1
|
def var vf1a as char init 0.
|
|
2
|
def var vf1b as char init 0.1.
|
|
3
|
def var vf1c as char init ?.
|
|
4
|
def var vf1d as char init 99/99/99.
|
|
5
|
def var vf1e as char init yes.
|
|
6
|
def var vf1f as char init "bar".
|
|
7
|
|
|
8
|
def var vf2a as int init 0.
|
|
9
|
def var vf2b as int init 0.1.
|
|
10
|
def var vf2c as int init ?.
|
|
11
|
/*def var vf2d as int init 99/99/99.*/
|
|
12
|
/*def var vf2e as int init yes.*/
|
|
13
|
def var vf2f as int init "0".
|
|
14
|
|
|
15
|
def var vf3a as dec init 0.
|
|
16
|
def var vf3b as dec init 0.1.
|
|
17
|
def var vf3c as dec init ?.
|
|
18
|
/*def var vf3d as dec init 99/99/99.*/
|
|
19
|
/*def var vf3e as dec init yes.*/
|
|
20
|
def var vf3f as dec init "0.0".
|
|
21
|
|
|
22
|
/*def var vf4a as log init 0.*/
|
|
23
|
/*def var vf4b as log init 0.1.*/
|
|
24
|
def var vf4c as log init ?.
|
|
25
|
/*def var vf4d as log init 99/99/99.*/
|
|
26
|
def var vf4e as log init yes.
|
|
27
|
def var vf4f as log init "yes".
|
|
28
|
|
|
29
|
/*def var vf5a as date init 0.*/
|
|
30
|
def var vf5b as date init 1.1.
|
|
31
|
def var vf5c as date init ?.
|
|
32
|
def var vf5d as date init 01/01/01.
|
|
33
|
/*def var vf5e as date init yes.*/
|
|
34
|
def var vf5f as date init "02/02/02".
|
|
35
|
|
|
36
|
def temp-table tt1
|
|
37
|
field f1a like vf1a
|
|
38
|
field f1b like vf1b
|
|
39
|
field f1c like vf1c
|
|
40
|
field f1d like vf1d
|
|
41
|
field f1e like vf1e
|
|
42
|
field f1f like vf1f
|
|
43
|
|
|
44
|
field f2a like vf2a
|
|
45
|
field f2b like vf2b
|
|
46
|
field f2c like vf2c
|
|
47
|
/*field f2d like vf2d*/
|
|
48
|
/*field f2e like vf2e*/
|
|
49
|
field f2f like vf2f
|
|
50
|
|
|
51
|
field f3a like vf3a
|
|
52
|
field f3b like vf3b
|
|
53
|
field f3c like vf3c
|
|
54
|
/*field f3d like vf3d*/
|
|
55
|
/*field f3e like vf3e*/
|
|
56
|
field f3f like vf3f
|
|
57
|
|
|
58
|
/*field f4a like vf4a*/
|
|
59
|
/*field f4b like vf4b*/
|
|
60
|
field f4c like vf4c
|
|
61
|
/*field f4d like vf4d*/
|
|
62
|
field f4e like vf4e
|
|
63
|
field f4f like vf4f
|
|
64
|
|
|
65
|
/*field f5a like vf5a*/
|
|
66
|
field f5b like vf5b
|
|
67
|
field f5c like vf5c
|
|
68
|
field f5d like vf5d
|
|
69
|
/*field f5e like vf5a*/
|
|
70
|
field f5f like vf5f
|
|
71
|
.
|
|
72
|
|
|
73
|
message vf1a vf1b vf1c vf1d vf1e vf1f.
|
|
74
|
message vf2a vf2b vf2c vf2f.
|
|
75
|
message vf3a vf3b vf3c vf3f.
|
|
76
|
message vf4c vf4e vf4f.
|
|
77
|
message vf5b vf5c vf5d vf5f.
|
|
78
|
|
|
79
|
create tt1.
|
|
80
|
display tt1 with side-labels.
|