-
Notifications
You must be signed in to change notification settings - Fork 0
/
corvislsm.prg
68 lines (65 loc) · 3.68 KB
/
corvislsm.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
CLEAR
CLOSE DATA ALL
SET SAFETY OFF
SET EXCLUS OFF
SET DEFAULT TO N:\apps\acss\
SELECT 0
USE vinmas SHARED
GO TOP
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000000"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000001"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000011"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000012"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000015"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000016"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000017"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000018"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000019"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000022"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000023"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000025"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000026"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000030"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000032"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000033"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000034"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000038"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000039"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000041"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000042"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000043"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000045"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000046"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000047"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000051"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000052"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000053"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000054"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000055"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000056"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000057"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000058"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000059"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000061"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000062"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000064"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000068"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000069"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000071"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000072"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000076"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000084"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000085"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000086"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000099"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000471"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000474"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "000BOB"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "018/37"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "0CHRIS"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "0HOUSE"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "0RICHA"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "0SHANE"
REPLACE ALL vi_slsm WITH "000037" FOR ALLTRIM(vi_slsm) = "999999"
CLOSE DATA ALL
RETURN