Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
666 bytes
|
Line | |
---|
1 | JULIE ;
|
---|
2 | F I=65:1:67 D
|
---|
3 | .F J=48:1:50 D
|
---|
4 | ..F K=48:1:50 D
|
---|
5 | ...F L=48:1:50 D
|
---|
6 | ....D SET
|
---|
7 | ...F L=65:1:67 D
|
---|
8 | ....D SET
|
---|
9 | ..F K=65:1:67 D
|
---|
10 | ...F L=48:1:50 D
|
---|
11 | ....D SET
|
---|
12 | ...F L=65:1:67 D
|
---|
13 | ....D SET
|
---|
14 | ..F K=65:1:67 D
|
---|
15 | ...F L=48:1:50 D
|
---|
16 | ....D SET
|
---|
17 | ...F L=65:1:67 D
|
---|
18 | ....D SET
|
---|
19 | ..F K=65:1:67 D
|
---|
20 | ...F L=48:1:50 D
|
---|
21 | ....D SET
|
---|
22 | .F J=65:1:67 D
|
---|
23 | ..F K=48:1:50 D
|
---|
24 | ...F L=48:1:50 D
|
---|
25 | ....D SET
|
---|
26 | ...F L=65:1:67 D
|
---|
27 | ....D SET
|
---|
28 | ..F K=65:1:67 D
|
---|
29 | ...F L=48:1:50 D
|
---|
30 | ....D SET
|
---|
31 | ...F L=65:1:67 D
|
---|
32 | ....D SET
|
---|
33 | ..F K=65:1:67 D
|
---|
34 | ...F L=48:1:50 D
|
---|
35 | ....D SET
|
---|
36 | ...F L=65:1:67 D
|
---|
37 | ....D SET
|
---|
38 | ..F K=65:1:67 D
|
---|
39 | ...F L=48:1:50 D
|
---|
40 | ....D SET
|
---|
41 | Q
|
---|
42 | SET S X=$C(I)_$C(J)_$C(K)_$C(L)
|
---|
43 | S ^JULIEDBA(I,J,K,L)=X
|
---|
44 | W !,X
|
---|
45 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.