Liren Large Software Subsidy 5/05.iso/a/a056/5.ddi/RS/YQMIS010.PRG

Text File | 1993-12-21 | 3.0 KB | 206 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS010
* │╠╨≥╔Φ╝╞: ╤┼╞µ
* ▒α│╠╚╒╞┌: 93.12.21   21:35:30
*******************************************************
set date ansi
set safe off
close data
set color to w/1,,
clear
do smggp with '╟δ  ╔╘  ║≥ !',10,34
set color to w/1,,
sele A
use RS alia A
index on ╨╘▒≡ to RS uniq
sele B
use RSXBTJ alia B
priv oflbds
oflbds='╨╘▒≡'
set proc to YQMIS010
sele 1
copy to otj.ols
close inde
sele 2
zap
appe from otj.ols
dele file otj.ols
set stat on
@ 23,0 clear to 24,79
do smggp with '╒²╘┌╜°╨╨═│╝╞,╟δ╔╘║≥!!',10,24
@ 23,0 clear to 24,79
do qjls with [],[╫▄╚╦╩²]
set stat off
return
*****************
* ╟≤╝╟┬╝╕÷╩²    *
*****************
proc qjls
para otj,ojgzd
if len(trim(otj))=0
otj='.t.'
endif
priv qjls,ofl
if len(oflbds)=0
sele 1
count to qjls for &otj
sele 2
repl &ojgzd with qjls
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
count to qjls for &otj
sele 2
repl &ojgzd with qjls
skip
enddo
endif
return
*****************
* ╟≤║═          *
*****************
proc qh
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
sum &otjzd to q for &otj
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
sum &otjzd to q for &otj
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╞╜╛∙╓╡      *
*****************
proc qpjz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
aver &otjzd to q for &otj
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
aver &otjzd to q for &otj
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╫ε┤≤╓╡      *
*****************
proc qzdz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
goto top
q=-999999999
do while .not.eof()
if &otj
q=iif(q<&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
goto top
q=-999999999
do while .not.eof()
if &otj
q=iif(q<&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
skip
enddo
endif
return
*****************
* ╟≤╫ε╨í╓╡      *
*****************
proc qzxz
para otj,ojgzd,otjzd
if len(trim(otj))=0
otj='.t.'
endif
priv q,ofl
if len(oflbds)=0
sele 1
goto top
q=999999999
do while .not.eof()
if &otj
q=iif(q>&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
else
sele 2
goto top
do while .not.eof()
ofl=&oflbds
sele 1
set filt to ofl=&oflbds
goto top
q=999999999
do while .not.eof()
if &otj
q=iif(q>&otjzd,&otjzd,q)
endif
skip
enddo
sele 2
repl &ojgzd with q
skip
enddo
endif
return

*******************************************************
* ▒α│╠╚╒╞┌: 93.12.21   21:35:32
*******************************************************