Project

General

Profile

initializer_var_like_field.p

Roger Borrello, 03/15/2023 01:30 PM

Download (2.01 KB)

 
1
def temp-table tt1
2
   field f1a as char init 0
3
   field f1b as char init 0.1
4
   field f1c as char init ?
5
   field f1d as char init 99/99/99
6
   field f1e as char init yes
7
   field f1f as char init "bar"
8

    
9
   field f2a as int init 0
10
   field f2b as int init 0.1
11
   field f2c as int init ?
12
   /*field f2d as int init 99/99/99*/
13
   /*field f2e as int init yes*/
14
   field f2f as int init "0"
15

    
16
   field f3a as dec init 0
17
   field f3b as dec init 0.1
18
   field f3c as dec init ?
19
   /*field f3d as dec init 99/99/99*/
20
   /*field f3e as dec init yes*/
21
   field f3f as dec init "0.0"
22
   
23
   /*field f4a as log init 0*/
24
   /*field f4b as log init 0.1*/
25
   field f4c as log init ?
26
   /*field f4d as log init 99/99/99*/
27
   field f4e as log init yes
28
   field f4f as log init "yes"
29

    
30
   /*field f5a as date init 0*/
31
   field f5b as date init 1.1
32
   field f5c as date init ?
33
   field f5d as date init 01/01/01
34
   /*field f5e as date init yes*/
35
   field f5f as date init "02/02/02"
36
   .
37

    
38
def var vf1a like tt1.f1a.
39
def var vf1b like tt1.f1b.
40
def var vf1c like tt1.f1c.
41
def var vf1d like tt1.f1d.
42
def var vf1e like tt1.f1e.
43
def var vf1f like tt1.f1f.
44

    
45
def var vf2a like tt1.f2a.
46
def var vf2b like tt1.f2b.
47
def var vf2c like tt1.f2c.
48
/*def var vf2d like tt1.f2d.*/
49
/*def var vf2e like tt1.f2e.*/
50
def var vf2f like tt1.f2f.
51

    
52
def var vf3a like tt1.f3a.
53
def var vf3b like tt1.f3b.
54
def var vf3c like tt1.f3c.
55
/*def var vf3d like tt1.f3d.*/
56
/*def var vf3e like tt1.f3e.*/
57
def var vf3f like tt1.f3f.
58

    
59
/*def var vf4a like tt1.f4a.*/
60
/*def var vf4b like tt1.f4b.*/
61
def var vf4c like tt1.f4c.
62
/*def var vf4d like tt1.f4d.*/
63
def var vf4e like tt1.f4e.
64
def var vf4f like tt1.f4f.
65

    
66
/*def var vf5a like tt1.f5a.*/
67
def var vf5b like tt1.f5b.
68
def var vf5c like tt1.f5c.
69
def var vf5d like tt1.f5d.
70
/*def var vf5e like tt1.f5e.*/
71
def var vf5f like tt1.f5f.
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.